Changeset bf76eab for src/libcfa
- Timestamp:
- Feb 23, 2017, 2:13:28 PM (8 years ago)
- Branches:
- ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc
- Children:
- 3fddc6b
- Parents:
- 9d169f1
- Location:
- src/libcfa
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/libcfa/stdlib
r9d169f1 rbf76eab 10 10 // Created On : Thu Jan 28 17:12:35 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Jul 6 14:28:55 201613 // Update Count : 9912 // Last Modified On : Thu Feb 23 14:11:47 2017 13 // Update Count : 100 14 14 // 15 15 … … 50 50 forall( dtype T, ttype Params | sized(T) | { void ?{}(T *, Params); } ) T * new( Params p ); 51 51 forall( dtype T | { void ^?{}(T *); } ) void delete( T * ptr ); 52 52 forall( dtype T, ttype Params | { void ^?{}(T *); void delete(Params); } ) void delete( T * ptr, Params rest ); 53 53 54 54 //--------------------------------------- -
src/libcfa/stdlib.c
r9d169f1 rbf76eab 10 10 // Created On : Thu Jan 28 17:10:29 2016 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Jul 6 14:28:57 201613 // Update Count : 1 6912 // Last Modified On : Thu Feb 23 14:11:29 2017 13 // Update Count : 170 14 14 // 15 15 … … 91 91 } 92 92 93 forall( dtype T, ttype Params | { void ^?{}(T *); void delete(Params); } ) 94 void delete( T * ptr, Params rest ) { 95 if ( ptr ) { 96 ^ptr{}; 97 free( ptr ); 98 } 99 delete( rest ); 100 } 101 93 102 //--------------------------------------- 94 103
Note: See TracChangeset
for help on using the changeset viewer.