X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=scope.c;h=315fdc05964aede5d9a47f80f22d689e8fa2e35e;hb=3c8a6f8651424ba778d5280d96c18e950c4efb74;hp=debdd4be6ec8f5f48117d1ba233bede3cb3a2307;hpb=7fc634935189abec1d574a9733c7093e5c9f2781;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/scope.c b/scope.c
index debdd4b..315fdc0 100644
--- 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);