Changes in libcfa/src/stdlib.cfa [94429f8:45444c3]

File:

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

libcfa/src/stdlib.cfa

@@ -10 +10 @@
 // Created On       : Thu Jan 28 17:10:29 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Nov 12 07:46:09 2020
-// Update Count     : 503
+// Last Modified On : Sun Jul 19 15:05:28 2020
+// Update Count     : 501
 //
 
@@ -26 +26 @@
 //---------------------------------------
 
-// Cforall allocation/deallocation and constructor/destructor, array types
-
-forall( dtype T | sized(T), ttype TT | { void ?{}( T &, TT ); } )
-T * anew( size_t dim, TT p ) {
+// allocation/deallocation and constructor/destructor, non-array types
+forall( dtype T | sized(T), ttype Params | { void ?{}( T &, Params ); } )
+T * new( Params p ) {
+        return &(*malloc()){ p };                                                       // run constructor
+} // new
+
+forall( dtype T | { void ^?{}( T & ); } )
+void delete( T * ptr ) {
+        if ( ptr ) {                                                                            // ignore null
+                ^(*ptr){};                                                                              // run destructor
+                free( ptr );
+        } // if
+} // delete
+
+forall( dtype T, ttype Params | { void ^?{}( T & ); void delete( Params ); } )
+void delete( T * ptr, Params rest ) {
+        delete( ptr );
+        delete( rest );
+} // delete
+
+
+// allocation/deallocation and constructor/destructor, array types
+forall( dtype T | sized(T), ttype Params | { void ?{}( T &, Params ); } )
+T * anew( size_t dim, Params p ) {
         T * arr = alloc( dim );
         for ( unsigned int i = 0; i < dim; i += 1 ) {
@@ -48 +68 @@
 } // adelete
 
-forall( dtype T | sized(T) | { void ^?{}( T & ); }, ttype TT | { void adelete( TT ); } )
-void adelete( T arr[], TT rest ) {
+forall( dtype T | sized(T) | { void ^?{}( T & ); }, ttype Params | { void adelete( Params ); } )
+void adelete( T arr[], Params rest ) {
         if ( arr ) {                                                                            // ignore null
                 size_t dim = malloc_size( arr ) / sizeof( T );