Changeset 81422c in git for Singular

Timestamp:

Apr 27, 1998, 12:19:04 PM (26 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

2e7c66199551d62cc2ce30673c92dccfa59cc814

Parents:

d751cfce70a8a2899f4913a228f1455242106ae1

Message:

bug for Metrowerks in hGetpure


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

File:

• Singular/hutil.cc (modified) (2 diffs)

Singular/hutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hutil.cc,v 1.6 1998-04-07 17:51:02 Singular Exp $ */
+/* $Id: hutil.cc,v 1.7 1998-04-27 10:19:04 pohl Exp $ */
 /*
 * ABSTRACT: Utilities for staircase operations
@@ -993 +993 @@
 }
 
-
+/*
+* a bug in Metrowerks with "lifetime analysis"
+*scmon hGetpure(scmon p)
+*{
+*  scmon p1, pn;
+*  p1 = p + 1;
+*  pn = p1 + pVariables;
+*  memcpy(pn, p1, pVariables * sizeof(Exponent_t));
+*  return pn - 1;
+*}
+*/
 scmon hGetpure(scmon p)
 {
-  scmon p1, pn;
-  p1 = p + 1;
-  pn = p1 + pVariables;
+  scmon p1 = p;
+  scmon pn;
+  p1++;
+  pn = p1;
+  pn += pVariables;
   memcpy(pn, p1, pVariables * sizeof(Exponent_t));
   return pn - 1;
 }
 
-