4 #include "base/cl_sysdep.h"
7 #include "cln/integer.h"
12 #include "integer/cl_I.h"
13 #include "base/digitseq/cl_DS.h"
17 const cl_I plus1 (const cl_I& x)
21 if (x.word != cl_combine(cl_FN_tag,bit(cl_value_len-1)-1))
22 // bleibt Fixnum: direkt 1 addieren
23 // This assumes cl_value_shift + cl_value_len == cl_pointer_size.
24 { return cl_I_from_word(x.word + cl_combine(0,1)); }
26 // die sichere Methode
31 I_to_NDS_1(x, MSDptr=,len=,LSDptr=); // NDS zu x bilden.
32 DS_1_plus(LSDptr,len); // zur NDS 1 addieren
33 return DS_to_I(MSDptr,len); // wieder zum Integer machen