13 #include "cln/abort.h"
17 void cl_as_error (const cl_number& obj, const char * typestring, const char * filename, int line)
19 fprint(std::cerr, "Type assertion failed: in file ");
20 fprint(std::cerr, filename);
21 fprint(std::cerr, ", line ");
22 fprintdecimal(std::cerr, line);
23 fprint(std::cerr, ", not ");
24 fprint(std::cerr, typestring);
25 fprint(std::cerr, ": ");
26 #if 0 // This brings in a dependency from the complex and float printer and all the float stuff.
27 fprint(std::cerr, obj);
29 fprint(std::cerr, "@0x");
30 fprinthexadecimal(std::cerr, (unsigned long)(void*)&obj);
31 fprint(std::cerr, ": 0x");
32 fprinthexadecimal(std::cerr, (unsigned long)obj.word);
34 fprint(std::cerr, "\n");