1 // cl_I debugging support.
11 #include "cl_integer.h"
13 #include "cl_integer_io.h"
15 static void dprint (cl_heap* pointer)
17 var const cl_I& obj = *(const cl_I*)&pointer;
18 fprint(cl_debugout, "(cl_I) ");
19 fprint(cl_debugout, obj);
21 AT_INITIALIZATION(dprint_I)
23 cl_register_type_printer(cl_class_fixnum,dprint);
24 cl_register_type_printer(cl_class_bignum,dprint);
27 // This dummy links in this module when <cl_integer.h> requires it.
28 int cl_I_debug_module;