Changeset 5589c0 in git for Singular/longalg.cc

Timestamp:

Mar 22, 2001, 8:11:09 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8d00695ab431dc1599790b2d6e83c18c4b67069c

Parents:

ec7299504b1d2ac3aec79da0344f1272b0c51265

Message:

*hannes: 2-1-patches


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

File:

• Singular/longalg.cc (modified) (3 diffs)

Singular/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.59 2001-02-20 09:45:44 Singular Exp $ */
+/* $Id: longalg.cc,v 1.60 2001-03-22 19:11:05 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -197 +197 @@
 #define napDelete1(p)    p_LmDelete((poly *)p, currRing->algring)
 #define napCopy(p)       (napoly)p_Copy((poly)p,currRing->algring)
+#define nap_Copy(p,r)       (napoly)p_Copy((poly)p,r->algring)
 #define napComp(p,q)     p_LmCmp((poly)p,(poly)q, currRing->algring)
 #define napMultT(A,E)    A=(napoly)p_Mult_mm((poly)A,(poly)E,currRing->algring)
@@ -1377 +1378 @@
   erg->z = napCopy(src->z);
   erg->n = napCopy(src->n);
+  erg->s = src->s;
+  return (number)erg;
+}
+number na_Copy(number p, ring r)
+{
+  if (p==NULL) return NULL;
+  lnumber erg;
+  lnumber src = (lnumber)p;
+  erg = (lnumber)omAlloc0Bin(rnumber_bin);
+  erg->z = nap_Copy(src->z,r);
+  erg->n = nap_Copy(src->n,r);
   erg->s = src->s;
   return (number)erg;