The patch of 2005-05-01 made it impossible to test the type of a cl_UP

by comparing with &cl_class_univpoly_ring. We need an alternative: * include/cln/object.h (cl_class_flags_modint_ring): New #define... * src/polynomial/elem/cl_UP.cc (cl_class_univpoly_ring): ...used here. * src/polynomial/elem/cl_UP_GF2.h: Likewise. * src/polynomial/elem/cl_UP_MI.h: Likewise. * src/polynomial/elem/cl_UP_gen.h: Likewise. * src/polynomial/elem/cl_UP_number.h: Likewise.
20 years ago · e269351d54
7 changed files with 18 additions and 5 deletions
--- a/11
+++ b/11
@ -1,3 +1,14 @@
+2005-08-16  Richard B. Kreckel  <kreckel@ginac.de>
+
+	The patch of 2005-05-01 made it impossible to test the type of a cl_UP
+	by comparing with &cl_class_univpoly_ring. We need an alternative:
+	* include/cln/object.h (cl_class_flags_modint_ring): New #define...
+	* src/polynomial/elem/cl_UP.cc (cl_class_univpoly_ring): ...used here.
+	* src/polynomial/elem/cl_UP_GF2.h: Likewise.
+	* src/polynomial/elem/cl_UP_MI.h: Likewise.
+	* src/polynomial/elem/cl_UP_gen.h: Likewise.
+	* src/polynomial/elem/cl_UP_number.h: Likewise.
+
 2005-08-15  Richard B. Kreckel  <kreckel@ginac.de>

 	* m4/cc.m4 (CL_AS_NOEXECSTACK): New macro...
--- a/include/cln/object.h
+++ b/include/cln/object.h
@ -177,6 +177,8 @@ typedef void (*cl_heap_destructor_function) (cl_heap* pointer);
                                             // elements belong to cl_number
 #define cl_class_flags_modint_ring       32  // all instances are rings whose
                                             // elements belong to cl_MI
+#define cl_class_flags_univpoly_ring     64  // all instances are rings whose
+                                             // elements belong to cl_UP
 // Function to print an object for debugging, to cerr.
 typedef void (*cl_heap_dprint_function) (cl_heap* pointer);

--- a/src/polynomial/elem/cl_UP.cc
+++ b/src/polynomial/elem/cl_UP.cc
@ -45,7 +45,7 @@ static void cl_univpoly_ring_destructor (cl_heap* pointer)

 cl_class cl_class_univpoly_ring = {
 	cl_univpoly_ring_destructor,
-	0
+	cl_class_flags_univpoly_ring
 };

 cl_heap_univpoly_ring::cl_heap_univpoly_ring (const cl_ring& r, cl_univpoly_setops* setopv, cl_univpoly_addops* addopv, cl_univpoly_mulops* mulopv, cl_univpoly_modulops* modulopv, cl_univpoly_polyops* polyopv)
--- a/src/polynomial/elem/cl_UP_GF2.h
+++ b/src/polynomial/elem/cl_UP_GF2.h
@ -1053,7 +1053,7 @@ static void cl_heap_gf2_univpoly_ring_destructor (cl_heap* pointer)

 cl_class cl_class_gf2_univpoly_ring = {
 	cl_heap_gf2_univpoly_ring_destructor,
-	0
+	cl_class_flags_univpoly_ring
 };

 // Constructor.
--- a/src/polynomial/elem/cl_UP_MI.h
+++ b/src/polynomial/elem/cl_UP_MI.h
@ -493,7 +493,7 @@ static void cl_heap_modint_univpoly_ring_destructor (cl_heap* pointer)

 cl_class cl_class_modint_univpoly_ring = {
 	cl_heap_modint_univpoly_ring_destructor,
-	0
+	cl_class_flags_univpoly_ring
 };

 // Constructor.
--- a/src/polynomial/elem/cl_UP_gen.h
+++ b/src/polynomial/elem/cl_UP_gen.h
@ -472,7 +472,7 @@ static void cl_heap_gen_univpoly_ring_destructor (cl_heap* pointer)

 cl_class cl_class_gen_univpoly_ring = {
 	cl_heap_gen_univpoly_ring_destructor,
-	0
+	cl_class_flags_univpoly_ring
 };

 // Constructor.
--- a/src/polynomial/elem/cl_UP_number.h
+++ b/src/polynomial/elem/cl_UP_number.h
@ -475,7 +475,7 @@ static void cl_heap_num_univpoly_ring_destructor (cl_heap* pointer)

 cl_class cl_class_num_univpoly_ring = {
 	cl_heap_num_univpoly_ring_destructor,
-	0
+	cl_class_flags_univpoly_ring
 };

 // Constructor.