diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-03-26 00:21:30 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-03-26 00:21:30 +0000 |
commit | 10337e8dc8d6f5ca46671c7264bd12081efec975 (patch) | |
tree | b13518170163458b3f3e49c59bfd9d9aaebcde19 | |
parent | 3cd1ceed6d33e4488db7ab4b2629c0720e63a842 (diff) | |
download | perl-10337e8dc8d6f5ca46671c7264bd12081efec975.tar.gz |
Need to return something when the compiler doesn't know that a
function is "noreturn".
p4raw-id: //depot/perl@24082
-rw-r--r-- | mg.c | 5 | ||||
-rw-r--r-- | op.c | 5 | ||||
-rw-r--r-- | scope.c | 4 |
3 files changed, 14 insertions, 0 deletions
@@ -478,6 +478,11 @@ Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg) (void)sv; (void)mg; Perl_croak(aTHX_ PL_no_modify); /* NOT REACHED */ +#ifndef HASATTRIBUTE + /* No __attribute__, so the compiler doesn't know that croak never returns + */ + return 0; +#endif } U32 @@ -4845,6 +4845,11 @@ Perl_oopsCV(pTHX_ OP *o) Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__); /* STUB */ (void)o; +#ifndef HASATTRIBUTE + /* No __attribute__, so the compiler doesn't know that croak never returns + */ + return 0; +#endif } OP * @@ -467,7 +467,11 @@ Perl_save_threadsv(pTHX_ PADOFFSET i) { Perl_croak(aTHX_ "panic: save_threadsv called in non-threaded perl"); (void)i; +#ifndef HASATTRIBUTE + /* No __attribute__, so the compiler doesn't know that croak never returns + */ return 0; +#endif } void |