Changeset 637e70d in git

Timestamp:

Aug 27, 2004, 2:20:40 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

57ab462c1d534a6d7d8d7c1743e469742cd13b8a

Parents:

5e051bd398bf7e25dff4fb56f7e271af657ea798

Message:

*hannes: more debug code


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

File:

• kernel/pInline2.h (modified) (2 diffs)

kernel/pInline2.h

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: pInline2.h,v 1.1.1.1 2003-10-06 12:15:52 Singular Exp $
+ *  Version: $Id: pInline2.h,v 1.2 2004-08-27 12:20:40 Singular Exp $
  *******************************************************************/
 #ifndef PINLINE2_H
@@ -382 +382 @@
 PINLINE2 poly p_Copy(poly p, const ring r)
 {
+#ifdef PDEBUG
+  poly pp= r->p_Procs->p_Copy(p, r);
+  p_Test(pp,r);
+  return pp;
+#else
   return r->p_Procs->p_Copy(p, r);
+#endif
 }