Changes in libcfa/src/stdlib.hfa [b6a71bc:fbe3f03]

File:

• libcfa/src/stdlib.hfa (modified) (7 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 : Fri Apr 12 07:39:15 2024
-// Update Count     : 812
+// Last Modified On : Mon Apr 15 22:11:51 2024
+// Update Count     : 817
 //
 
@@ -64 +64 @@
         } // calloc
 
-        T * resize( T * ptr, size_t size ) {                            // CFA resize, eliminate return-type cast
+        T * resize( T * ptr, size_t size ) {                            // CFA resize
                 if ( _Alignof(T) <= libAlign() ) return (T *)resize( (void *)ptr, size ); // CFA resize
                 else return (T *)resize( (void *)ptr, _Alignof(T), size ); // CFA resize
         } // resize
 
-        T * realloc( T * ptr, size_t size ) {                           // CFA realloc, eliminate return-type cast
+        T * realloc( T * ptr, size_t size ) {                           // CFA realloc
                 if ( _Alignof(T) <= libAlign() ) return (T *)realloc( (void *)ptr, size ); // C realloc
                 else return (T *)realloc( (void *)ptr, _Alignof(T), size ); // CFA realloc
+        } // realloc
+
+        T * reallocarray( T * ptr, size_t dim ) {                       // CFA reallocarray
+                if ( _Alignof(T) <= libAlign() ) return (T *)reallocarray( (void *)ptr, dim, sizeof(T) ); // C reallocarray
+                else return (T *)reallocarray( (void *)ptr, _Alignof(T), dim ); // CFA reallocarray
         } // realloc
 
@@ -210 +215 @@
         } // alloc_internal$
 
-        forall( TT... | { T * alloc_internal$( void *, T *, size_t, size_t, S_fill(T), TT ); } ) {
+        forall( TT ... | { T * alloc_internal$( void *, T *, size_t, size_t, S_fill(T), TT ); } ) {
                 T * alloc_internal$( void *, T *, size_t Align, size_t Dim, S_fill(T) Fill, T_resize Resize, TT rest ) {
                 return alloc_internal$( Resize, (T*)0p, Align, Dim, Fill, rest);
@@ -262 +267 @@
         free( (void *)ptr );                                                            // C free
 } // free
-static inline forall( T &, TT... | { void free( TT ); } )
+static inline forall( T &, TT ... | { void free( TT ); } )
 void free( T * ptr, TT rest ) {
         free( ptr );
@@ -269 +274 @@
 
 // CFA allocation/deallocation and constructor/destructor, non-array types
-static inline forall( T & | sized(T), TT... | { void ?{}( T &, TT ); } )
+static inline forall( T & | sized(T), TT ... | { void ?{}( T &, TT ); } )
 T * new( TT p ) {
         return &(*(T *)malloc()){ p };                                          // run constructor
@@ -282 +287 @@
         free( ptr );                                                                            // always call free
 } // delete
-static inline forall( T &, TT... | { void ^?{}( T & ); void delete( TT ); } )
+static inline forall( T &, TT ... | { void ^?{}( T & ); void delete( TT ); } )
 void delete( T * ptr, TT rest ) {
         delete( ptr );
@@ -289 +294 @@
 
 // CFA allocation/deallocation and constructor/destructor, array types
-forall( T & | sized(T), TT... | { void ?{}( T &, TT ); } ) T * anew( size_t dim, TT p );
+forall( T & | sized(T), TT ... | { void ?{}( T &, TT ); } ) T * anew( size_t dim, TT p );
 forall( T & | sized(T) | { void ^?{}( T & ); } ) void adelete( T arr[] );
-forall( T & | sized(T) | { void ^?{}( T & ); }, TT... | { void adelete( TT ); } ) void adelete( T arr[], TT rest );
+forall( T & | sized(T) | { void ^?{}( T & ); }, TT ... | { void adelete( TT ); } ) void adelete( T arr[], TT rest );
 //---------------------------------------