Changeset 54aba8d for src/libcfa/stdlib.c

Timestamp:

Jan 2, 2018, 1:53:13 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:

b3048d4

Parents:

490d9972

Message:

change name of random_seed to srandom, and make all random calls through rand48

File:

• src/libcfa/stdlib.c (modified) (3 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 : Mon Jan  1 19:03:16 2018
-// Update Count     : 437
+// Last Modified On : Tue Jan  2 12:20:32 2018
+// Update Count     : 441
 //
 
@@ -257 +257 @@
 //---------------------------------------
 
-void random_seed( long int s ) { srand48( s ); srandom( s ); } // call srandom to harmonize with C-lib random
+extern "C" { void srandom( unsigned int seed ) { srand48( seed ); } } // override C version
 char random( void ) { return (unsigned long int)random(); }
 char random( char u ) { return random( (unsigned long int)u ); }
@@ -267 +267 @@
 unsigned int random( unsigned int u ) { return random( (unsigned long int)u ); }
 unsigned int random( unsigned int l, unsigned int u ) { return random( (unsigned long int)l, (unsigned long int)u ); }
-//extern "C" { long int random() { return mrand48(); } }
+extern "C" { long int random( void ) { return mrand48(); } } // override C version
 long int random( long int u ) { if ( u < 0 ) return random( u, 0 ); else return random( 0, u ); }
 long int random( long int l, long int u ) { assert( l < u ); return lrand48() % (u - l) + l; }