diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-05-10 08:54:09 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-10 22:36:50 +0000 |
| commit | 93c66552381f5726d35a1d67d4843cb3a259eb63 (patch) | |
| tree | 4577ec58876ed36fb25841046dcdeed61a992985 /proto.h | |
| parent | bec892532a745f0388849c19cf8d4d5b3cbbda35 (diff) | |
| download | perl-93c66552381f5726d35a1d67d4843cb3a259eb63.tar.gz | |
[patch] make op_{clear,null} public
Message-ID: <Pine.LNX.4.21.0105101546510.2962-100000@mako.covalent.net>
p4raw-id: //depot/perl@10076
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -396,6 +396,8 @@ PERL_CALLCONV I32 Perl_keyword(pTHX_ char* d, I32 len); PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base); PERL_CALLCONV void Perl_lex_end(pTHX); PERL_CALLCONV void Perl_lex_start(pTHX_ SV* line); +PERL_CALLCONV void Perl_op_null(pTHX_ OP* o); +PERL_CALLCONV void Perl_op_clear(pTHX_ OP* o); PERL_CALLCONV OP* Perl_linklist(pTHX_ OP* o); PERL_CALLCONV OP* Perl_list(pTHX_ OP* o); PERL_CALLCONV OP* Perl_listkids(pTHX_ OP* o); @@ -1027,8 +1029,6 @@ STATIC OP* S_no_fh_allowed(pTHX_ OP *o); STATIC OP* S_scalarboolean(pTHX_ OP *o); STATIC OP* S_too_few_arguments(pTHX_ OP *o, char* name); STATIC OP* S_too_many_arguments(pTHX_ OP *o, char* name); -STATIC void S_op_clear(pTHX_ OP* o); -STATIC void S_null(pTHX_ OP* o); STATIC PADOFFSET S_pad_addlex(pTHX_ SV* name); STATIC PADOFFSET S_pad_findlex(pTHX_ char* name, PADOFFSET newoff, U32 seq, CV* startcv, I32 cx_ix, I32 saweval, U32 flags); STATIC OP* S_newDEFSVOP(pTHX); |