Changeset 0a208b8 for src/libcfa
- Timestamp:
- May 25, 2017, 11:10:42 AM (9 years ago)
- 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:
- e883a4b
- Parents:
- a8e64c4 (diff), 58ed882 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the(diff)links above to see all the changes relative to each parent. - Location:
- src/libcfa
- Files:
-
- 4 added
- 4 edited
-
containers/maybe (added)
-
containers/maybe.c (added)
-
containers/result (added)
-
containers/result.c (added)
-
math (modified) (2 diffs)
-
math.c (modified) (2 diffs)
-
stdlib (modified) (5 diffs)
-
stdlib.c (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/libcfa/math
ra8e64c4 r0a208b8 10 10 // Created On : Mon Apr 18 23:37:04 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sun Apr 24 12:45:02 201613 // Update Count : 5912 // Last Modified On : Wed May 24 17:40:39 2017 13 // Update Count : 60 14 14 // 15 15 … … 20 20 #include <math.h> // fpclassify, isfinite, isnormal, isnan, isinf 21 21 } // extern "C" 22 23 float fabs( float );24 // extern "C" { double fabs( double ); }25 long double fabs( long double );26 float cabs( float _Complex );27 // extern "C" { double cabs( double _Complex ); }28 long double cabs( long double _Complex );29 22 30 23 float ?%?( float, float ); -
src/libcfa/math.c
ra8e64c4 r0a208b8 10 10 // Created On : Tue Apr 19 22:23:08 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sun Apr 24 08:52:31 201613 // Update Count : 7 512 // Last Modified On : Tue May 23 22:52:13 2017 13 // Update Count : 76 14 14 // 15 15 … … 19 19 #include <complex.h> 20 20 } // extern "C" 21 22 float fabs( float x ) { return fabsf( x ); }23 long double fabs( long double x ) { return fabsl( x ); }24 float cabs( float _Complex x ) { return cabsf( x ); }25 long double cabs( long double _Complex x ) { return cabsl( x ); }26 21 27 22 float ?%?( float x, float y ) { return fmodf( x, y ); } -
src/libcfa/stdlib
ra8e64c4 r0a208b8 10 10 // Created On : Thu Jan 28 17:12:35 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue May 9 08:42:44201713 // Update Count : 1 0712 // Last Modified On : Wed May 24 18:06:27 2017 13 // Update Count : 115 14 14 // 15 15 … … 28 28 //--------------------------------------- 29 29 30 extern "C" { void * malloc( size_t ); } // use default C routine for void *31 30 forall( dtype T | sized(T) ) T * malloc( void ); 32 31 forall( dtype T | sized(T) ) T * malloc( char fill ); … … 42 41 forall( dtype T | sized(T) ) T * memalign( size_t alignment ); // deprecated 43 42 forall( dtype T | sized(T) ) int posix_memalign( T ** ptr, size_t alignment ); 44 45 extern "C" {46 void * memset( void * ptr, int fill, size_t size );47 void free( void * ptr );48 } // extern "C"49 43 50 44 forall( dtype T, ttype Params | sized(T) | { void ?{}(T *, Params); } ) T * new( Params p ); … … 109 103 double abs( double _Complex ); 110 104 long double abs( long double _Complex ); 111 forall ( otype T | { void ?{}( T *, zero_t ); int ?<?( T, T ); T -?( T ); } )105 forall( otype T | { void ?{}( T *, zero_t ); int ?<?( T, T ); T -?( T ); } ) 112 106 T abs( T ); 113 107 … … 115 109 116 110 void rand48seed( long int s ); 117 char rand48( );118 int rand48( );119 unsigned int rand48( );120 long int rand48( );121 unsigned long int rand48( );122 float rand48( );123 double rand48( );124 float _Complex rand48( );125 double _Complex rand48( );126 long double _Complex rand48( );111 char rand48( void ); 112 int rand48( void ); 113 unsigned int rand48( void ); 114 long int rand48( void ); 115 unsigned long int rand48( void ); 116 float rand48( void ); 117 double rand48( void ); 118 float _Complex rand48( void ); 119 double _Complex rand48( void ); 120 long double _Complex rand48( void ); 127 121 128 122 //--------------------------------------- -
src/libcfa/stdlib.c
ra8e64c4 r0a208b8 10 10 // Created On : Thu Jan 28 17:10:29 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue May 9 08:43:00201713 // Update Count : 19 112 // Last Modified On : Wed May 24 18:13:15 2017 13 // Update Count : 198 14 14 // 15 15 … … 279 279 280 280 void rand48seed( long int s ) { srand48( s ); } 281 char rand48( ) { return mrand48(); }282 int rand48( ) { return mrand48(); }283 unsigned int rand48( ) { return lrand48(); }284 long int rand48( ) { return mrand48(); }285 unsigned long int rand48( ) { return lrand48(); }286 float rand48( ) { return (float)drand48(); }// otherwise float uses lrand48287 double rand48( ) { return drand48(); }288 float _Complex rand48( ) { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); }289 double _Complex rand48( ) { return drand48() + (double _Complex)(drand48() * _Complex_I); }290 long double _Complex rand48( ) { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); }281 char rand48( void ) { return mrand48(); } 282 int rand48( void ) { return mrand48(); } 283 unsigned int rand48( void ) { return lrand48(); } 284 long int rand48( void ) { return mrand48(); } 285 unsigned long int rand48( void ) { return lrand48(); } 286 float rand48( void ) { return (float)drand48(); } // otherwise float uses lrand48 287 double rand48( void ) { return drand48(); } 288 float _Complex rand48( void ) { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); } 289 double _Complex rand48( void ) { return drand48() + (double _Complex)(drand48() * _Complex_I); } 290 long double _Complex rand48( void) { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); } 291 291 292 292 //---------------------------------------
Note:
See TracChangeset
for help on using the changeset viewer.