From 350de78d9c02710bb008e9ca922c78ba251ec366 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 8 Nov 1999 18:50:40 +0000 Subject: preliminary support for GVOP indirection via pad p4raw-id: //depot/perl@4539 --- pp_hot.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index ecaed7bb9a..0c5fd167e4 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -58,9 +58,9 @@ PP(pp_gvsv) djSP; EXTEND(SP,1); if (PL_op->op_private & OPpLVAL_INTRO) - PUSHs(save_scalar((GV*)cSVOP->op_sv)); + PUSHs(save_scalar(cGVOP)); else - PUSHs(GvSV((GV*)cSVOP->op_sv)); + PUSHs(GvSV(cGVOP)); RETURN; } @@ -95,7 +95,7 @@ PP(pp_stringify) PP(pp_gv) { djSP; - XPUSHs(cSVOP->op_sv); + XPUSHs((SV*)cGVOP); RETURN; } @@ -271,7 +271,7 @@ PP(pp_add) PP(pp_aelemfast) { djSP; - AV *av = GvAV((GV*)cSVOP->op_sv); + AV *av = GvAV(cGVOP); U32 lval = PL_op->op_flags & OPf_MOD; SV** svp = av_fetch(av, PL_op->op_private, lval); SV *sv = (svp ? *svp : &PL_sv_undef); -- cgit v1.2.1