Changeset 0e4b5f in git

Timestamp:

Jun 23, 2010, 5:51:30 PM (14 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

179c93c519e9fe3fc5335cecd0323310a6e65093

Parents:

11206af0ff9f46e2f606e6ddd16d2ea630563cf6

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2010-06-23 17:51:30+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 11:55:18+01:00

Message:

Minor rearrangements + non-zero parameter for Zp

File:

• coeffs/test.cc (modified) (4 diffs)

coeffs/test.cc

@@ -127 +127 @@
 
   // rings needed for: n_Zp_a, n_Q_a ?
+
+  type = nRegister( n_Zp, npInitChar); assume( type == n_Zp );
+  if( Test(type, (void*) 11) )
+    c ++;
+
   
   type = nRegister( n_Q, nlInitChar); assume( type == n_Q );
+  if( Test(type) )
+    c ++;
+
+  type = nRegister( n_R, nrInitChar); assume( type == n_R );
   if( Test(type) )
     c ++;
@@ -139 +148 @@
   if( Test(type) )
     c ++;
-  
-  type = nRegister( n_R, nrInitChar); assume( type == n_R );
+
+
+#ifdef HAVE_RINGS
+  type = nRegister( n_Z, nrzInitChar); assume( type == n_Z );
   if( Test(type) )
     c ++;
 
-  type = nRegister( n_Zp, npInitChar); assume( type == n_Zp );
-  if( Test(type) )
-    c ++;
-
-#ifdef HAVE_RINGS
   type = nRegister( n_Z2m, nr2mInitChar); assume( type == n_Z2m );
   if( Test(type, (void*) 2) )
@@ -154 +160 @@
 
   type = nRegister( n_Zn, nrnInitChar); assume( type == n_Zn );
+
+  // BUG here!
+  // TODO: Frank (cmp. with the previous code)
+  // Note: the parameter 'm' is ignored now in nrnSetExp!!!
   if( Test(type, (void*) 3) )
     c ++;
@@ -159 +169 @@
 #endif
 
-  /*type = nRegister( n_GF, nfInitChar); assume( type == n_GF );
-  if( Test(type) )
-    c ++;*/
-
-  type = nRegister( n_Z, nrzInitChar); assume( type == n_Z );
+/*  
+  // TODO: Hans (the following needs resources, e.g. feFopen)
+  type = nRegister( n_GF, nfInitChar); assume( type == n_GF );
   if( Test(type) )
     c ++;
-
+*/
+  
   return c;