diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-07 01:05:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-07 01:05:21 +0000 |
| commit | 924508f06969d29692d1762cecf34a062431e1af (patch) | |
| tree | fa410a2e2cf94abd7708db2687960ff056039f69 /pp.c | |
| parent | 07ba589215942ebbc273059e8ab8622602f3e0f2 (diff) | |
| download | perl-924508f06969d29692d1762cecf34a062431e1af.tar.gz | |
[win32] change all 'sp' to 'SP' in code and in the docs. Explicitly
mention that local stack pointer should be called SP. This makes the
API safer from source incompatibilities down the line.
p4raw-id: //depot/win32/perl@795
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2216,7 +2216,7 @@ PP(pp_aslice) if (SvTYPE(av) == SVt_PVAV) { if (lval && op->op_private & OPpLVAL_INTRO) { I32 max = -1; - for (svp = mark + 1; svp <= sp; svp++) { + for (svp = MARK + 1; svp <= SP; svp++) { elem = SvIVx(*svp); if (elem > max) max = elem; @@ -2858,7 +2858,7 @@ PP(pp_unpack) { djSP; dPOPPOPssrl; - SV **oldsp = sp; + SV **oldsp = SP; I32 gimme = GIMME_V; SV *sv; STRLEN llen; @@ -3542,7 +3542,7 @@ PP(pp_unpack) checksum = 0; } } - if (sp == oldsp && gimme == G_SCALAR) + if (SP == oldsp && gimme == G_SCALAR) PUSHs(&sv_undef); RETURN; } @@ -4436,7 +4436,7 @@ PP(pp_threadsv) { djSP; #ifdef USE_THREADS - EXTEND(sp, 1); + EXTEND(SP, 1); if (op->op_private & OPpLVAL_INTRO) PUSHs(*save_threadsv(op->op_targ)); else |