Changeset 62595b31 for libcfa/prelude

Timestamp:

Nov 8, 2024, 5:14:27 PM (6 weeks ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

44e2a5a

Parents:

135a2d8

Message:

temporary update of exponentiation operator due to possible bug in box-pass

File:

• libcfa/prelude/builtins.c (modified) (2 diffs)

libcfa/prelude/builtins.c

@@ -10 +10 @@
 // Created On       : Fri Jul 21 16:21:03 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Feb  2 11:33:56 2023
-// Update Count     : 135
+// Last Modified On : Fri Nov  8 17:07:15 2024
+// Update Count     : 144
 //
 
@@ -140 +140 @@
         ) \
         typeof(x) op = 1;                                                                       /* accumulate odd product */ \
+        typeof(x) w = x; /* FIX-ME: possible bug in the box pass changing value argument through parameter */ \
         for ( ; y > 1; y >>= 1 ) {                                                      /* squaring exponentiation, O(log2 y) */ \
-                if ( (y & 1) == 1 ) op = op * x;                                /* odd ? */ \
-                x = x * x; \
+                if ( (y & 1) == 1 ) op = op * w;                                /* odd ? */ \
+                w = w * w; \
         } \
-        return x * op
+        return w * op
 #define __CFA_EXP_INT__(...) __VA_ARGS__