summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2014-11-29 12:37:50 +0100
committerFather Chrysostomos <sprout@cpan.org>2014-11-29 06:05:16 -0800
commite59642234eb8b658c16fed728636bfbbc49c4514 (patch)
tree3387394bff0e7e2f7ac09564be7493e6a71619d2 /perl.c
parentb7bea5dafa8e0cb5ca70b7525fbd6b51eb723815 (diff)
downloadperl-e59642234eb8b658c16fed728636bfbbc49c4514.tar.gz
make more use of NOT_REACHED
In particular, remove all instances of 'assert(0);'.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl.c b/perl.c
index eb875fcf47..b45f280952 100644
--- a/perl.c
+++ b/perl.c
@@ -2420,7 +2420,7 @@ S_run_body(pTHX_ I32 oldscope)
CALLRUNOPS(aTHX);
}
my_exit(0);
- assert(0); /* NOTREACHED */
+ NOT_REACHED; /* NOTREACHED */
}
/*
@@ -2741,7 +2741,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
FREETMPS;
JMPENV_POP;
my_exit_jump();
- assert(0); /* NOTREACHED */
+ NOT_REACHED; /* NOTREACHED */
case 3:
if (PL_restartop) {
PL_restartjmpenv = NULL;
@@ -2850,7 +2850,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
FREETMPS;
JMPENV_POP;
my_exit_jump();
- assert(0); /* NOTREACHED */
+ NOT_REACHED; /* NOTREACHED */
case 3:
if (PL_restartop) {
PL_restartjmpenv = NULL;
@@ -4871,7 +4871,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
CopLINE_set(PL_curcop, oldline);
JMPENV_POP;
my_exit_jump();
- assert(0); /* NOTREACHED */
+ NOT_REACHED; /* NOTREACHED */
case 3:
if (PL_restartop) {
PL_curcop = &PL_compiling;