* */*: Convert encoding from ISO 8859-1 to UTF-8.

[cln.git] / src / integer / elem / cl_I_square.cc

diff --git a/src/integer/elem/cl_I_square.cc b/src/integer/elem/cl_I_square.cc
index cd48ac302b22630d4dd58fdbae7a349b04186390..257e98127af572ac1a2aa16179e58b059dd943fd 100644 (file)
--- a/src/integer/elem/cl_I_square.cc
+++ b/src/integer/elem/cl_I_square.cc
@@ -23,7 +23,7 @@ const cl_I square (const cl_I& x)
       if (fixnump(x))
         { var sintV x_ = FN_to_V(x);
           #if (cl_value_len > 32)
-          // nur falls x ein Integer mit höchstens 32 Bit ist:
+          // nur falls x ein Integer mit höchstens 32 Bit ist:
           if ((uintV)((sintV)sign_of(x_) ^ x_) < bit(31))
           #endif
             {
@@ -31,7 +31,7 @@ const cl_I square (const cl_I& x)
               var uint32 hi;
               var uint32 lo;
               mulu32((uint32)x_,(uint32)x_,hi=,lo=); // erst unsigned multiplizieren
-              if (x_ < 0) { hi -= 2*(uint32)x_; } // dann Korrektur für Vorzeichen
+              if (x_ < 0) { hi -= 2*(uint32)x_; } // dann Korrektur für Vorzeichen
               return L2_to_I(hi,lo);
             }
         }