diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-02-05 01:18:01 +0000 |
|---|---|---|
| committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-02-14 13:40:49 +0000 |
| commit | 656489102eb44a763e82ae9961a7097021182677 (patch) | |
| tree | b3178c98027b1478eab264867e1dd624470eca83 /proto.h | |
| parent | ab2bb8aa34c9c9d6912e7103eba65d0a722bc93d (diff) | |
| download | perl-656489102eb44a763e82ae9961a7097021182677.tar.gz | |
Add a newTRYCATCHOP(); migrate the custom code out of perly.y into it
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -2483,6 +2483,11 @@ PERL_CALLCONV SV* Perl_newSVuv(pTHX_ const UV u) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_NEWSVUV +PERL_CALLCONV OP* Perl_newTRYCATCHOP(pTHX_ I32 flags, OP* tryblock, OP *catchvar, OP* catchblock) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_NEWTRYCATCHOP \ + assert(tryblock); assert(catchvar); assert(catchblock) + PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_NEWUNOP |