7 #include "cln/integer.h"
18 // Logische Operationen auf Integers:
19 // Methode: aus den Längen der beiden Argumente eine obere Schranke für
20 // die Länge des Ergebnisses berechnen (das Maximum der beiden Längen und
21 // FN_maxlength), so daß das MSD für unendlich viele Bits steht.
22 // Dann beide Argumente in gleichgroße Digit sequences umwandeln, Operation
23 // mit einer einfachen Schleife durchführen.
25 const cl_I logeqv (const cl_I& x, const cl_I& y)
26 { if (fixnump(x) && fixnump(y)) // Beides Fixnums -> ganz einfach:
27 { // bitweise als Fixnum zurück
28 return cl_I_from_word(~(x.word ^ y.word) & cl_combine(cl_FN_tag,~(cl_uint)0));
32 var uintC n; // Anzahl der Digits
33 {var uintC nx = I_to_DS_need(x);
34 var uintC ny = I_to_DS_need(y);
35 n = (nx>=ny ? nx : ny);
37 {var uintD* xptr; I_to_DS_n(x,n,xptr=); // Pointer in DS zu x
38 var uintD* yptr; I_to_DS_n(y,n,yptr=); // Pointer in DS zu y
39 var uintD* zptr = xptr; // Pointer aufs Ergebnis
40 eqv_loop_msp(xptr,yptr,n); // mit NOT XOR verknüpfen
41 return DS_to_I(zptr,n); // Ergebnis als Integer