Changes in src/libcfa/stdlib.c [45161b4d:52f85e0]

File:

• src/libcfa/stdlib.c (modified) (11 diffs)

src/libcfa/stdlib.c

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:10:29 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Apr 13 14:49:58 2016
-// Update Count     : 155
+// Last Modified On : Wed Feb 10 15:45:56 2016
+// Update Count     : 140
 //
 
@@ -27 +27 @@
 } // extern "C"
 
-forall( otype T ) T * malloc( void ) {
-        //printf( "malloc1\n" );
+forall( type T ) T * memset( T * ptr, unsigned char fill ) { // use default value '\0' for fill
+        printf( "memset1\n" );
+    return (T *)memset( ptr, (int)fill, malloc_usable_size( ptr ) );
+} // memset
+forall( type T ) T * memset( T * ptr ) {                                // remove when default value available
+        printf( "memset2\n" );
+    return (T *)memset( ptr, 0, malloc_usable_size( ptr ) );
+} // memset
+
+forall( type T ) T * malloc( void ) {
+        printf( "malloc1\n" );
     return (T *)malloc( sizeof(T) );
 } // malloc
-forall( otype T ) T * malloc( char fill ) {
-        //printf( "malloc3\n" );
+forall( type T ) T * malloc( size_t size ) {
+        printf( "malloc2\n" );
+    return (T *)(void *)malloc( size );
+} // malloc
+forall( type T ) T * malloc( char fill ) {
+        printf( "malloc3\n" );
         T * ptr = (T *)malloc( sizeof(T) );
     return memset( ptr );
 } // malloc
 
-forall( otype T ) T * calloc( size_t nmemb ) {
-        //printf( "calloc\n" );
-    return (T *)calloc( nmemb, sizeof(T) );
+forall( type T ) T * calloc( size_t size ) {
+        printf( "calloc\n" );
+    return (T *)calloc( size, sizeof(T) );
 } // calloc
 
-forall( otype T ) T * realloc( T * ptr, size_t size ) {
-        //printf( "realloc1\n" );
+forall( type T ) T * realloc( T * ptr, size_t size ) {
+        printf( "realloc1\n" );
     return (T *)(void *)realloc( (void *)ptr, size );
 } // realloc
-forall( otype T ) T * realloc( T * ptr, size_t size, unsigned char fill ) {
-        //printf( "realloc2\n" );
+forall( type T ) T * realloc( T * ptr, size_t size, unsigned char fill ) {
+        printf( "realloc2\n" );
     char * nptr = (T *)(void *)realloc( (void *)ptr, size );
     size_t unused = malloc_usable_size( nptr );
@@ -54 +67 @@
 } // realloc
 
-forall( otype T ) T * malloc( T * ptr, size_t size ) {
-        //printf( "malloc4\n" );
+forall( type T ) T * malloc( T * ptr, size_t size ) {
+        printf( "malloc4\n" );
     return (T *)realloc( ptr, size );
 } // malloc
-forall( otype T ) T * malloc( T * ptr, size_t size, unsigned char fill ) {
-        //printf( "malloc5\n" );
+forall( type T ) T * malloc( T * ptr, size_t size, unsigned char fill ) {
+        printf( "malloc5\n" );
     return (T *)realloc( ptr, size, fill );
 } // malloc
 
-forall( otype T ) T * aligned_alloc( size_t alignment ) {
-        //printf( "aligned_alloc\n" );
+forall( type T ) T * aligned_alloc( size_t alignment ) {
+        printf( "aligned_alloc\n" );
     return (T *)memalign( alignment, sizeof(T) );
 } // aligned_alloc
 
-forall( otype T ) T * memalign( size_t alignment ) {
-        //printf( "memalign\n" );
+forall( type T ) T * memalign( size_t alignment ) {
+        printf( "memalign\n" );
     return (T *)memalign( alignment, sizeof(T) );
 } // memalign
 
-forall( otype T ) int posix_memalign( T ** ptr, size_t alignment ) {
-        //printf( "posix_memalign\n" );
+forall( type T ) int posix_memalign( T ** ptr, size_t alignment ) {
+        printf( "posix_memalign\n" );
     return posix_memalign( (void **)ptr, alignment, sizeof(T) );
 } // posix_memalign
-
-forall( otype T ) T * memset( T * ptr, unsigned char fill ) { // use default value '\0' for fill
-        //printf( "memset1\n" );
-    return (T *)memset( ptr, (int)fill, malloc_usable_size( ptr ) );
-} // memset
-forall( otype T ) T * memset( T * ptr ) {                               // remove when default value available
-        //printf( "memset2\n" );
-    return (T *)memset( ptr, 0, malloc_usable_size( ptr ) );
-} // memset
 
 //---------------------------------------
@@ -119 +123 @@
         return ulli;
 }
-
 float ato( const char * ptr ) {
         float f;
@@ -135 +138 @@
         return ld;
 }
-
 float _Complex ato( const char * ptr ) {
         float re, im;
@@ -170 +172 @@
         return strtoull( sptr, eptr, base );
 }
-
 float strto( const char * sptr, char ** eptr ) {
         return strtof( sptr, eptr );
@@ -180 +181 @@
         return strtold( sptr, eptr );
 }
-
 float _Complex strto( const char * sptr, char ** eptr ) {
         float re, im;
@@ -208 +208 @@
 //---------------------------------------
 
-forall( otype T | { int ?<?( T, T ); } )
+forall( type T | { int ?<?( T, T ); } )
 T * bsearch( const T key, const T * arr, size_t dimension ) {
         int comp( const void * t1, const void * t2 ) { return *(T *)t1 < *(T *)t2 ? -1 : *(T *)t2 < *(T *)t1 ? 1 : 0; }
@@ -214 +214 @@
 } // bsearch
 
-forall( otype T | { int ?<?( T, T ); } )
+forall( type T | { int ?<?( T, T ); } )
 void qsort( const T * arr, size_t dimension ) {
         int comp( const void * t1, const void * t2 ) { return *(T *)t1 < *(T *)t2 ? -1 : *(T *)t2 < *(T *)t1 ? 1 : 0; }
@@ -222 +222 @@
 //---------------------------------------
 
-forall( otype T | { T ?/?( T, T ); T ?%?( T, T ); } )
+forall( type T | { T ?/?( T, T ); T ?%?( T, T ); } )
 [ T, T ] div( T t1, T t2 ) { /* return [ t1 / t2, t1 % t2 ]; */ }
 
@@ -239 +239 @@
 //---------------------------------------
 
-float floor( float v ) { return floorf( v ); }
-long double floor( long double v ) { return floorl( v ); }
-
-float ceil( float v ) { return ceilf( v ); }
-long double ceil( long double v ) { return ceill( v ); }
-
-//---------------------------------------
-
-void rand48seed( long int s ) { srand48( s ); }
-char rand48() { return mrand48(); }
-int rand48() { return mrand48(); }
-unsigned int rand48() { return lrand48(); }
-long int rand48() { return mrand48(); }
-unsigned long int rand48() { return lrand48(); }
-float rand48() { return (float)drand48(); }                             // otherwise float uses lrand48
-double rand48() { return drand48(); }
-float _Complex rand48() { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); }
-double _Complex rand48() { return drand48() + (double _Complex)(drand48() * _Complex_I); }
-long double _Complex rand48() { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); }
-
-//---------------------------------------
-
-forall( otype T | { int ?<?( T, T ); } )
+void randseed( long int s ) { srand48( s ); }
+char random() { return lrand48(); }
+int random() { return mrand48(); }
+unsigned int random() { return lrand48(); }
+long int random() { return mrand48(); }
+unsigned long int random() { return lrand48(); }
+float random() { return (float)drand48(); }                             // otherwise float uses lrand48
+double random() { return drand48(); }
+float _Complex random() { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); }
+double _Complex random() { return drand48() + (double _Complex)(drand48() * _Complex_I); }
+long double _Complex random() { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); }
+
+//---------------------------------------
+
+forall( type T | { int ?<?( T, T ); } )
 T min( const T t1, const T t2 ) {
         return t1 < t2 ? t1 : t2;
 } // min
 
-forall( otype T | { int ?>?( T, T ); } )
+forall( type T | { int ?>?( T, T ); } )
 T max( const T t1, const T t2 ) {
         return t1 > t2 ? t1 : t2;
 } // max
 
-forall( otype T )
+forall( type T )
 void swap( T * t1, T * t2 ) {
         T temp = *t1;