Changeset 1c3d1f in git

Timestamp:

Jun 21, 2010, 12:33:40 PM (13 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

37d3186ad34a5dcbcd56103bd58674b22a5b236b

Parents:

e5ffec70440370de33da3fa2773669fe8e35d684

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2010-06-21 12:33:40+02:00

git-committer:

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

Message:

	code for n_long_R (gnumpfl) added

Location:

coeffs

Files:

• gnumpfl.h (modified) (2 diffs)
• longrat.cc (modified) (2 diffs)
• longrat.h (modified) (1 diff)
• test.cc (modified) (3 diffs)

coeffs/gnumpfl.h

@@ -22 +22 @@
 const char *   ngfRead (const char *s, number *a, const coeffs r);
 
-/* // Private interface should be hidden!!!
+ // Private interface should be hidden!!!
 /// Note: MAY NOT WORK AS EXPECTED!
 BOOLEAN  ngfGreaterZero(number za, const coeffs r);
@@ -47 +47 @@
 void setGMPFloatDigits( size_t digits, size_t rest );
 number ngfMapQ(number from, const coeffs r);
-*/
+
 #endif

coeffs/longrat.cc

@@ -2462 +2462 @@
 }
 
-void nlInitChar(coeffs r, void* p)
+int nlInitChar(coeffs r, void* p)
 {
   const int ch = (int)(long)(p);
@@ -2527 +2527 @@
   // variables for this type of coeffs:
   // (none)
+  return 0;
 }
 #if 0

coeffs/longrat.h

@@ -58 +58 @@
 LINLINE number   nlMult(number a, number b, const coeffs r);
 
-void     nlInitChar(coeffs r, void*);
+int     nlInitChar(coeffs r, void*);
 static BOOLEAN nlCoeffsEqual(const coeffs r, n_coeffType n, void * parameter);
 

coeffs/test.cc

@@ -8 +8 @@
 
 #include <longrat.h>
+#include <gnumpfl.h>
 #include <gnumpc.h>
 #include <shortfl.h>
@@ -62 +63 @@
     assume( r->cfDelete == nlDelete );    
   }
+  else if( type == n_long_R )
+  {
+    assume( r->cfInit == ngfInit );
+    assume( r->cfWrite == ngfWrite );
+    assume( r->cfAdd == ngfAdd );
+    assume( r->cfDelete == ngfDelete );
+  }
   else if( type == n_long_C )
   {
@@ -112 +120 @@
   
   type = nRegister( n_Q, nlInitChar); assume( type == n_Q );
+  if( Test(type) )
+    c ++;
 
+  type = nRegister( n_long_R, ngfInitChar); assume( type == n_long_R );
   if( Test(type) )
     c ++;