]> www.ginac.de Git - cln.git/blob - src/vector/cl_GV_I_debug.cc
* All Files have been modified for inclusion of namespace cln;
[cln.git] / 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 "cln/GV_integer.h"
12 #include "cln/io.h"
13
14 namespace cln {
15
16 static void dprint (cl_heap* pointer)
17 {
18         var const cl_GV_I& obj = *(const cl_GV_I*)&pointer;
19         fprint(cl_debugout, "(cl_GV_I) ");
20         fprint(cl_debugout, obj);
21 }
22 AT_INITIALIZATION(dprint_GV_I)
23 { cl_register_type_printer(cl_class_gvector_integer,dprint); }
24
25 // This dummy links in this module when <cln/GV_integer.h> requires it.
26 int cl_GV_I_debug_module;
27
28 }  // namespace cln