attributes-two.patch also contains a lot of const-ing, hence the

[perl5.git] / mg.c

diff --git a/mg.c b/mg.c
index 807ff6d..faa936d 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -472,12 +472,7 @@ 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
+    NORETURN_FUNCTION_END;
 }
 
 U32