Changeset bbe1a87 for src/libcfa/stdlib

Timestamp:

Jul 3, 2018, 9:07:31 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:

9459c01, e3b2474

Parents:

4c3ee8d

Message:

use distribution for SC qualifiers, and inline routines

File:

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

src/libcfa/stdlib

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:12:35 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sat Jun  2 08:46:35 2018
-// Update Count     : 306
+// Last Modified On : Tue Jul  3 08:17:28 2018
+// Update Count     : 324
 //
 
@@ -264 +264 @@
 //---------------------------------------
 
-extern "C" { void srandom( unsigned int seed ); }               // override C version
-char random( void );
-char random( char u );
-char random( char l, char u );
-int random( void );
-int random( int u );
-int random( int l, int u );
-unsigned int random( void );
-unsigned int random( unsigned int u );
-unsigned int random( unsigned int l, unsigned int u );
-extern "C" { long int random( void ); }                                 // override C version
-long int random( long int u );
-long int random( long int l, long int u );
-unsigned long int random( void );
-unsigned long int random( unsigned long int u );
-unsigned long int random( unsigned long int l, unsigned long int u );
-float random( void );
-double random( void );
-float _Complex random( void );
-double _Complex random( void );
-long double _Complex random( void );
+extern "C" {                                                                                    // override C version
+        void srandom( unsigned int seed );
+        long int random( void );
+} // extern "C"
+
+static inline {
+        long int random( long int l, long int u ) { if ( u < l ) [u, l] = [l, u]; return lrand48() % (u - l) + l; } // [l,u)
+        long int random( long int u ) { if ( u < 0 ) return random( u, 0 ); else return random( 0, u ); } // [0,u)
+        unsigned long int random( void ) { return lrand48(); }
+        unsigned long int random( unsigned long int l, unsigned long int u ) { if ( u < l ) [u, l] = [l, u]; return lrand48() % (u - l) + l; } // [l,u)
+        unsigned long int random( unsigned long int u ) { return lrand48() % u; } // [0,u)
+
+        char random( void ) { return (unsigned long int)random(); }
+        char random( char u ) { return random( (unsigned long int)u ); } // [0,u)
+        char random( char l, char u ) { return random( (unsigned long int)l, (unsigned long int)u ); } // [l,u)
+        int random( void ) { return (long int)random(); }
+        int random( int u ) { return random( (long int)u ); } // [0,u]
+        int random( int l, int u ) { return random( (long int)l, (long int)u ); } // [l,u)
+        unsigned int random( void ) { return (unsigned long int)random(); }
+        unsigned int random( unsigned int u ) { return random( (unsigned long int)u ); } // [0,u]
+        unsigned int random( unsigned int l, unsigned int u ) { return random( (unsigned long int)l, (unsigned long int)u ); } // [l,u)
+} // distribution
+
+float random( void );                                                                   // [0.0, 1.0)
+double random( void );                                                                  // [0.0, 1.0)
+float _Complex random( void );                                                  // [0.0, 1.0)+[0.0, 1.0)i
+double _Complex random( void );                                                 // [0.0, 1.0)+[0.0, 1.0)i
+long double _Complex random( void );                                    // [0.0, 1.0)+[0.0, 1.0)i
 
 //---------------------------------------