Changeset df7a162 for src/prelude/builtins.c

Timestamp:

Feb 26, 2018, 10:44:53 AM (6 years ago)

Author:

Rob Schluntz <rschlunt@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

17fc7a5

Parents:

5a806be4

Message:

Allow builtin objects to be constructed

File:

• src/prelude/builtins.c (modified) (1 diff)

src/prelude/builtins.c

@@ -44 +44 @@
 static inline long int ?\?( long int ep, unsigned long int y ) { // disallow negative exponent
         if ( y == 0 ) return 1;                                                         // base case
-    if ( ep == 2 ) return ep << (y - 1);                                // special case, positive shifting only
-    typeof( ep ) op = 1;                                                                // accumulate odd product
-    for ( ; y > 1; y >>= 1 ) {                                                  // squaring exponentiation, O(log2 y)
+        if ( ep == 2 ) return ep << (y - 1);                            // special case, positive shifting only
+        typeof( ep ) op = 1;                                                            // accumulate odd product
+        for ( ; y > 1; y >>= 1 ) {                                                      // squaring exponentiation, O(log2 y)
                 if ( (y & 1) == 1 ) op *= ep;                                   // odd ?
                 ep *= ep;
         } // for
-    return ep * op;
+        return ep * op;
 } // ?\?
 
-// FIX ME, cannot resolve the "T op = 1".
-
-// static inline forall( otype T | { void ?{}( T * this, one_t ); T ?*?( T, T ); } )
-// T ?\?( T ep, unsigned long int y ) {
-//     if ( y == 0 ) return 1;
-//     T op = 1;
-//     for ( ; y > 1; y >>= 1 ) {                                                       // squaring exponentiation, O(log2 y)
-//              if ( (y & 1) == 1 ) op = op * ep;                               // odd ?
-//              ep = ep * ep;
-//     } // for
-//     return ep * op;
-// } // ?\?
+static inline forall( otype T | { void ?{}( T & this, one_t ); T ?*?( T, T ); } )
+T ?\?( T ep, unsigned long int y ) {
+        if ( y == 0 ) return 1;
+        T op = 1;
+        for ( ; y > 1; y >>= 1 ) {                                                      // squaring exponentiation, O(log2 y)
+                if ( (y & 1) == 1 ) op = op * ep;                               // odd ?
+                ep = ep * ep;
+        } // for
+        return ep * op;
+} // ?\?
 
 // unsigned computation may be faster and larger
 static inline unsigned long int ?\?( unsigned long int ep, unsigned long int y ) { // disallow negative exponent
         if ( y == 0 ) return 1;                                                         // base case
-    if ( ep == 2 ) return ep << (y - 1);                                // special case, positive shifting only
-    typeof( ep ) op = 1;                                                                // accumulate odd product
-    for ( ; y > 1; y >>= 1 ) {                                                  // squaring exponentiation, O(log2 y)
+        if ( ep == 2 ) return ep << (y - 1);                            // special case, positive shifting only
+        typeof( ep ) op = 1;                                                            // accumulate odd product
+        for ( ; y > 1; y >>= 1 ) {                                                      // squaring exponentiation, O(log2 y)
                 if ( (y & 1) == 1 ) op *= ep;                                   // odd ?
                 ep *= ep;
         } // for
-    return ep * op;
+        return ep * op;
 } // ?\?
 
 static inline double ?\?( long int x, signed long int y ) {     // allow negative exponent
-    if ( y >=  0 ) return (double)(x \ (unsigned long int)y);
-    else return 1.0 / x \ (unsigned int)(-y);
+        if ( y >=  0 ) return (double)(x \ (unsigned long int)y);
+        else return 1.0 / x \ (unsigned int)(-y);
 } // ?\?