Changeset 61b2e16 in git for Singular

Timestamp:

Nov 3, 2011, 7:40:55 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6051d879db769fabc5f68f3052af02b306ccf1a6

Parents:

a15586a3e2341feb5065aee8eaef7ffb89308451

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-11-03 19:40:55+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-11-09 20:32:41+01:00

Message:

FIX: bigints <-> numbers

File:

• Singular/ipconv.cc (modified) (4 diffs)

Singular/ipconv.cc

@@ -53 +53 @@
 static void * iiBI2P(void *data)
 {
-  number n=n_Init_bigint((number)data, currRing->cf, currRing->cf);
-  n_Delete((number *)&data,currRing);
-  poly p=pNSet(n);
+  number n=n_Init_bigint((number)data, coeffs_BIGINT /*currRing->cf*/, currRing->cf);
+  n_Delete((number *)&data, coeffs_BIGINT);
+  poly p=p_NSet(n, currRing);
   return (void *)p;
 }
@@ -68 +68 @@
 static void * iiBI2V(void *data)
 {
-  number n=n_Init_bigint((number)data, currRing->cf, currRing->cf);
-  n_Delete((number *)&data,coeffs_BIGINT);
-  poly p=pNSet(n);
+  number n=n_Init_bigint((number)data, coeffs_BIGINT/*currRing->cf*/, currRing->cf);
+  n_Delete((number *)&data, coeffs_BIGINT);
+  poly p=p_NSet(n, currRing);
   if (p!=NULL) pSetComp(p,1);
   return (void *)p;
@@ -85 +85 @@
 {
   ideal I=idInit(1,1);
-  number n=n_Init_bigint((number)data, currRing->cf, currRing->cf);
+  number n=n_Init_bigint((number)data, coeffs_BIGINT, currRing->cf);
   n_Delete((number *)&data,coeffs_BIGINT);
   poly p=pNSet(n);
@@ -163 +163 @@
 {
   if (currRing==NULL) return NULL;
-  // a bigint is really a number from char 0, with diffrent operations...
-  return (void*)n_Init_bigint((number)data, currRing->cf, currRing->cf);
+  // a bigint is really a number from char 0, with diffrent
+  // operations...
+  number n = n_Init_bigint((number)data, coeffs_BIGINT, currRing->cf);
+  n_Delete((number *)&data, coeffs_BIGINT);  
+  return (void*)n;
 }