diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-26 20:10:42 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-26 20:10:42 +0000 |
commit | 5dc0d6134ebb76636f69238201dde15cec972fd0 (patch) | |
tree | 3f466c13b594ff662ce13454c90ecf35572088ea /gv.c | |
parent | 5bc6513ddd9360f3cbfa6bf29425e38b658230f5 (diff) | |
parent | 9ed32d99bcab50ff8df392e9741dd3de08a596a4 (diff) | |
download | perl-5dc0d6134ebb76636f69238201dde15cec972fd0.tar.gz |
Integrate thrperl 5.003->5.004.
p4raw-id: //depot/perl@24
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -420,6 +420,7 @@ char *nambeg; I32 add; I32 sv_type; { + dTHR; register char *name = nambeg; register GV *gv = 0; GV**gvp; @@ -820,6 +821,7 @@ GV *gv; IO * newIO() { + dTHR; IO *io; GV *iogv; @@ -836,6 +838,7 @@ void gv_check(stash) HV* stash; { + dTHR; register HE *entry; register I32 i; register GV *gv; @@ -963,6 +966,7 @@ bool Gv_AMupdate(stash) HV* stash; { + dTHR; GV** gvp; HV* hv; GV* gv; @@ -1126,6 +1130,7 @@ SV* right; int method; int flags; { + dTHR; MAGIC *mg; CV *cv; CV **cvp=NULL, **ocvp=NULL; @@ -1325,6 +1330,7 @@ int flags; || inc_dec_ass) RvDEEPCP(left); } { + dTHR; dSP; BINOP myop; SV* res; @@ -1342,7 +1348,7 @@ int flags; if (perldb && curstash != debstash) op->op_private |= OPpENTERSUB_DB; PUTBACK; - pp_pushmark(); + pp_pushmark(ARGS); EXTEND(sp, notfound + 5); PUSHs(lr>0? right: left); @@ -1354,7 +1360,7 @@ int flags; PUSHs((SV*)cv); PUTBACK; - if (op = pp_entersub()) + if (op = pp_entersub(ARGS)) runops(); LEAVE; SPAGAIN; |