Changeset 0fc52b6 for src/libcfa/stdlib

Timestamp:

Jul 12, 2018, 9:14:07 AM (6 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, no_list, persistent-indexer, pthread-emulation, qualifiedEnum

Children:

3007c0b, 8f91c9ae

Parents:

777ed2b

Message:

first attmept to refactor common routines between stdlib and math

File:

• src/libcfa/stdlib (modified) (3 diffs)

src/libcfa/stdlib

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:12:35 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jul  5 07:41:03 2018
-// Update Count     : 332
+// Last Modified On : Thu Jul 12 08:03:58 2018
+// Update Count     : 337
 //
 
 #pragma once
 
-#include <stdlib.h>                                                                             // allocation, strto*, *abs
+#include <stdlib.h>                                                                             // allocation, strto*, ato*
 extern "C" {
         void * memalign( size_t align, size_t size );           // malloc.h
@@ -227 +227 @@
         size_t bsearchu( K key, const E * vals, size_t dim );
 } // distribution
-
-//---------------------------------------
-
-[ int, int ] div( int num, int denom );
-[ long int, long int ] div( long int num, long int denom );
-[ long long int, long long int ] div( long long int num, long long int denom );
-forall( otype T | { T ?/?( T, T ); T ?%?( T, T ); } )
-[ T, T ] div( T num, T demon );
-
-//---------------------------------------
-
-extern "C" { int abs( int ); }                                                  // use default C routine for int
-static inline {
-        unsigned char abs( signed char v ) { return abs( (int)v ); }
-        unsigned long int abs( long int v ) { return labs( v ); }
-        unsigned long long int abs( long long int v ) { return llabs( v ); }
-} // distribution
-
-extern "C" {                                                                                    // use default C routine for int
-        double fabs( double );
-        float fabsf( float );
-        long double fabsl( long double );
-} // extern "C"
-static inline {
-        float abs( float x ) { return fabsf( x ); }
-        double abs( double x ) { return fabs( x ); }
-        long double abs( long double x ) { return fabsl( x ); }
-} // distribution
-
-extern "C" {                                                                                    // use default C routine for int
-        double cabs( double _Complex );
-        float cabsf( float _Complex );
-        long double cabsl( long double _Complex );
-} // extern "C"
-static inline {
-        float abs( float _Complex x ) { return cabsf( x ); }
-        double abs( double _Complex x ) { return cabs( x ); }
-        long double abs( long double _Complex x ) { return cabsl( x ); }
-} // distribution
-
-forall( otype T | { void ?{}( T &, zero_t ); int ?<?( T, T ); T -?( T ); } )
-T abs( T );
 
 //---------------------------------------
@@ -303 +261 @@
 //---------------------------------------
 
-static inline {
-        forall( otype T | { int ?<?( T, T ); } )
-        T min( T t1, T t2 ) { return t1 < t2 ? t1 : t2; }
-
-        forall( otype T | { int ?>?( T, T ); } )
-        T max( T t1, T t2 ) { return t1 > t2 ? t1 : t2; }
-
-        forall( otype T | { T min( T, T ); T max( T, T ); } )
-        T clamp( T value, T min_val, T max_val ) { return max( min_val, min( value, max_val ) ); }
-
-        forall( otype T )
-        void swap( T & v1, T & v2 ) { T temp = v1; v1 = v2; v2 = temp; }
-} // distribution
+#include "common"
 
 // Local Variables: //