src/rational/misc/cl_RA_debug.cc

   1 // cl_RA debugging support.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7
   8
   9 // Implementation.
  10
  11 #include "cl_rational.h"
  12 #include "cl_io.h"
  13 #include "cl_rational_io.h"
  14
  15 static void dprint (cl_heap* pointer)
  16 {
  17         var const cl_RA& obj = *(const cl_RA*)&pointer;
  18         fprint(cl_debugout, "(cl_RA) ");
  19         fprint(cl_debugout, obj);
  20 }
  21 AT_INITIALIZATION(dprint_RA)
  22 { cl_register_type_printer(cl_class_ratio,dprint); }
  23
  24 // This dummy links in this module when <cl_rational.h> requires it.
  25 int cl_RA_debug_module;
  26
  27 extern int cl_I_debug_module;
  28 static void* dummy[] = { &dummy,
  29         &cl_I_debug_module
  30 };