Changeset 76e2113 for libcfa/src/stdlib.cfa

Timestamp:

Apr 18, 2020, 9:08:12 AM (4 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

692e6f1

Parents:

899dfbb

Message:

add setter routines for sticky operations, add allocation size to header

File:

• libcfa/src/stdlib.cfa (modified) (2 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 : Tue Mar 31 13:26:46 2020
-// Update Count     : 495
+// Last Modified On : Thu Apr 16 22:43:33 2020
+// Update Count     : 498
 //
 
@@ -37 +37 @@
         } // alloc_set
 
-        T * alloc_set( T ptr[], size_t dim, T fill ) { // realloc array with fill
+        T * alloc_set( T ptr[], size_t dim, T fill ) {          // realloc array with fill
                 size_t olen = malloc_usable_size( ptr );                // current allocation
                 void * nptr = (void *)realloc( (void *)ptr, dim * sizeof(T) ); // C realloc
                 size_t nlen = malloc_usable_size( nptr );               // new allocation
                 if ( nlen > olen ) {                                                    // larger ?
-                        for ( i; dim ) { memcpy( &ptr[i], &fill, sizeof(T) ); } // initialize with fill value
+                        for ( i; malloc_size( ptr ) / sizeof(T) ~ dim ) {
+                                memcpy( &ptr[i], &fill, sizeof(T) );    // initialize with fill value
+                        } // for
                 } // if
                 return (T *)nptr;