Changeset 223636 in git

Timestamp:

Jan 7, 2009, 4:22:40 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

2c03503b0ef863a6806cf7c05b2364038ad59a1a

Parents:

14193f37566dc9e37aa5284d788883e688efd44e

Message:

*hannes: rCopy0


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

File:

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

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.109 2009-01-07 14:54:05 Singular Exp $ */
+/* $Id: ring.cc,v 1.110 2009-01-07 15:22:40 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));
   res->idroot=NULL; /* local objects */
   //int*       order;  /* array of orderings */
@@ -1508 +1510 @@
 
   res->N=r->N;      /* number of vars */
-
   res->P=r->P;      /* number of pars */
   res->OrdSgn=r->OrdSgn; /* 1 for polynomial rings, -1 otherwise */
@@ -1587 +1588 @@
   //  nc_struct*    _nc; // private
 #endif
-
-  memcpy4(res,r,sizeof(ip_sring));
-  res->NegWeightL_Offset=NULL;
-  res->VarL_Offset=NULL;
-  res->ordsgn=NULL;
-  res->typ=NULL;
-  res->order=NULL;
-  res->VarOffset = NULL;
-  res->p_Procs=NULL;
+  res->options=r->options;
+  #ifdef HAVE_RINGS
+  res->ringtype=r->ringtype;
+  #endif
   res->cf=NULL;
   res->PolyBin=NULL;
-  res->ref=0;
+  //
   if (r->algring!=NULL)
     r->algring->ref++;
+  res->algring=r->algring;
   if (r->parameter!=NULL)
   {
@@ -1649 +1646 @@
     res->names[i] = omStrDup(r->names[i]);
   }
-  res->idroot = NULL;
   if (r->qideal!=NULL)
   {
@@ -1655 +1651 @@
     else res->qideal = NULL;
   }
+  else res->qideal = NULL;
 #ifdef HAVE_PLURAL
   res->GetNC() = NULL; // copy is purely commutative!!!