src/polynomial/misc/cl_UP_debug.cc

   1 // cl_univpoly_ring debugging support.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7
   8
   9 // Implementation.
  10
  11 #include "cln/univpoly.h"
  12 #include "cl_UP.h"
  13 #include "cln/io.h"
  14
  15 namespace cln {
  16
  17 static void dprint (cl_heap* pointer)
  18 {
  19 //      var const cl_univpoly_ring& obj = *(const cl_univpoly_ring*)&pointer;
  20         fprint(cl_debugout, "(cl_univpoly_ring) ring");
  21         fprint(cl_debugout, get_varname((cl_heap_univpoly_ring*)pointer));
  22 }
  23 AT_INITIALIZATION(dprint_univpoly_ring)
  24 { cl_register_type_printer(cl_class_univpoly_ring,dprint); }
  25
  26 void cl_UP::debug_print () const
  27 {
  28         fprint(cl_debugout, *this);
  29         fprint(cl_debugout, "\n");
  30 }
  31
  32 // This dummy links in this module when <cl_univpoly_ring.h> requires it.
  33 int cl_UP_debug_module;
  34
  35 }  // namespace cln