Changeset d523f3 in git

Timestamp:

Mar 14, 2005, 5:17:07 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

a686c9c02d0bfc59b2d80093c2835e26db7d14be

Parents:

0b1cef8f45439b72a4d1a61eda044890a7780a7f

Message:

*hannes; id_Copy


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

Location:

kernel

Files:

• ideals.cc (modified) (2 diffs)
• ideals.h (modified) (2 diffs)

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.6 2005-02-17 09:42:19 Singular Exp $ */
+/* $Id: ideals.cc,v 1.7 2005-03-14 16:17:07 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -331 +331 @@
 #ifdef PDEBUG
 ideal idDBCopy(ideal h1,char *f,int l)
-#else
-ideal idCopy (ideal h1)
-#endif
 {
   int i;
   ideal h2;
 
-#ifdef PDEBUG
   idDBTest(h1,PDEBUG,f,l);
-#endif
 //#ifdef TEST
   if (h1 == NULL)
   {
-#ifdef PDEBUG
     h2=idDBInit(1,1,f,l);
-#else
-    h2=idInit(1,1);
-#endif
   }
   else
 //#endif
   {
-#ifdef PDEBUG
     h2=idDBInit(IDELEMS(h1),h1->rank,f,l);
-#else
-    h2=idInit(IDELEMS(h1),h1->rank);
-#endif
     for (i=IDELEMS(h1)-1; i>=0; i--)
       h2->m[i] = pCopy(h1->m[i]);
+  }
+  return h2;
+}
+#endif
+
+ideal id_Copy (ideal h1, const ring r)
+{
+  int i;
+  ideal h2;
+
+//#ifdef TEST
+  if (h1 == NULL)
+  {
+    h2=idInit(1,1);
+  }
+  else
+//#endif
+  {
+    h2=idInit(IDELEMS(h1),h1->rank);
+    for (i=IDELEMS(h1)-1; i>=0; i--)
+      h2->m[i] = p_Copy(h1->m[i],r);
   }
   return h2;

kernel/ideals.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.h,v 1.2 2004-07-16 08:43:00 Singular Exp $ */
+/* $Id: ideals.h,v 1.3 2005-03-14 16:17:07 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -44 +44 @@
 #endif
 
+ideal id_Copy (ideal h1,const ring r);
 #ifdef PDEBUG
 ideal idDBCopy(ideal h1,char *f,int l);
 #define idCopy(A) idDBCopy(A,__FILE__,__LINE__)
 #else
-ideal idCopy (ideal h1);
+#define idCopy(A) id_Copy(A,currRing)
 #endif
   /*adds two ideals without simplifying the result*/