misc/cl_C_debug.cc

   1 // cl_C debugging support.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7
   8
   9 // Implementation.
  10
  11 #include "cln/complex.h"
  12 #include "cln/io.h"
  13 #include "cln/complex_io.h"
  14
  15 namespace cln {
  16
  17 static void dprint (cl_heap* pointer)
  18 {
  19         var const cl_N& obj = *(const cl_N*)&pointer;
  20         fprint(cl_debugout, "(cl_N) ");
  21         fprint(cl_debugout, obj);
  22 }
  23 AT_INITIALIZATION(dprint_N)
  24 { cl_register_type_printer(cl_class_complex,dprint); }
  25
  26 // This dummy links in this module when <cln/complex.h> requires it.
  27 int cl_C_debug_module;
  28
  29 extern int cl_R_debug_module;
  30 static void* dummy[] = { &dummy,
  31         &cl_R_debug_module
  32 };
  33
  34 }  // namespace cln