Changeset a1edafa for src/libcfa

Timestamp:

Jul 21, 2017, 5:28:45 PM (7 years ago)

Author:

Peter A. Buhr <pabuhr@…>

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:

6b0b624

Parents:

6d54c3a

Message:

move exponential implementation from math to builtin

File:

• src/libcfa/math (modified) (2 diffs)

src/libcfa/math

@@ -10 +10 @@
 // Created On       : Mon Apr 18 23:37:04 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jul 20 21:45:07 2017
-// Update Count     : 77
+// Last Modified On : Fri Jul 21 17:03:13 2017
+// Update Count     : 101
 //
 
@@ -83 +83 @@
 static inline double _Complex pow( double _Complex x, double _Complex y ) { return cpow( x, y ); }
 static inline long double _Complex pow( long double _Complex x, long double _Complex y ) { return cpowl( x, y ); }
-
-static inline float ?\?( float x, float y ) { return powf( x, y ); }
-static inline double ?\?( double x, double y ) { return pow( x, y ); }
-static inline long double ?\?( long double x, long double y ) { return powl( x, y ); }
-static inline float _Complex ?\?( float _Complex x, _Complex float y ) { return cpowf(x, y ); }
-static inline double _Complex ?\?( double _Complex x, _Complex double y ) { return cpow( x, y ); }
-static inline long double _Complex ?\?( long double _Complex x, _Complex long double y ) { return cpowl( x, y ); }
-
-static inline float ?\=?( float * x, float y ) { *x = *x \ y; return *x; }
-static inline double ?\=?( double * x, double y ) { *x = *x \ y; return *x; }
-static inline long double ?\=?( long double * x, long double y ) { *x = *x \ y; return *x; }
-static inline float _Complex ?\=?( float _Complex * x, _Complex float y ) { *x = *x \ y; return *x; }
-static inline double _Complex ?\=?( double _Complex * x, _Complex double y ) { *x = *x \ y; return *x; }
-static inline long double _Complex ?\=?( long double _Complex * x, _Complex long double y ) { *x = *x \ y; return *x; }
-
-static inline long int ?\?( long int x, unsigned long y ) {     // disallow negative exponent
-    if ( y == 0 ) return 1;
-    if ( x == 2 ) return x << (y - 1);
-    long int prod = 1;
-    for ( unsigned int i = 0; i < y; i += 1 ) {
-                prod = prod * x;
-    } // for
-    return prod;
-}
-static inline double ?\?( long int x, signed long y ) { // allow negative exponent
-    if ( y >=  0 ) return (double)(x \ (unsigned int)y);
-    else return 1.0 / x \ (unsigned int)(-y);
-}
-static inline forall( otype T | { void ?{}( T * this, one_t ); T ?*?( T, T ); } )
-T ?\?( T x, unsigned long y ) {
-    T prod = 1;
-    for ( unsigned int i = 1; i < y; i += 1 ) {
-                prod = prod * x;
-    } // for
-    return prod;
-}
-static inline long int ?\=?( long int * x, unsigned long y ) { *x = *x \ y; return *x; }
-static inline int ?\=?( int * x, unsigned long y ) { *x = *x \ y; return *x; }
 
 //---------------------- Logarithm ----------------------