2006-04-25 Bruno Haible <bruno@clisp.org>

[cln.git] / src / integer / misc / cl_I_power2p.cc

diff --git a/src/integer/misc/cl_I_power2p.cc b/src/integer/misc/cl_I_power2p.cc
index 0ec593c3aeaaa60a6260322906ea07e967493e82..dc29c24d8eda6ec66f7f4d0ba3bdb2dccbb93698 100644 (file)
--- a/src/integer/misc/cl_I_power2p.cc
+++ b/src/integer/misc/cl_I_power2p.cc
@@ -14,16 +14,20 @@
 
 namespace cln {
 
-uintL power2p (const cl_I& x) // x > 0
+uintC power2p (const cl_I& x) // x > 0
 {
 // Methode 1: Wenn ord2(x) = integer_length(x)-1.
 // Methode 2: Wenn logand(x,x-1) = 0.
 // Methode 3: Wenn das erste Digit /=0 eine Zweierpotenz ist und alle weiteren
 //            Digits Null sind.
        if (fixnump(x))
-         { var uintL x_ = FN_to_UL(x);
+         { var uintV x_ = FN_to_UV(x);
            if (!((x_ & (x_-1)) == 0)) return 0; // keine Zweierpotenz
+            #if (intVsize>32)
+            integerlength64(x_,return); // Zweierpotenz: n = integer_length(x)
+            #else
            integerlength32(x_,return); // Zweierpotenz: n = integer_length(x)
+            #endif
          }
          else
          { var const uintD* MSDptr;
@@ -37,7 +41,7 @@ uintL power2p (const cl_I& x) // x > 0
            if (DS_test_loop(MSDptr mspop 1,len-1,LSDptr)) return 0; // danach alles Nullen
           {var uintL msdlen;
            integerlengthD(msd, msdlen=);
-           return intDsize*(uintL)(len-1) + msdlen; // integer_length(x) als Ergebnis
+           return intDsize*(len-1) + msdlen; // integer_length(x) als Ergebnis
          }}
 }