Changeset 550b4c in git for Singular/mpsr_PutPoly.cc

Timestamp:

Apr 21, 1998, 12:59:29 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

559a4bf0a3b03fde23553e3ceb0d6c6ff9e2d4e3

Parents:

aaafeb24812a2fa1306280482a08f65373287b7e

Message:

* Exponents in parameter (polys) are typedef'ed to EXPONENT_TYPE


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

File:

• Singular/mpsr_PutPoly.cc (modified) (7 diffs)

Singular/mpsr_PutPoly.cc

@@ -3 +3 @@
 ****************************************/
 
-/* $Id: mpsr_PutPoly.cc,v 1.11 1998-04-16 16:10:22 obachman Exp $ */
+/* $Id: mpsr_PutPoly.cc,v 1.12 1998-04-21 10:59:29 obachman Exp $ */
 
 /***************************************************************
@@ -49 +49 @@
  ***************************************************************/
 
-mpsr_Status_t (*PutCoeff)(MP_Link_pt link, number x);
-mpsr_Status_t (*PutAlgAlgNumber)(MP_Link_pt link, number x);
-MP_Uint32_t gNalgvars = 0;
-MP_Sint32_t gNvars = 0;
+static mpsr_Status_t (*PutCoeff)(MP_Link_pt link, number x);
+static mpsr_Status_t (*PutAlgAlgNumber)(MP_Link_pt link, number x);
+static MP_Uint32_t gNalgvars = 0;
+static MP_Sint32_t gNvars = 0;
+static ring        CurrPutRing = NULL;
+
 MP_Sint32_t *gTa = NULL;
-ring        CurrPutRing = NULL;
-
+MP_Sint32_t gTa_Length = 0;
 
 /***************************************************************
@@ -77 +78 @@
 static mpsr_Status_t PutDefRelsAnnot(MP_Link_pt link, ring r);
 
+
 /***************************************************************
  *
@@ -86 +88 @@
   CurrPutRing = r;
   // first, we set the PutNumber function
-  if (r->N != gNvars)
-  {
-    if (gTa != NULL)
-      Free(gTa, (gNvars+1)*sizeof(MP_Sint32_t));
-
-    gNvars = r->N;
-    if (gNvars > 1)
-      gTa = (MP_Sint32_t *) Alloc((gNvars+1)*sizeof(MP_Sint32_t));
-    else
-      gTa = NULL;
-  }
+  gNvars = r->N;
+  mpsr_InitTempArray(gNvars+1);
 
   if ((r->ch) == 0)
@@ -111 +104 @@
     // now we come to algebraic numbers
     gNalgvars = rPar(r);
+    mpsr_InitTempArray(gNalgvars);
     PutCoeff = PutAlgNumber;
     if ((r->ch) < 0)
@@ -223 +217 @@
 static mpsr_Status_t PutAlgPoly(MP_Link_pt link, alg a)
 {
-  int i;
+  unsigned int i;
   int *exp;
 
@@ -230 +224 @@
     {
       failr(PutAlgAlgNumber(link, a->ko));
+#if (SIZEOF_INT == SIZEOF_PARAMETER)
       mp_failr(IMP_PutSint32Vector(link, (MP_Sint32_t *) a->e, gNalgvars));
+#else
+      for (i=0; i<gNalgvars; i++)
+        gTa[i] = a->e[i];
+      mp_failr(IMP_PutSint32Vector(link, gTa, gNalgvars));
+#endif
       a = a->ne;
     }