]> www.ginac.de Git - cln.git/blobdiff - src/integer/bitwise/cl_I_logior.cc
* */*: Convert encoding from ISO 8859-1 to UTF-8.
[cln.git] / src / integer / bitwise / cl_I_logior.cc
index 07803faeb029c3aba815af447b42b5cb7ae0f610..bccff4ad6d75c5cfd9245a5837c36b2a0dd07fd2 100644 (file)
 namespace cln {
 
 // Logische Operationen auf Integers:
-// Methode: aus den Längen der beiden Argumente eine obere Schranke für
-// die Länge des Ergebnisses berechnen (das Maximum der beiden Längen und
-// FN_maxlength), so daß das MSD für unendlich viele Bits steht.
-// Dann beide Argumente in gleichgroße Digit sequences umwandeln, Operation
-// mit einer einfachen Schleife durchführen.
+// Methode: aus den Längen der beiden Argumente eine obere Schranke für
+// die Länge des Ergebnisses berechnen (das Maximum der beiden Längen und
+// FN_maxlength), so daß das MSD für unendlich viele Bits steht.
+// Dann beide Argumente in gleichgroße Digit sequences umwandeln, Operation
+// mit einer einfachen Schleife durchführen.
 
 const cl_I logior (const cl_I& x, const cl_I& y)
     { if (fixnump(x) && fixnump(y)) // Beides Fixnums -> ganz einfach:
-        { // bitweise als Fixnum zurück
+        { // bitweise als Fixnum zurück
           return cl_I_from_word(x.word | y.word);
         }
         else
@@ -37,7 +37,7 @@ const cl_I logior (const cl_I& x, const cl_I& y)
          {var uintD* xptr; I_to_DS_n(x,n,xptr=); // Pointer in DS zu x
           var uintD* yptr; I_to_DS_n(y,n,yptr=); // Pointer in DS zu y
           var uintD* zptr = xptr; // Pointer aufs Ergebnis
-          or_loop_msp(xptr,yptr,n); // mit OR verknüpfen
+          or_loop_msp(xptr,yptr,n); // mit OR verknüpfen
           return DS_to_I(zptr,n); // Ergebnis als Integer
     }   }}