1 // cl_C debugging support.
4 #include "base/cl_sysdep.h"
11 #include "cln/complex.h"
13 #include "cln/complex_io.h"
17 static void dprint (cl_heap* pointer)
19 var const cl_N& obj = *(const cl_N*)&pointer;
20 fprint(cl_debugout, "(cl_N) ");
21 fprint(cl_debugout, obj);
23 AT_INITIALIZATION(dprint_N)
24 { cl_register_type_printer(cl_class_complex,dprint); }
26 // This dummy links in this module when <cln/complex.h> requires it.
27 int cl_C_debug_module;
29 extern int cl_R_debug_module;
30 static void* dummy[] = { &dummy,