Changeset b7b08c in git for Singular/ipassign.cc

Timestamp:

Oct 14, 1999, 4:27:35 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

548777d246af408b77296a71c16c980b2cef5b35

Parents:

e960943ba1dcfcb333014a2aee474750e8fafe10

Message:

* us short exponent vectors in divisbility tests
* AllocSizeOf
* garbage collection
* scanner/gmp: allow .0 and 1. input of reals


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

File:

• Singular/ipassign.cc (modified) (12 diffs)

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.49 1999-09-17 11:42:24 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.50 1999-10-14 14:27:07 obachman Exp $ */
 
 /*
@@ -348 +348 @@
   if(a->rtyp==STRING_CMD)
   {
-    res->data = (void *)Alloc0(sizeof(procinfo));
+    res->data = (void *)Alloc0SizeOf(procinfo);
     ((procinfo *)(res->data))->language=LANG_NONE;
     iiInitSingularProcinfo((procinfo *)res->data,"",res->name,0,0);
@@ -408 +408 @@
     if (l == NULL)
     {
-      l = (si_link) Alloc0(sizeof(sip_link));
+      l = (si_link) Alloc0SizeOf(sip_link);
       res->data = (void *) l;
     }
@@ -415 +415 @@
   else if (a->Typ() == LINK_CMD)
   {
-    if (l != NULL) Free(l, sizeof(sip_link));
+    if (l != NULL) FreeSizeOf(l, sip_link);
     res->data = slCopy((si_link)a->Data());
     return FALSE;
@@ -463 +463 @@
   ring qrr=rCopy(currRing);
   memcpy4(qr,qrr,sizeof(ip_sring));
-  Free((ADDRESS)qrr,sizeof(ip_sring));
+  FreeSizeOf((ADDRESS)qrr,ip_sring);
   if (qr->qideal!=NULL) idDelete(&qr->qideal);
   qr->qideal = (ideal)a->CopyD(IDEAL_CMD);
@@ -634 +634 @@
   {
     int ri;
-    leftv rn = (leftv)Alloc0(sizeof(sleftv));
+    leftv rn = (leftv)Alloc0SizeOf(sleftv);
     BOOLEAN failed=FALSE;
     i=0;
@@ -650 +650 @@
         // everything done, clean up temp. variables
         rn->CleanUp();
-        Free((ADDRESS)rn,sizeof(sleftv));
+        FreeSizeOf((ADDRESS)rn,sleftv);
         if (failed)
         {
@@ -719 +719 @@
   {
     int ri;
-    leftv rn = (leftv)Alloc0(sizeof(sleftv));
+    leftv rn = (leftv)Alloc0SizeOf(sleftv);
     BOOLEAN failed=FALSE;
     i=0;
@@ -732 +732 @@
         // everything done, clean up temp. variables
         rn->CleanUp();
-        Free((ADDRESS)rn,sizeof(sleftv));
+        FreeSizeOf((ADDRESS)rn,sleftv);
         if (failed)
         {
@@ -837 +837 @@
 {
   int sl = r->listLength();
-  lists L=(lists)Alloc(sizeof(slists));
+  lists L=(lists)AllocSizeOf(slists);
   lists oldL;
   leftv h=NULL,o_r=r;
@@ -1233 +1233 @@
        {
          h=l->e->next;
-         Free((ADDRESS)l->e,sizeof(*(l->e)));
+         FreeSizeOf((ADDRESS)l->e,sSubexpr);
          l->e=h;
        }
@@ -1318 +1318 @@
         {
           h=l->e->next;
-          Free((ADDRESS)l->e,sizeof(*(l->e)));
+          FreeSizeOf((ADDRESS)l->e,sSubexpr);
           l->e=h;
         }