Changeset 427ba9 in git for Singular/mpsr_GetPoly.cc

Timestamp:

Mar 27, 1998, 12:41:00 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

cf80ceb5ad2d43154cc45f6bfc38e7f519e69373

Parents:

f003a9aeaad4ef2031ca2798bf19a94a7d13fe06

Message:

* small bug fixes


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

File:

• Singular/mpsr_GetPoly.cc (modified) (11 diffs)

Singular/mpsr_GetPoly.cc

@@ -3 +3 @@
 ****************************************/
 
-/* $Id: mpsr_GetPoly.cc,v 1.12 1998-03-23 22:51:02 obachman Exp $ */
+/* $Id: mpsr_GetPoly.cc,v 1.13 1998-03-27 11:40:58 obachman Exp $ */
 
 /***************************************************************
@@ -374 +374 @@
   MP_Sint32_t i;
   MP_Uint32_t j;
-  short *exp;
 
   if (! IsCurrGetRing(cring))
@@ -390 +389 @@
   if (gNvars > 1)
   {
-    mp_failr(IMP_GetSint32Vector(link, &gTa, gNvars));
-    pGetComp(pp) = 0;
-    for (i=0, exp = &(pp->exp[1]); i<gNvars; i++)
-      exp[i] = (short) gTa[i];
+    mp_failr(IMP_GetSint32Vector(link, &gTa[1], gNvars));
+    for (i=1; i<=gNvars; i++)
+      pSetExp(pp,i , (Exponent_t) gTa[i]);
     pSetm(pp);
 
@@ -401 +399 @@
       pp = pp->next;
       failr(GetCoeff(link, &(pp->coef)));
-      mp_failr(IMP_GetSint32Vector(link, &gTa, gNvars));
-      pGetComp(pp) = 0;
-      for (i=0, exp=&(pp->exp[1]); i<gNvars; i++)
-        exp[i] = (short) gTa[i];
+      mp_failr(IMP_GetSint32Vector(link, &gTa[1], gNvars));
+      for (i=1; i<=gNvars; i++)
+        pSetExp(pp, i, (Exponent_t) gTa[i]);
       pSetm(pp);
     }
@@ -411 +408 @@
   {
     mp_failr(IMP_GetSint32(link, &i));
-    pGetComp(pp) = 0;
-    pSetExp(pp,1, (short) i);
+    pSetExp(pp,1, (Exponent_t) i);
     pSetm(pp);
     
@@ -421 +417 @@
       failr(GetCoeff(link, &(pp->coef)));
       mp_failr(IMP_GetSint32(link, &i));
-      pGetComp(pp) = 0;
-      pSetExp(pp,1, (short) i);
+      pSetExp(pp,1, (Exponent_t) i);
       pSetm(pp);
     }
@@ -439 +434 @@
   MP_Sint32_t i, n1;
   MP_Uint32_t j;
-  short *exp;
 
   if (!IsCurrGetRing(cring))
@@ -457 +451 @@
   {
     mp_failr(IMP_GetSint32Vector(link, &gTa, n1));
-    pGetComp(pp) = 0;
-    for (i=0, exp=&(pGetComp(pp)); i<n1; i++)
-      exp[i] = (short) gTa[i];
+    pGetComp(pp) = gTa[0];
+    for (i=1; i<n1; i++)
+      pSetExp(pp, i, (Exponent_t) gTa[i]);
     pSetm(pp);
 
@@ -468 +462 @@
       failr(GetCoeff(link, &(pp->coef)));
       mp_failr(IMP_GetSint32Vector(link, &gTa, n1));
-      pGetComp(pp) = 0;
-      for (i=0, exp=&(pGetComp(pp)); i<n1; i++)
-        exp[i] = (short) gTa[i];
+      pGetComp(pp) =  gTa[0];
+      for (i=1; i<n1; i++)
+        pSetExp(pp,i, (Exponent_t) gTa[i]);
       pSetm(pp);
     }
@@ -477 +471 @@
   {
     mp_failr(IMP_GetSint32(link, &i));
-    pGetComp(pp) = (short) i;
+    pGetComp(pp) = (Exponent_t) i;
     mp_failr(IMP_GetSint32(link, &i));
-    pSetExp(pp,1, (short) i);
+    pSetExp(pp,1, (Exponent_t) i);
     pSetm(pp);
     
@@ -488 +482 @@
       failr(GetCoeff(link, &(pp->coef)));
       mp_failr(IMP_GetSint32(link, &i));
-      pGetComp(pp) = (short) i;
+      pGetComp(pp) = (Exponent_t) i;
       mp_failr(IMP_GetSint32(link, &i));
-      pSetExp(pp,1, (short) i);
+      pSetExp(pp,1, (Exponent_t) i);
       pSetm(pp);
     }