1 // cl_RA debugging support.
11 #include "cl_rational.h"
13 #include "cl_rational_io.h"
15 static void dprint (cl_heap* pointer)
17 var const cl_RA& obj = *(const cl_RA*)&pointer;
18 fprint(cl_debugout, "(cl_RA) ");
19 fprint(cl_debugout, obj);
21 AT_INITIALIZATION(dprint_RA)
22 { cl_register_type_printer(cl_class_ratio,dprint); }
24 // This dummy links in this module when <cl_rational.h> requires it.
25 int cl_RA_debug_module;
27 extern int cl_I_debug_module;
28 static void* dummy[] = { &dummy,