toke.c - dont just return the function, assign it to an intermediary

So we can debug it before we return. an optimization compiler should
make them the same thing anyway, but under -Og it is helpful to be able
to be able to see the return before we return it.

1 files changed, 5 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index c4585a528c..107d889857 100644
--- a/toke.c
+++ b/toke.c
@@ -12756,6 +12756,7 @@ Perl_abort_execution(pTHX_ SV* msg_sv, const char * const name)
                     "Execution of %s aborted due to compilation errors.\n", name);
         }
     }
+
     NOT_REACHED; /* NOTREACHED */
 }
 
@@ -12772,14 +12773,16 @@ int
 Perl_yyerror(pTHX_ const char *const s)
 {
     PERL_ARGS_ASSERT_YYERROR;
-    return yyerror_pvn(s, strlen(s), 0);
+    int r = yyerror_pvn(s, strlen(s), 0);
+    return r;
 }
 
 int
 Perl_yyerror_pv(pTHX_ const char *const s, U32 flags)
 {
     PERL_ARGS_ASSERT_YYERROR_PV;
-    return yyerror_pvn(s, strlen(s), flags);
+    int r = yyerror_pvn(s, strlen(s), flags);
+    return r;
 }
 
 int