diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-06-26 05:34:34 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 21:35:02 +0000 |
| commit | 021a70353b886a3fddd791f6b3ecdfeb7c1ab1a0 (patch) | |
| tree | 00f1e3a5300571443c61a4ea0113c741c33431ca /av.c | |
| parent | 5e8027ba814d960d66c571b8ecfd9cfb794cf0c2 (diff) | |
| download | perl-021a70353b886a3fddd791f6b3ecdfeb7c1ab1a0.tar.gz | |
PUSHSTACK renovation
Message-Id: <H00000e500081d23@MHS>
p4raw-id: //depot/perl@1254
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 24 |
1 files changed, 12 insertions, 12 deletions
@@ -53,14 +53,14 @@ av_extend(AV *av, I32 key) dSP; ENTER; SAVETMPS; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); EXTEND(SP,2); PUSHs(mg->mg_obj); PUSHs(sv_2mortal(newSViv(key+1))); PUTBACK; perl_call_method("EXTEND", G_SCALAR|G_DISCARD); - POPSTACK(); + POPSTACK; FREETMPS; LEAVE; return; @@ -399,7 +399,7 @@ av_push(register AV *av, SV *val) if (SvRMAGICAL(av) && (mg = mg_find((SV*)av,'P'))) { dSP; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); EXTEND(SP,2); PUSHs(mg->mg_obj); @@ -408,7 +408,7 @@ av_push(register AV *av, SV *val) ENTER; perl_call_method("PUSH", G_SCALAR|G_DISCARD); LEAVE; - POPSTACK(); + POPSTACK; return; } av_store(av,AvFILLp(av)+1,val); @@ -426,7 +426,7 @@ av_pop(register AV *av) croak(no_modify); if (SvRMAGICAL(av) && (mg = mg_find((SV*)av,'P'))) { dSP; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); XPUSHs(mg->mg_obj); PUTBACK; @@ -437,7 +437,7 @@ av_pop(register AV *av) retval = &sv_undef; } LEAVE; - POPSTACK(); + POPSTACK; return retval; } retval = AvARRAY(av)[AvFILLp(av)]; @@ -461,7 +461,7 @@ av_unshift(register AV *av, register I32 num) if (SvRMAGICAL(av) && (mg = mg_find((SV*)av,'P'))) { dSP; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); EXTEND(SP,1+num); PUSHs(mg->mg_obj); @@ -472,7 +472,7 @@ av_unshift(register AV *av, register I32 num) ENTER; perl_call_method("UNSHIFT", G_SCALAR|G_DISCARD); LEAVE; - POPSTACK(); + POPSTACK; return; } @@ -512,7 +512,7 @@ av_shift(register AV *av) croak(no_modify); if (SvRMAGICAL(av) && (mg = mg_find((SV*)av,'P'))) { dSP; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); XPUSHs(mg->mg_obj); PUTBACK; @@ -523,7 +523,7 @@ av_shift(register AV *av) retval = &sv_undef; } LEAVE; - POPSTACK(); + POPSTACK; return retval; } retval = *AvARRAY(av); @@ -555,14 +555,14 @@ av_fill(register AV *av, I32 fill) dSP; ENTER; SAVETMPS; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); EXTEND(SP,2); PUSHs(mg->mg_obj); PUSHs(sv_2mortal(newSViv(fill+1))); PUTBACK; perl_call_method("STORESIZE", G_SCALAR|G_DISCARD); - POPSTACK(); + POPSTACK; FREETMPS; LEAVE; return; |