Changeset b7b08c in git for Singular/iplib.cc

Timestamp:

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

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'fc741b6502fd8a97288eaa3eba6e5220f3c3df87')

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/iplib.cc (modified) (6 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.65 1999-09-27 15:32:54 obachman Exp $ */
+/* $Id: iplib.cc,v 1.66 1999-10-14 14:27:09 obachman Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -274 +274 @@
   if (v!=NULL)
   {
-    iiCurrArgs=(leftv)Alloc(sizeof(sleftv));
+    iiCurrArgs=(leftv)AllocSizeOf(sleftv);
     memcpy(iiCurrArgs,v,sizeof(sleftv));
     memset(v,0,sizeof(sleftv));
@@ -431 +431 @@
                  break;
     case LANG_C:
-                 leftv res = (leftv)Alloc0(sizeof(sleftv));
+                 leftv res = (leftv)Alloc0SizeOf(sleftv);
                  err = (pi->data.o.function)(res, sl);
                  iiRETURNEXPR[myynest+1].Copy(res);
-                 Free((ADDRESS)res, sizeof(sleftv));
+                 FreeSizeOf((ADDRESS)res, sleftv);
                  break;
   }
@@ -511 +511 @@
     if (!err) Warn("too many arguments for %s",IDID(pn));
     iiCurrArgs->CleanUp();
-    Free((ADDRESS)iiCurrArgs,sizeof(sleftv));
+    FreeSizeOf((ADDRESS)iiCurrArgs,sleftv);
     iiCurrArgs=NULL;
   }
@@ -1160 +1160 @@
     if(lp==NULL)
     {
-      libstackv ls = (libstack *)Alloc0(sizeof(libstack));
+      libstackv ls = (libstack *)Alloc0SizeOf(libstack);
       ls->next = this;
       ls->libname = mstrdup(libname);
@@ -1175 +1175 @@
   //FreeL((ADDRESS)ls->libname);
   library_stack = ls->next;
-  Free((ADDRESS)ls, sizeof(libstack));
+  FreeSizeOf((ADDRESS)ls, libstack);
   return(library_stack);
 }