Changeset 5721a6d for src/libcfa/algorithm.c

Timestamp:

Feb 1, 2016, 2:24:50 PM (8 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, string, with_gc

Children:

2a4b088, b4cd03b7

Parents:

ae8b942

Message:

correctly set type for complex constants, consolidate function name tables, add offsetof, refactor printing complex constants to use basic types

File:

• src/libcfa/algorithm.c (modified) (3 diffs)

src/libcfa/algorithm.c

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:10:29 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Jan 29 15:49:59 2016
-// Update Count     : 29
+// Last Modified On : Mon Feb  1 13:42:05 2016
+// Update Count     : 52
 //
 
@@ -26 +26 @@
 } // max
 
+//---------------------------------------
+
+forall( type T )
+void swap( T * t1, T * t2 ) {
+        T temp = *t1;
+        *t1 = *t2;
+        *t2 = temp;
+} // swap
+
+//---------------------------------------
 
 extern "C" {
+#define _XOPEN_SOURCE                                                                   // required to access "rand48" routines
 #include <stdlib.h>                                                                             // abs, labs, llabs
 #include <math.h>                                                                               // fabsf, fabs, fabsl
 #include <complex.h>                                                                    // cabsf, cabs, cabsl
+#undef I                                                                                                // free name
 } // extern
 
@@ -43 +55 @@
 long double _Complex abs( long double _Complex v ) { return cabsl( v ); }
 
+//---------------------------------------
+
+void randseed( long int s ) { srand48( s ); }
+char random() { return lrand48(); }
+int random() { return mrand48(); }
+unsigned int random() { return lrand48(); }
+long int random() { return mrand48(); }
+unsigned long int random() { return lrand48(); }
+float random() { return (float)drand48(); }                             // otherwise float uses lrand48
+double random() { return drand48(); }
+float _Complex random() { return (float)drand48() + (float _Complex)(drand48() * _Complex_I); }
+double _Complex random() { return drand48() + (double _Complex)(drand48() * _Complex_I); }
+long double _Complex random() { return (long double)drand48() + (long double _Complex)(drand48() * _Complex_I); }
 
 // Local Variables: //