7 #include "cl_integer.h"
15 const cl_I minus1 (const cl_I& x)
19 if (x.word != cl_combine(cl_FN_tag,bit(cl_value_len-1)))
20 // bleibt Fixnum: direkt 1 subtrahieren
21 // This assumes cl_value_shift + cl_value_len == cl_pointer_size.
22 { return cl_I_from_word(x.word - cl_combine(0,1)); }
24 // die sichere Methode
29 I_to_NDS_1(x, MSDptr=,len=,LSDptr=); // NDS zu x bilden.
30 DS_minus1_plus(LSDptr,len); // von der NDS 1 subtrahieren
31 return DS_to_I(MSDptr,len); // wieder zum Integer machen