Changes in libcfa/src/stdlib.hfa [b5e725a:8a97248]

File:

• libcfa/src/stdlib.hfa (modified) (5 diffs)

libcfa/src/stdlib.hfa

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:12:35 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Aug 14 18:19:12 2023
-// Update Count     : 777
+// Last Modified On : Thu Feb  2 11:30:04 2023
+// Update Count     : 766
 //
 
@@ -19 +19 @@
 #include "bits/align.hfa"                                                               // libAlign
 #include "bits/random.hfa"                                                              // prng
-#include <Exception.hfa>
+
+#include <stdlib.h>                                                                             // *alloc, strto*, ato*
 #include <heap.hfa>
 
-#include <stdlib.h>                                                                             // *alloc, strto*, ato*
-#include <errno.h>
 
 // Reduce includes by explicitly defining these routines.
@@ -295 +294 @@
 
 static inline {
-        int strto( const char sptr[], char * eptr[], int base ) { return (int)strtol( sptr, eptr, base ); }
-        unsigned int strto( const char sptr[], char * eptr[], int base ) { return (unsigned int)strtoul( sptr, eptr, base ); }
-        long int strto( const char sptr[], char * eptr[], int base ) { return strtol( sptr, eptr, base ); }
-        unsigned long int strto( const char sptr[], char * eptr[], int base ) { return strtoul( sptr, eptr, base ); }
-        long long int strto( const char sptr[], char * eptr[], int base ) { return strtoll( sptr, eptr, base ); }
-        unsigned long long int strto( const char sptr[], char * eptr[], int base ) { return strtoull( sptr, eptr, base ); }
-
-        float strto( const char sptr[], char * eptr[] ) { return strtof( sptr, eptr ); }
-        double strto( const char sptr[], char * eptr[] ) { return strtod( sptr, eptr ); }
-        long double strto( const char sptr[], char * eptr[] ) { return strtold( sptr, eptr ); }
-} // distribution
-
-float _Complex strto( const char sptr[], char * eptr[] );
-double _Complex strto( const char sptr[], char * eptr[] );
-long double _Complex strto( const char sptr[], char * eptr[] );
-
-ExceptionDecl( out_of_range );
-ExceptionDecl( invalid_argument );
-
-forall( T | { T strto( const char sptr[], char * eptr[], int ); } )
-T convert( const char sptr[] );
+        int strto( const char sptr[], char ** eptr, int base ) { return (int)strtol( sptr, eptr, base ); }
+        unsigned int strto( const char sptr[], char ** eptr, int base ) { return (unsigned int)strtoul( sptr, eptr, base ); }
+        long int strto( const char sptr[], char ** eptr, int base ) { return strtol( sptr, eptr, base ); }
+        unsigned long int strto( const char sptr[], char ** eptr, int base ) { return strtoul( sptr, eptr, base ); }
+        long long int strto( const char sptr[], char ** eptr, int base ) { return strtoll( sptr, eptr, base ); }
+        unsigned long long int strto( const char sptr[], char ** eptr, int base ) { return strtoull( sptr, eptr, base ); }
+
+        float strto( const char sptr[], char ** eptr ) { return strtof( sptr, eptr ); }
+        double strto( const char sptr[], char ** eptr ) { return strtod( sptr, eptr ); }
+        long double strto( const char sptr[], char ** eptr ) { return strtold( sptr, eptr ); }
+} // distribution
+
+float _Complex strto( const char sptr[], char ** eptr );
+double _Complex strto( const char sptr[], char ** eptr );
+long double _Complex strto( const char sptr[], char ** eptr );
 
 static inline {
@@ -374 +367 @@
 
         char random( void ) { return (unsigned long int)random(); }
-        char random( char u ) { return (unsigned long int)random( (unsigned long int)u ); } // [0,u)
+        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 (long int)random( (long int)u ); } // [0,u]
+        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 (unsigned long int)random( (unsigned long int)u ); } // [0,u]
+        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
@@ -461 +454 @@
 } // distribution
 
-// Set default random-generator size.
-#if defined( __x86_64__ ) || defined( __aarch64__ )             // 64-bit architecture
-#define PRNG PRNG64
-#else                                                                                                   // 32-bit architecture
-#define PRNG PRNG32
-#endif // __x86_64__
-
 // Concurrent Pseudo Random-Number Generator : generate repeatable sequence of values that appear random.
 //