Changeset ddbbcffa for perlglue.xs
- Timestamp:
- Feb 11, 2011, 4:31:42 PM (14 years ago)
- Branches:
- master, release-1.10, release-1.8, release-1.9
- Children:
- d4927a7
- Parents:
- 35b6eb9
- git-author:
- Anders Kaseorg <andersk@mit.edu> (08/27/09 00:52:41)
- git-committer:
- Anders Kaseorg <andersk@mit.edu> (02/11/11 16:31:42)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
r96828e4 rddbbcffa 49 49 } 50 50 rv = owl_function_command_argv(argv, items); 51 owl_free(argv);51 g_free(argv); 52 52 } 53 53 RETVAL = rv; … … 56 56 RETVAL 57 57 CLEANUP: 58 if (rv) owl_free(rv);58 if (rv) g_free(rv); 59 59 60 60 SV * … … 113 113 RETVAL 114 114 CLEANUP: 115 if (rv) owl_free(rv);115 if (rv) g_free(rv); 116 116 117 117 const utf8 * … … 128 128 RETVAL 129 129 CLEANUP: 130 owl_free(rv);130 g_free(rv); 131 131 132 132 const utf8 * … … 140 140 RETVAL 141 141 CLEANUP: 142 if (rv) owl_free(rv);142 if (rv) g_free(rv); 143 143 144 144 void … … 324 324 CLEANUP: 325 325 if (rv) 326 owl_free(rv);326 g_free(rv); 327 327 328 328 void … … 342 342 RETVAL = owl_new_av(&fl, (SV*(*)(const void*))owl_new_sv); 343 343 sv_2mortal((SV*)RETVAL); 344 owl_list_cleanup(&fl, owl_free);344 owl_list_cleanup(&fl, g_free); 345 345 } 346 346 OUTPUT: … … 361 361 RETVAL 362 362 CLEANUP: 363 owl_list_cleanup(&l, owl_free);363 owl_list_cleanup(&l, g_free); 364 364 365 365 … … 378 378 RETVAL 379 379 CLEANUP: 380 owl_list_cleanup(&l, owl_free);380 owl_list_cleanup(&l, g_free); 381 381 382 382 … … 396 396 RETVAL 397 397 CLEANUP: 398 owl_list_cleanup(&l, owl_free);398 owl_list_cleanup(&l, g_free); 399 399 400 400 void … … 610 610 RETVAL 611 611 CLEANUP: 612 owl_free(region);612 g_free(region); 613 613 614 614 SV *
Note: See TracChangeset
for help on using the changeset viewer.