src/base/cl_as_err.cc

   1 // cl_as_error().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_N.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cln/io.h"
  13 #include "cln/abort.h"
  14
  15 namespace cln {
  16
  17 void cl_as_error (const cl_number& obj, const char * typestring, const char * filename, int line)
  18 {
  19         fprint(stderr, "Type assertion failed: in file ");
  20         fprint(stderr, filename);
  21         fprint(stderr, ", line ");
  22         fprintdecimal(stderr, line);
  23         fprint(stderr, ", not ");
  24         fprint(stderr, typestring);
  25         fprint(stderr, ": ");
  26 #if 0 // This brings in a dependency from the complex and float printer and all the float stuff.
  27         fprint(stderr, obj);
  28 #else
  29         fprint(stderr, "@0x");
  30         fprinthexadecimal(stderr, (unsigned long)(void*)&obj);
  31         fprint(stderr, ": 0x");
  32         fprinthexadecimal(stderr, (unsigned long)obj.word);
  33 #endif
  34         fprint(stderr, "\n");
  35         cl_abort();
  36 }
  37
  38 }  // namespace cln