Changes in libcfa/src/stdlib.hfa [45444c3:685810e]

File:

• libcfa/src/stdlib.hfa (modified) (2 diffs)

libcfa/src/stdlib.hfa

@@ -101 +101 @@
                 return (T *)pvalloc( sizeof(T) );                               // C pvalloc
         } // pvalloc
+
+        void free( T * addr ) {
+                free( (void *) addr );                                                  // C free
+        } // free
+} // distribution
+
+static inline forall( ttype TT | { void free( TT ); } ) {
+        // T* does not take void* and vice-versa
+
+        void free( void * addr, TT rest ) {
+                free( addr );
+                free( rest );
+        } // free
+
+        forall( dtype T | sized(T) )
+        void free( T * addr, TT rest ) {
+                free( addr );
+                free( rest );
+        } // free
 } // distribution
 
@@ -110 +129 @@
                 forall( dtype T | sized(T) ) {
                         union  U_fill           { char c; T * a; T t; };
-                        struct S_fill           { char tag; char c; size_t size; T * at; char t[50]; };
+                        struct S_fill           { char tag; U_fill(T) fill; };
                         struct S_realloc        { inline T *; };
                 }