// L_to_I() helper.
// General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
// Specification.
-#include "cl_I.h"
+#include "integer/cl_I.h"
// Implementation.
#if (cl_value_len < 32)
-#include "cl_DS.h"
+#include "base/digitseq/cl_DS.h"
namespace cln {
cl_private_thing cl_I_constructor_from_L (sint32 wert)
{
var uint32 test = wert & minus_bit(cl_value_len-1);
- // test enthält die Bits, die nicht in den Fixnum-Wert >= 0 reinpassen.
+ // test enthält die Bits, die nicht in den Fixnum-Wert >= 0 reinpassen.
if ((test == 0) || (test == (uint32)minus_bit(cl_value_len-1)))
{ return (cl_private_thing)(cl_combine(cl_FN_tag,wert)); }
#if (intDsize==64)
return (cl_private_thing)(ptr);
#else
// Bignum erzeugen:
- // (dessen Länge bn_minlength <= n <= ceiling(32/intDsize) erfüllt)
+ // (dessen Länge bn_minlength <= n <= ceiling(32/intDsize) erfüllt)
if (bn_minlength == ceiling(32,intDsize)) {
#if (intDsize==8)
goto bignum4;