Changeset 9d34f0 in git

Timestamp:

Jan 8, 2009, 10:42:48 AM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

35eef23de304e5ae3c4f51aadb5be842bb3f3c8a

Parents:

88efd2b0180b92fc7199a6f36fe76955ba0db379

Message:

*hannes: rCopy0: bitmask


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

File:

• kernel/ring.cc (modified) (4 diffs)

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.111 2009-01-07 18:03:28 Singular Exp $ */
+/* $Id: ring.cc,v 1.112 2009-01-08 09:42:48 Singular Exp $ */
 
 /*
@@ -1466 +1466 @@
   int i,j;
   ring res=(ring)omAllocBin(ip_sring_bin);
-  //memset(res,0,sizeof(ip_sring));
-  memcpy4(res,r,sizeof(ip_sring));
+  memset(res,0,sizeof(ip_sring));
+  //memcpy4(res,r,sizeof(ip_sring));
   res->idroot=NULL; /* local objects */
   //ideal      minideal;
@@ -1538 +1538 @@
   res->VarL_Size=0;
 
-  //short      BitsPerExp; /* number of bits per exponent */
-  res->BitsPerExp=0;
-  //short      ExpPerLong; /* maximal number of Exponents per long */
-  res->ExpPerLong=0;
-
   //short      pCompIndex; /* p->exp.e[pCompIndex] is the component */
   res->pCompIndex=0;
@@ -1574 +1569 @@
   res->VarL_Offset=NULL;
 
+  // the following are set by rComplete unless predefined
+  // therefore, we copy these values: maybe they are non-standard
   /* mask for getting single exponents */
-  //unsigned long bitmask;
-  res->bitmask=0;
+  res->bitmask=r->bitmask;
   /* mask used for divisiblity tests */
-  //unsigned long divmask;
-  res->divmask=0;
+  res->divmask=r->divmask;
+  res->BitsPerExp = r->BitsPerExp;
+  res->ExpPerLong =  r->ExpPerLong;
 
   //p_Procs_s*    p_Procs;