diff options
author | Zefram <zefram@fysh.org> | 2010-10-24 03:13:39 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 12:29:47 -0700 |
commit | 8359b381d0e4b7d1489abafb919f3c2a465401a4 (patch) | |
tree | 50b3187c01fbea29c0ffe65bda449ef0419a690d /embed.h | |
parent | 94bf0465170f13a4a3114b27d564dc2287d466b2 (diff) | |
download | perl-8359b381d0e4b7d1489abafb919f3c2a465401a4.tar.gz |
function to parse unlabelled statement
New API function parse_barestmt() parses a pure statement, with no label,
and returns just the statement's core ops, not attaching a state op.
Diffstat (limited to 'embed.h')
-rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -376,6 +376,7 @@ #define pack_cat(a,b,c,d,e,f,g) Perl_pack_cat(aTHX_ a,b,c,d,e,f,g) #define packlist(a,b,c,d,e) Perl_packlist(aTHX_ a,b,c,d,e) #define pad_findmy(a,b,c) Perl_pad_findmy(aTHX_ a,b,c) +#define parse_barestmt(a) Perl_parse_barestmt(aTHX_ a) #define parse_block(a) Perl_parse_block(aTHX_ a) #define parse_fullstmt(a) Perl_parse_fullstmt(aTHX_ a) #define parse_stmtseq(a) Perl_parse_stmtseq(aTHX_ a) |