Changes in / [d7a10af:48f6252]

File:

• libcfa/src/stdlib.hfa (modified) (2 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 : Thu Nov 12 20:58:48 2020
-// Update Count     : 520
+// Last Modified On : Tue Dec  8 18:27:22 2020
+// Update Count     : 524
 //
 
@@ -268 +268 @@
 static inline forall( dtype T | { void ^?{}( T & ); } )
 void delete( T * ptr ) {
-        if ( ptr ) {                                                                            // ignore null
+        // special case for 0-sized object => always call destructor
+        if ( ptr || sizeof(ptr) == 0 ) {                                        // ignore null but not 0-sized objects
                 ^(*ptr){};                                                                              // run destructor
-                free( ptr );
         } // if
+        free( ptr );
 } // delete