Changeset a48078 in git for kernel/numbers.cc

Timestamp:

Dec 8, 2008, 6:47:35 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

41ea815dd399c3ca48c9836a21414ca88ac8cf2e

Parents:

fe5b89fd5f0280af1971ddeb7fd02e4ed4c9eeb2

Message:

*hannes: bigint -> number


git-svn-id: file:///usr/local/Singular/svn/trunk@11223 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/numbers.cc (modified) (11 diffs)

kernel/numbers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: numbers.cc,v 1.18 2008-08-06 13:55:42 Singular Exp $ */
+/* $Id: numbers.cc,v 1.19 2008-12-08 17:47:35 Singular Exp $ */
 
 /*
@@ -38 +38 @@
 void   (*nNew)(number *a);
 number (*nInit)(int i);
+number  (*nInit_bigint)(number i);
 number (*nPar)(int i);
 int    (*nParDeg)(number n);
@@ -139 +140 @@
   {
     naSetChar(c,r);
+    if (rField_is_Q_a()) nInit_bigint=naMap00;
+    if (rField_is_Zp_a()) nInit_bigint=naMap0P;
   }
 #ifdef HAVE_RING2TOM
@@ -145 +148 @@
   {
     nr2mSetExp(c, r);
+    nInit_bigint=nr2mMapQ;
   }
 #endif  
@@ -152 +156 @@
   {
     nrzSetExp(c, r);
+    nInit_bigint=nrzMapQ;
   }
 #endif  
@@ -159 +164 @@
   {
     nrnSetExp(c, r);
+    nInit_bigint=nrnMapQ;
   }
 #endif
@@ -166 +172 @@
   {
     nrnSetExp(c, r);
+    nInit_bigint=nrnMapQ;
   }
 #endif
@@ -172 +179 @@
   {
     npSetChar(c, r);
+    nInit_bigint=npMap0;
   }
   /* -------------- GF(p^m) -----------------------*/
@@ -177 +185 @@
   {
     nfSetChar(c,r->parameter);
+    nInit_bigint=ndReturn0; // not impl.
   }
   /* -------------- R -----------------------*/
@@ -182 +191 @@
   else if (rField_is_R(r))
   {
+    nInit_bigint=nrMapQ;
   }
   /* -------------- long R -----------------------*/
@@ -189 +199 @@
   {
     setGMPFloatDigits(r->float_len,r->float_len2);
+    if (rField_is_long_R(r)) nInit_bigint=ngfMapQ;
+    else                     nInit_bigint=ngcMapQ;
   }
 #ifdef TEST