Changeset 427ba9 in git

Timestamp:

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

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

cf80ceb5ad2d43154cc45f6bfc38e7f519e69373

Parents:

f003a9aeaad4ef2031ca2798bf19a94a7d13fe06

Message:

* small bug fixes


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

Location:

Singular

Files:

• mpsr_GetPoly.cc (modified) (11 diffs)
• mpsr_PutPoly.cc (modified) (5 diffs)
• syz1.cc (modified) (2 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);
     }

Singular/mpsr_PutPoly.cc

@@ -3 +3 @@
 ****************************************/
 
-/* $Id: mpsr_PutPoly.cc,v 1.9 1997-12-03 16:58:56 obachman Exp $ */
+/* $Id: mpsr_PutPoly.cc,v 1.10 1998-03-27 11:40:59 obachman Exp $ */
 
 /***************************************************************
@@ -252 +252 @@
 mpsr_Status_t mpsr_PutPolyData(MP_Link_pt link, poly p, ring cring)
 {
-  monomial exp;
-
   if (cring != CurrPutRing)
     SetPutFuncs(cring);
@@ -270 +268 @@
     {
       failr(PutCoeff(link, pGetCoeff(p)));
-      for (i=1, exp = p->exp; i<=gNvars; i++)
-        gTa[i] = (MP_Sint32_t) exp[i];
+      for (i=1; i<=gNvars; i++)
+        gTa[i] = (MP_Sint32_t) pGetExp(p, i);
       mp_failr(IMP_PutSint32Vector(link, ta1, gNvars));
       pIter(p);
@@ -289 +287 @@
 {
   short i, n1;
-  monomial exp;
 
   if (cring != CurrPutRing)
@@ -300 +297 @@
     {
       failr(PutCoeff(link, pGetCoeff(p)));
-      for (i=0, exp = p->exp; i< n1; i++)
-        gTa[i] = (MP_Sint32_t) exp[i];
+      gTa[0] = pGetComp(p);
+      for (i=1; i< n1; i++)
+        gTa[i] = (MP_Sint32_t) pGetExp(p,i);
       mp_failr(IMP_PutSint32Vector(link, gTa, n1));
       pIter(p);

Singular/syz1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz1.cc,v 1.21 1998-03-16 14:56:48 obachman Exp $ */
+/* $Id: syz1.cc,v 1.22 1998-03-27 11:41:00 obachman Exp $ */
 /*
 * ABSTRACT: resolutions
@@ -55 +55 @@
 static int highdeg_1;
 
-#include "syzvector.cc"
+// uncomment to play around with new spolys for syzygies
+// #include "syzvector.cc"
 
 /*3