src/vector/cl_GV_I_debug.cc

   1 // cl_GV_I debugging support.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7
   8
   9 // Implementation.
  10
  11 #include "cl_GV_integer.h"
  12 #include "cl_io.h"
  13
  14 static void dprint (cl_heap* pointer)
  15 {
  16         var const cl_GV_I& obj = *(const cl_GV_I*)&pointer;
  17         fprint(cl_debugout, "(cl_GV_I) ");
  18         fprint(cl_debugout, obj);
  19 }
  20 AT_INITIALIZATION(dprint_GV_I)
  21 { cl_register_type_printer(cl_class_gvector_integer,dprint); }
  22
  23 // This dummy links in this module when <cl_GV_integer.h> requires it.
  24 int cl_GV_I_debug_module;