Changes in libcfa/src/stdlib.cfa [e310238:aabb846]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libcfa/src/stdlib.cfa
re310238 raabb846 9 9 // Author : Peter A. Buhr 10 10 // Created On : Thu Jan 28 17:10:29 2016 11 // Last Modified By : Peter A. Buhr12 // Last Modified On : Sun Jul 19 15:05:28202013 // Update Count : 50 111 // Last Modified By : Andrew Beach 12 // Last Modified On : Tue Jun 2 16:46:00 2020 13 // Update Count : 500 14 14 // 15 15 … … 25 25 26 26 //--------------------------------------- 27 28 forall( dtype T | sized(T) ) { 29 T * alloc_set( T ptr[], size_t dim, char fill ) { // realloc array with fill 30 size_t olen = malloc_usable_size( ptr ); // current allocation 31 void * nptr = (void *)realloc( (void *)ptr, dim * sizeof(T) ); // C realloc 32 size_t nlen = malloc_usable_size( nptr ); // new allocation 33 if ( nlen > olen ) { // larger ? 34 memset( (char *)nptr + olen, (int)fill, nlen - olen ); // initialize added storage 35 } // if 36 return (T *)nptr; 37 } // alloc_set 38 39 T * alloc_set( T ptr[], size_t dim, T fill ) { // realloc array with fill 40 size_t olen = malloc_usable_size( ptr ); // current allocation 41 void * nptr = (void *)realloc( (void *)ptr, dim * sizeof(T) ); // C realloc 42 size_t nlen = malloc_usable_size( nptr ); // new allocation 43 if ( nlen > olen ) { // larger ? 44 for ( i; malloc_size( ptr ) / sizeof(T) ~ dim ) { 45 memcpy( &ptr[i], &fill, sizeof(T) ); // initialize with fill value 46 } // for 47 } // if 48 return (T *)nptr; 49 } // alloc_align_set 50 51 T * alloc_align_set( T ptr[], size_t align, char fill ) { // aligned realloc with fill 52 size_t olen = malloc_usable_size( ptr ); // current allocation 53 void * nptr = (void *)realloc( (void *)ptr, align, sizeof(T) ); // CFA realloc 54 // char * nptr = alloc_align( ptr, align ); 55 size_t nlen = malloc_usable_size( nptr ); // new allocation 56 if ( nlen > olen ) { // larger ? 57 memset( (char *)nptr + olen, (int)fill, nlen - olen ); // initialize added storage 58 } // if 59 return (T *)nptr; 60 } // alloc_align_set 61 62 T * alloc_align_set( T ptr[], size_t align, size_t dim, T fill ) { // aligned realloc with fill 63 size_t olen = malloc_usable_size( ptr ); // current allocation 64 void * nptr = (void *)realloc( (void *)ptr, align, sizeof(T) ); // CFA realloc 65 // char * nptr = alloc_align( ptr, align ); 66 size_t nlen = malloc_usable_size( nptr ); // new allocation 67 if ( nlen > olen ) { // larger ? 68 for ( i; dim ) { memcpy( &ptr[i], &fill, sizeof(T) ); } // initialize with fill value 69 } // if 70 return (T *)nptr; 71 } // alloc_align_set 72 } // distribution 27 73 28 74 // allocation/deallocation and constructor/destructor, non-array types
Note: See TracChangeset
for help on using the changeset viewer.