Changeset 1911f37
- Timestamp:
- Sep 24, 2025, 6:23:34 PM (101 minutes ago)
- Branches:
- master
- Children:
- 2d743bd
- Parents:
- 2df85ce
- Files:
-
- 3 edited
-
libcfa/src/stdlib.cfa (modified) (4 diffs)
-
tests/.expect/alloc.txt (modified) (1 diff)
-
tests/alloc.cfa (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
libcfa/src/stdlib.cfa
r2df85ce r1911f37 10 10 // Created On : Thu Jan 28 17:10:29 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Sep 24 18: 01:01202513 // Update Count : 7 5912 // Last Modified On : Wed Sep 24 18:14:20 2025 13 // Update Count : 760 14 14 // 15 15 … … 46 46 forall( T & | sized(T) | { void ^?{}( T & ); } ) 47 47 void adelete( T arr[] ) { 48 if ( arr == 0p ) return;// 0p ? special case48 if ( arr == 0p ) return; // 0p ? special case 49 49 size_t dim = sizeof( T ) == 0 ? (size_t)(*(size_t *)arr) : malloc_size( arr ) / sizeof( T ); // compute dimension 50 50 for ( i; 0 -~= dim - 1 ) { // reverse allocation order, must be signed … … 65 65 66 66 bool checkif( const char s[], int (* kind)( int ) ) { 67 for () { 67 for () { // at least 1 character '\0' 68 68 if ( *s == '\0' ) return true; 69 69 if ( ! kind( *s ) ) return false; … … 73 73 74 74 bool checkif( const char s[], int (* kind)( int, locale_t ), locale_t locale ) { 75 for () { 75 for () { // at least 1 character '\0' 76 76 if ( *s == '\0' ) return true; 77 77 if ( ! kind( *s, locale ) ) return false; -
tests/.expect/alloc.txt
r2df85ce r1911f37 76 76 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 77 77 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 42 42.5, 78 ctor 79 ctor 80 ctor 81 ctor 82 ctor 83 ctor 84 ctor 85 ctor 86 ctor 87 ctor 88 ctor 89 ctor 90 ctor 91 ctor 92 ctor 93 dtor 94 dtor 95 dtor 96 dtor 97 dtor 98 dtor 99 dtor 100 dtor 101 dtor 102 dtor 103 dtor 104 dtor 105 dtor 106 dtor 107 dtor 78 108 79 109 pointer arithmetic 0 -
tests/alloc.cfa
r2df85ce r1911f37 10 10 // Created On : Wed Feb 3 07:56:22 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Apr 23 14:04:11 202413 // Update Count : 49 212 // Last Modified On : Wed Sep 24 18:21:09 2025 13 // Update Count : 493 14 14 // 15 15 … … 362 362 assert( const_count == 2 + 2 * dim && dest_count == 2 + 2 * dim); // assertion for testing 363 363 364 struct Empty {}; 365 void ?{}( Empty & ) { sout | "ctor"; } 366 void ^?{}( Empty & ) { sout | "dtor"; } 367 Empty * ea1 = anew( 5 ); 368 Empty * ea2 = anew( 5 ); 369 Empty * ea3 = anew( 5 ); 370 adelete( ea1, ea2, ea3 ); 371 364 372 // extras 365 373 sout | nl;
Note:
See TracChangeset
for help on using the changeset viewer.
