This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add some /* NOTREACHED */
[perl5.git] / op.c
diff --git a/op.c b/op.c
index b3b7009..f8df8b4 100644 (file)
--- a/op.c
+++ b/op.c
@@ -10360,13 +10360,13 @@ Perl_ck_defined(pTHX_ OP *o)          /* 19990527 MJD */
        case OP_PADAV:
            Perl_croak(aTHX_ "Can't use 'defined(@array)'"
                             " (Maybe you should just omit the defined()?)");
-            NOT_REACHED;
+            NOT_REACHED; /* NOTREACHED */
             break;
        case OP_RV2HV:
        case OP_PADHV:
            Perl_croak(aTHX_ "Can't use 'defined(%%hash)'"
                             " (Maybe you should just omit the defined()?)");
-            NOT_REACHED;
+            NOT_REACHED; /* NOTREACHED */
            break;
        default:
            /* no warning */
@@ -14461,7 +14461,7 @@ Perl_rpeep(pTHX_ OP *o)
             oldop    = ourlast;
             o        = oldop->op_next;
             goto redo;
-            NOT_REACHED;
+            NOT_REACHED; /* NOTREACHED */
            break;
        }