diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-11-24 22:19:06 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-02 00:58:54 +0000 |
| commit | a3985cdcc04b13974afc5f4635645003847806e4 (patch) | |
| tree | 414f284613a099a7fc5dde52837c3e0f3601fc59 /proto.h | |
| parent | 9cfe5470b44e33f00045a3b9c3128c6ade6e813f (diff) | |
| download | perl-a3985cdcc04b13974afc5f4635645003847806e4.tar.gz | |
allow evals to see the full lexical scope
Message-ID: <20021124221906.A25386@fdgroup.com>
p4raw-id: //depot/perl@18220
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1112,7 +1112,7 @@ STATIC I32 S_dopoptoloop(pTHX_ I32 startingblock); STATIC I32 S_dopoptosub(pTHX_ I32 startingblock); STATIC I32 S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock); STATIC void S_save_lines(pTHX_ AV *array, SV *sv); -STATIC OP* S_doeval(pTHX_ int gimme, OP** startop); +STATIC OP* S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq); STATIC PerlIO * S_doopen_pmc(pTHX_ const char *name, const char *mode); STATIC bool S_path_is_absolute(pTHX_ char *name); #endif @@ -1360,7 +1360,7 @@ STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I #endif PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ padnew_flags flags); -PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv, CV* outercv); +PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv); PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ char *name, HV* typestash, HV* ourstash, bool clone); PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type); PERL_CALLCONV void Perl_pad_check_dup(pTHX_ char* name, bool is_our, HV* ourstash); @@ -1375,12 +1375,13 @@ PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth, int has_args); #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) -STATIC PADOFFSET S_pad_findlex(pTHX_ char* name, PADOFFSET newoff, U32 seq, CV* startcv, I32 cx_ix, I32 saweval, U32 flags); +STATIC PADOFFSET S_pad_findlex(pTHX_ char* name, PADOFFSET newoff, CV* innercv); # if defined(DEBUGGING) STATIC void S_cv_dump(pTHX_ CV *cv, char *title); # endif STATIC CV* S_cv_clone2(pTHX_ CV *proto, CV *outside); #endif +PERL_CALLCONV CV* Perl_find_runcv(pTHX); |