Changes in libcfa/src/stdlib.cfa [aabb846:76e2113]

File:

• libcfa/src/stdlib.cfa (modified) (4 diffs)

libcfa/src/stdlib.cfa

@@ -9 +9 @@
 // Author           : Peter A. Buhr
 // Created On       : Thu Jan 28 17:10:29 2016
-// Last Modified By : Andrew Beach
-// Last Modified On : Tue Jun  2 16:46:00 2020
-// Update Count     : 500
+// Last Modified By : Peter A. Buhr
+// Last Modified On : Thu Apr 16 22:43:33 2020
+// Update Count     : 498
 //
 
@@ -78 +78 @@
 } // new
 
-forall( dtype T | { void ^?{}( T & ); } )
+forall( dtype T | sized(T) | { void ^?{}( T & ); } )
 void delete( T * ptr ) {
         if ( ptr ) {                                                                            // ignore null
@@ -86 +86 @@
 } // delete
 
-forall( dtype T, ttype Params | { void ^?{}( T & ); void delete( Params ); } )
+forall( dtype T, ttype Params | sized(T) | { void ^?{}( T & ); void delete( Params ); } )
 void delete( T * ptr, Params rest ) {
-        delete( ptr );
+        if ( ptr ) {                                                                            // ignore null
+                ^(*ptr){};                                                                              // run destructor
+                free( ptr );
+        } // if
         delete( rest );
 } // delete
@@ -274 +277 @@
 extern "C" {                                                                                    // override C version
         void srandom( unsigned int seed ) { srand48( (long int)seed ); }
-        long int random( void ) { return mrand48(); }           // GENERATES POSITIVE AND NEGATIVE VALUES
+        long int random( void ) { return mrand48(); }
 } // extern "C"