diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-24 17:00:31 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-24 17:00:31 -0400 |
commit | a620de2df902bfbe38fa31b7215885b912ff3fb1 (patch) | |
tree | 1c3dd9c7da1c9485842e3a78c2a0fca8861faeb0 | |
parent | f282adc757dc5319a9110a5441f137f4c511a842 (diff) | |
download | parse-keyword-a620de2df902bfbe38fa31b7215885b912ff3fb1.tar.gz parse-keyword-a620de2df902bfbe38fa31b7215885b912ff3fb1.zip |
no reason to have these as macros now that this is its own function
-rw-r--r-- | Keyword.xs | 15 |
1 files changed, 5 insertions, 10 deletions
@@ -11,21 +11,16 @@ #define scalar(a) Perl_scalar(aTHX_ a) #endif -#define REENTER_PARSER STMT_START { \ - ENTER; \ - PL_curcop = &PL_compiling; \ - SAVEVPTR(PL_op); \ -} STMT_END - -#define LEAVE_PARSER LEAVE - static SV *parser_fn(OP *(fn)(pTHX_ U32), bool named) { I32 floor; CV *code; U8 errors; - REENTER_PARSER; + ENTER; + + PL_curcop = &PL_compiling; + SAVEVPTR(PL_op); SAVEI8(PL_parser->error_count); PL_parser->error_count = 0; @@ -34,7 +29,7 @@ static SV *parser_fn(OP *(fn)(pTHX_ U32), bool named) errors = PL_parser->error_count; - LEAVE_PARSER; + LEAVE; if (errors) { ++PL_parser->error_count; |