Changeset 6829afc for perlconfig.c
- Timestamp:
- Jun 25, 2011, 3:26:15 AM (13 years ago)
- Branches:
- master, release-1.10, release-1.8, release-1.9
- Children:
- 12294d2
- Parents:
- 95b52d1
- git-author:
- David Benjamin <davidben@mit.edu> (06/24/11 22:56:15)
- git-committer:
- David Benjamin <davidben@mit.edu> (06/25/11 03:26:15)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
rd427f08 r6829afc 23 23 24 24 25 G_GNUC_WARN_UNUSED_RESULTSV *owl_new_sv(const char * str)25 CALLER_OWN SV *owl_new_sv(const char * str) 26 26 { 27 27 SV *ret = newSVpv(str, 0); … … 36 36 } 37 37 38 G_GNUC_WARN_UNUSED_RESULTAV *owl_new_av(const owl_list *l, SV *(*to_sv)(const void *))38 CALLER_OWN AV *owl_new_av(const owl_list *l, SV *(*to_sv)(const void *)) 39 39 { 40 40 AV *ret; … … 52 52 } 53 53 54 G_GNUC_WARN_UNUSED_RESULTHV *owl_new_hv(const owl_dict *d, SV *(*to_sv)(const void *))54 CALLER_OWN HV *owl_new_hv(const owl_dict *d, SV *(*to_sv)(const void *)) 55 55 { 56 56 HV *ret; … … 75 75 } 76 76 77 G_GNUC_WARN_UNUSED_RESULTSV *owl_perlconfig_message2hashref(const owl_message *m)77 CALLER_OWN SV *owl_perlconfig_message2hashref(const owl_message *m) 78 78 { 79 79 HV *h, *stash; … … 165 165 } 166 166 167 G_GNUC_WARN_UNUSED_RESULTSV *owl_perlconfig_curmessage2hashref(void)167 CALLER_OWN SV *owl_perlconfig_curmessage2hashref(void) 168 168 { 169 169 int curmsg; … … 183 183 This has been somewhat addressed, but is still not lossless. 184 184 */ 185 G_GNUC_WARN_UNUSED_RESULTowl_message *owl_perlconfig_hashref2message(SV *msg)185 CALLER_OWN owl_message *owl_perlconfig_hashref2message(SV *msg) 186 186 { 187 187 owl_message * m; … … 251 251 /* Calls in a scalar context, passing it a hash reference. 252 252 If return value is non-null, caller must free. */ 253 G_GNUC_WARN_UNUSED_RESULTchar *owl_perlconfig_call_with_message(const char *subname, const owl_message *m)253 CALLER_OWN char *owl_perlconfig_call_with_message(const char *subname, const owl_message *m) 254 254 { 255 255 dSP ; … … 300 300 If the return value is non-null, the caller must free it. 301 301 */ 302 G_GNUC_WARN_UNUSED_RESULTchar *owl_perlconfig_message_call_method(const owl_message *m, const char *method, int argc, const char **argv)302 CALLER_OWN char *owl_perlconfig_message_call_method(const owl_message *m, const char *method, int argc, const char **argv) 303 303 { 304 304 dSP; … … 350 350 351 351 /* caller must free result, if not NULL */ 352 G_GNUC_WARN_UNUSED_RESULTchar *owl_perlconfig_initperl(const char *file, int *Pargc, char ***Pargv, char ***Penv)352 CALLER_OWN char *owl_perlconfig_initperl(const char *file, int *Pargc, char ***Pargv, char ***Penv) 353 353 { 354 354 int ret; … … 436 436 437 437 /* caller is responsible for freeing returned string */ 438 G_GNUC_WARN_UNUSED_RESULTchar *owl_perlconfig_execute(const char *line)438 CALLER_OWN char *owl_perlconfig_execute(const char *line) 439 439 { 440 440 STRLEN len; … … 506 506 507 507 /* caller must free the result */ 508 G_GNUC_WARN_UNUSED_RESULTchar *owl_perlconfig_perlcmd(const owl_cmd *cmd, int argc, const char *const *argv)508 CALLER_OWN char *owl_perlconfig_perlcmd(const owl_cmd *cmd, int argc, const char *const *argv) 509 509 { 510 510 int i, count;
Note: See TracChangeset
for help on using the changeset viewer.