Changeset b7b08c in git for Singular/subexpr.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/subexpr.cc (modified) (6 diffs)

Singular/subexpr.cc

@@ -5 +5 @@
 * ABSTRACT: handling of leftv
 */
-/* $Id: subexpr.cc,v 1.53 1999-09-17 11:42:25 Singular Exp $ */
+/* $Id: subexpr.cc,v 1.54 1999-10-14 14:27:32 obachman Exp $ */
 
 #include <stdlib.h>
@@ -331 +331 @@
         if (cmd->arg2.rtyp!=0) cmd->arg2.CleanUp();
         if (cmd->arg3.rtyp!=0) cmd->arg3.CleanUp();
-        Free((ADDRESS)data,sizeof(ip_command));
+        FreeSizeOf((ADDRESS)data,ip_command);
         break;
       }
@@ -419 +419 @@
   {
     h=e->next;
-    Free((ADDRESS)e,sizeof(*e));
+    FreeSizeOf((ADDRESS)e,sSubexpr);
     e=h;
   }
@@ -432 +432 @@
       next->next=NULL;
       next->CleanUp();
-      Free((ADDRESS)next,sizeof(sleftv));
+      FreeSizeOf((ADDRESS)next,sleftv);
       next=tmp_n;
     } while (next!=NULL);
@@ -600 +600 @@
     if (source->next!=NULL)
     {
-      next=(leftv)Alloc(sizeof(sleftv));
+      next=(leftv)AllocSizeOf(sleftv);
       next->Copy(source->next);
     }
@@ -972 +972 @@
   }
   return Typ();
+}
+
+void sleftv::SetData(void* what)
+{
+  if (rtyp == IDHDL)
+  {
+    (void*) IDDATA((idhdl)data) = what;
+  }
+  else
+  {
+    data = what;
+  }
 }