]> www.ginac.de Git - cln.git/blobdiff - src/integer/bitwise/cl_I_logtest.cc
Finalize CLN 1.3.7 release.
[cln.git] / src / integer / bitwise / cl_I_logtest.cc
index 5a2d0c17f2a303138839595874679285c54f8b24..cbff7e09e9e7e2fdc75e1602a7c9cd05d81edaa2 100644 (file)
@@ -1,7 +1,7 @@
 // logtest().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/integer.h"
@@ -9,8 +9,8 @@
 
 // Implementation.
 
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
 
 namespace cln {
 
@@ -18,8 +18,8 @@ bool logtest (const cl_I& x, const cl_I& y)
 {
     // Methode:
     //  Fixnums separat behandeln.
-    //  Sei oBdA x die kürzere der beiden Zahlen (in Digits).
-    //  x echt kürzer und x<0 -> [eines der most signif. intDsize+1 Bits von y ist 1] Ja.
+    //  Sei oBdA x die kürzere der beiden Zahlen (in Digits).
+    //  x echt kürzer und x<0 -> [eines der most signif. intDsize+1 Bits von y ist 1] Ja.
     //  Beide gleich lang oder x>=0 ->
     //   Kann mich auf die untersten length(x) Digits beschraenken.
     //   Mit AND durchlaufen, abbrechen (mit "Ja") falls /=0. Am Ende: Nein.
@@ -32,7 +32,7 @@ bool logtest (const cl_I& x, const cl_I& y)
               return true;
           }
           else
-          // x Fixnum, y Bignum, also ist x echt kürzer
+          // x Fixnum, y Bignum, also ist x echt kürzer
           { if (FN_V_minusp(x,FN_to_V(x))) return true; // x<0 -> ja.
             // x>=0. Kombiniere x mit den pFN_maxlength letzten Digits von y.
            {var const uintD* yLSDptr;
@@ -76,17 +76,17 @@ bool logtest (const cl_I& x, const cl_I& y)
             if (!(xlen==ylen))
               // beide verschieden lang
               { if (xlen<ylen)
-                  { // x ist die echt kürzere DS.
-                    if ((sintD)mspref(xMSDptr,0)<0) // der echt kürzere ist negativ?
+                  { // x ist die echt kürzere DS.
+                    if ((sintD)mspref(xMSDptr,0)<0) // der echt kürzere ist negativ?
                       return true;
-                    // Der echt kürzere ist positiv.
+                    // Der echt kürzere ist positiv.
                     yMSDptr = yMSDptr mspop (ylen-xlen);
                   }
                   else
-                  { // y ist die echt kürzere DS.
-                    if ((sintD)mspref(yMSDptr,0)<0) // der echt kürzere ist negativ?
+                  { // y ist die echt kürzere DS.
+                    if ((sintD)mspref(yMSDptr,0)<0) // der echt kürzere ist negativ?
                       return true;
-                    // Der echt kürzere ist positiv.
+                    // Der echt kürzere ist positiv.
                     xMSDptr = xMSDptr mspop (xlen-ylen);
                     xlen = ylen;
               }   }