Need to return something when the compiler doesn't know that a

[p5sagit/p5-mst-13.2.git] / scope.c

diff --git a/scope.c b/scope.c
index debdd4b..315fdc0 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -466,7 +466,12 @@ SV **
 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
@@ -604,7 +609,7 @@ Perl_save_aelem(pTHX_ const AV *av, I32 idx, SV **sptr)
 }
 
 void
-Perl_save_helem(pTHX_ const HV *hv, SV *key, SV **sptr)
+Perl_save_helem(pTHX_ HV *hv, SV *key, SV **sptr)
 {
     SV *sv;
     SSCHECK(4);