Changeset 0c3e67 in git

Timestamp:

Dec 8, 2000, 3:43:46 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1cf2dc689f8efb78a20e7d2cafb16cf1005eed55

Parents:

98621a5b684f137b6eeb5faaee33834605a7b2de

Message:

*hannes: algmap stuff


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

File:

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

Singular/prCopy.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: prCopy.cc,v 1.9 2000-11-03 14:50:23 obachman Exp $ */
+/* $Id: prCopy.cc,v 1.10 2000-12-08 14:43:46 Singular Exp $ */
 /*
 * ABSTRACT - implementation of functions for Copy/Move/Delete for Polys
@@ -131 +131 @@
 prCopyEvector(poly dest, ring dest_r, poly src, ring src_r,int max)
 {
-  assume(dest_r == currRing);
+  assume((dest_r == currRing)||(dest_r== currRing->algring));
   number n = pGetCoeff(dest);
-  int i=0;
-  for (i=max; i; i--)
+  int i;
+  for (i=max; i>0; i--)
   {
     p_SetExp(dest, i, p_GetExp( src, i,src_r), dest_r);
     assume(n == pGetCoeff(dest));
   }
-  p_SetComp(dest, p_GetComp( src,src_r), dest_r);
-    assume(n == pGetCoeff(dest));
+  if (rRing_has_Comp(dest_r))
+    p_SetComp(dest, p_GetComp( src,src_r), dest_r);
+  assume(n == pGetCoeff(dest));
   p_Setm(dest, dest_r);
   assume(n == pGetCoeff(dest));