Changeset 45945a in git

Timestamp:

Jul 9, 2010, 1:45:25 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

e8d257bddbe75af4aa7bb7c3b142bb269183a882

Parents:

cb980abf90e795cc89811ac3591161d6cb3be628

Message:

primeFactors

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

File:

• Singular/misc_ip.cc (modified) (2 diffs)

Singular/misc_ip.cc

@@ -486 +486 @@
   if (nlIsZero(nn) || (nnAsInt != 0))
   {
-    nlDelete(&nn,NULL);
-    L->m[0].rtyp = INT_CMD;
-    L->m[0].data = (void *)nnAsInt;
     mpz_init_set_si(t,nnAsInt);
   }
@@ -500 +497 @@
   mpz_factor (t,LL,L_ind,ex);
 
+  nnAsInt = mpz_get_si(t);
+  nlDelete(&nn,NULL);
+  if (mpz_cmp_si(t,nnAsInt)==0)
+  {
+    L->m[0].rtyp = INT_CMD;
+    L->m[0].data = (void *)nnAsInt;
+  }
+  else
+  {
+    L->m[0].rtyp = BIGINT_CMD;
+    L->m[0].data = (void *)t;
+  }
   int i;
   for(i=0;i<L_ind;i++) ex[i]++;