Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/libcfa/stdlib.c

    r3cfe27f r4040425  
    1010// Created On       : Thu Jan 28 17:10:29 2016
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed Mar 23 13:26:42 2016
    13 // Update Count     : 146
     12// Last Modified On : Wed Mar  2 17:38:47 2016
     13// Update Count     : 143
    1414//
    1515
     
    2626#include <complex.h>                                                                    // _Complex_I, cabsf, cabs, cabsl
    2727} // extern "C"
     28
     29forall( otype T ) T * memset( T * ptr, unsigned char fill ) { // use default value '\0' for fill
     30        printf( "memset1\n" );
     31    return (T *)memset( ptr, (int)fill, malloc_usable_size( ptr ) );
     32} // memset
     33forall( otype T ) T * memset( T * ptr ) {                               // remove when default value available
     34        printf( "memset2\n" );
     35    return (T *)memset( ptr, 0, malloc_usable_size( ptr ) );
     36} // memset
    2837
    2938forall( otype T ) T * malloc( void ) {
     
    8291} // posix_memalign
    8392
    84 forall( otype T ) T * memset( T * ptr, unsigned char fill ) { // use default value '\0' for fill
    85         printf( "memset1\n" );
    86     return (T *)memset( ptr, (int)fill, malloc_usable_size( ptr ) );
    87 } // memset
    88 forall( otype T ) T * memset( T * ptr ) {                               // remove when default value available
    89         printf( "memset2\n" );
    90     return (T *)memset( ptr, 0, malloc_usable_size( ptr ) );
    91 } // memset
    92 
    9393//---------------------------------------
    9494
     
    243243//---------------------------------------
    244244
    245 void rand48seed( long int s ) { srand48( s ); }
    246 char rand48() { return mrand48(); }
    247 int rand48() { return mrand48(); }
    248 unsigned int rand48() { return lrand48(); }
    249 long int rand48() { return mrand48(); }
    250 unsigned long int rand48() { return lrand48(); }
    251 float rand48() { return (float)drand48(); }                             // otherwise float uses lrand48
    252 double rand48() { return drand48(); }
    253 float _Complex rand48() { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); }
    254 double _Complex rand48() { return drand48() + (double _Complex)(drand48() * _Complex_I); }
    255 long double _Complex rand48() { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); }
     245void randseed( long int s ) { srand48( s ); }
     246char random() { return lrand48(); }
     247int random() { return mrand48(); }
     248unsigned int random() { return lrand48(); }
     249long int random() { return mrand48(); }
     250unsigned long int random() { return lrand48(); }
     251float random() { return (float)drand48(); }                             // otherwise float uses lrand48
     252double random() { return drand48(); }
     253float _Complex random() { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); }
     254double _Complex random() { return drand48() + (double _Complex)(drand48() * _Complex_I); }
     255long double _Complex random() { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); }
    256256
    257257//---------------------------------------
Note: See TracChangeset for help on using the changeset viewer.