src/integer/bitwise/cl_I_asherr.cc

   1 // cl_ash_error().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_I_ash.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cln/number.h"
  13 #include "cln/io.h"
  14 #include "cln/integer_io.h"
  15 #include "cln/abort.h"
  16
  17 namespace cln {
  18
  19 void cl_ash_error (const cl_I& badamount)
  20 {
  21         fprint(stderr, "ash: too large shift amount: ");
  22         fprint(stderr, badamount);
  23         fprint(stderr, "\n");
  24         cl_abort();
  25 }
  26
  27 }  // namespace cln