summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2022-09-24 12:35:22 +0200
committerYves Orton <demerphq@gmail.com>2022-09-25 09:07:33 +0200
commitf205d36f5ac1ab0382cb46f8bd9bc007b3122b47 (patch)
tree2503fe0157ebbc4cd851529361e86bfc818340c5 /toke.c
parentd7e8a0319838357a90f1fbef3584803c588df404 (diff)
downloadperl-f205d36f5ac1ab0382cb46f8bd9bc007b3122b47.tar.gz
toke.c - silence build warning for non DEBUGGING mode
A previous commit introduced the variable 'bool syntax_error' which was only used under DEBUGGING, which produced unused variable warnings on "production" builds. This reworks the code to not need the variable at all. Warning fixed: toke.c: In function ‘Perl_yyerror_pvn’: toke.c:12662:14: warning: unused variable ‘syntax_error’ [-Wunused-variable] 12662 | bool syntax_error = PERL_PARSE_IS_SYNTAX_ERROR(PL_error_count); | ^~~~~~~~~~~~
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/toke.c b/toke.c
index e16f6f6bfc..6c39d8b110 100644
--- a/toke.c
+++ b/toke.c
@@ -12659,7 +12659,6 @@ Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 flags)
const char * const name = OutCopFILE(PL_curcop);
SV * errsv = NULL;
U8 raw_error_count = PERL_PARSE_ERROR_COUNT(PL_error_count);
- bool syntax_error = PERL_PARSE_IS_SYNTAX_ERROR(PL_error_count);
if (PL_in_eval) {
errsv = ERRSV;
@@ -12677,10 +12676,9 @@ Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 flags)
Perl_croak(aTHX_ "%s has too many errors.\n", name);
}
}
- else
- /* if (syntax_error) - implied */
- {
- assert(syntax_error);
+ else {
+ /* This is a syntax error, and we should stop compiling. */
+ assert(PERL_PARSE_IS_SYNTAX_ERROR(PL_error_count));
if (errsv) {
Perl_croak_sv(aTHX_ errsv);
} else {