1 // cl_modint_ring debugging support.
11 #include "cl_modinteger.h"
13 #include "cl_integer_io.h"
15 static void dprint (cl_heap* pointer)
17 var const cl_modint_ring& obj = *(const cl_modint_ring*)&pointer;
18 fprint(cl_debugout, "(cl_modint_ring) Z mod ");
19 fprint(cl_debugout, obj->modulus);
21 AT_INITIALIZATION(dprint_modint_ring)
22 { cl_register_type_printer(cl_class_modint_ring,dprint); }
24 void cl_MI::debug_print () const
26 fprint(cl_debugout, *this);
27 fprint(cl_debugout, "\n");
30 // This dummy links in this module when <cl_modinteger.h> requires it.
31 int cl_MI_debug_module;