Changeset 512a2b in git for Singular/p_Copy__Template.cc

Timestamp:

Sep 18, 2000, 11:19:39 AM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d1655e92ca71fb37d1b57af88efdff5b65b8988b

Parents:

f3398d316400fe1ee1677fc397cacb80566ac664

Message:

p_polys.h


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

File:

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

Singular/p_Copy__Template.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_Copy__Template.cc,v 1.2 2000-09-12 16:01:06 obachman Exp $
+ *  Version: $Id: p_Copy__Template.cc,v 1.3 2000-09-18 09:19:25 obachman Exp $
  *******************************************************************/
 
 poly p_Copy(poly s_p, const ring r)
 {
-  pTest(s_p);
+  // let's not do tests here -- but instead allow
+  // to be sloppy
   spolyrec dp;
   poly d_p = &dp;
@@ -22 +23 @@
   while (s_p != NULL)
   {
-    omTypeAllocBin(poly, pNext(d_p), bin);
+    p_AllocBin(pNext(d_p), bin, r);
     pIter(d_p);
-    pSetCoeff0(d_p, p_nCopy(pGetCoeff(s_p), r));
+    pSetCoeff0(d_p, n_Copy(pGetCoeff(s_p), r));
     // it is better to iter here,
     // for MemCopy advances goes from low to high addresses
@@ -33 +34 @@
   pNext(d_p) = NULL;
 
-  pTest(dp.next);
-#if PDEBUG
-  assume(pEqual(s_p, dp.next));
-#endif
   return dp.next;
 }