diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-30 20:59:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-30 20:59:57 +0000 |
| commit | 497b47a829dd93323de2c7f4f6815ab9f23d6ada (patch) | |
| tree | a963c20cc317682e994f7ff206d33bed67bd75d7 /ext/List | |
| parent | 9108dd476ab123e35a9952fa95b6f608bede0e15 (diff) | |
| download | perl-497b47a829dd93323de2c7f4f6815ab9f23d6ada.tar.gz | |
Code cleanup based on turning off the -woffs in IRIX.
Not all of the gripes cleaned up (hairy code in hv.c and
regcomp.c; unused newsp, gimme, and optype from cop.h macros;
unused 'key' arguments in ?DBM_File.xs) (and the -woffs left
to the IRIX hints)
p4raw-id: //depot/perl@11051
Diffstat (limited to 'ext/List')
| -rw-r--r-- | ext/List/Util/Util.xs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index f75944dceb..0ea2e549f5 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -159,7 +159,6 @@ CODE: { SV *ret; int index; - I32 markix; GV *agv,*bgv,*gv; HV *stash; CV *cv; @@ -180,7 +179,6 @@ CODE: SAVETMPS; SAVESPTR(PL_op); ret = ST(1); - markix = sp - PL_stack_base; for(index = 2 ; index < items ; index++) { GvSV(agv) = ret; GvSV(bgv) = ST(index); @@ -199,7 +197,6 @@ PROTOTYPE: &@ CODE: { int index; - I32 markix; GV *gv; HV *stash; CV *cv; @@ -216,7 +213,6 @@ CODE: PL_curpad = AvARRAY((AV*)AvARRAY(CvPADLIST(cv))[1]); SAVETMPS; SAVESPTR(PL_op); - markix = sp - PL_stack_base; for(index = 1 ; index < items ; index++) { GvSV(PL_defgv) = ST(index); PL_op = reducecop; |