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 /os2 | |
| 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 'os2')
| -rw-r--r-- | os2/OS2/REXX/REXX.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/os2/OS2/REXX/REXX.xs b/os2/OS2/REXX/REXX.xs index 43c92c8b46..14489f965d 100644 --- a/os2/OS2/REXX/REXX.xs +++ b/os2/OS2/REXX/REXX.xs @@ -133,7 +133,7 @@ PERLCALL(PSZ name, ULONG argc, PRXSTRING argv, PSZ queue, PRXSTRING ret) ENTER; SAVETMPS; - PUSHMARK(sp); + PUSHMARK(SP); #if 0 if (!my_perl) { @@ -339,7 +339,7 @@ _fetch(name, ...) { int i; ULONG rc; - EXTEND(sp, items); + EXTEND(SP, items); needvars(items); if (trace) fprintf(stderr, "REXXCALL::_fetch"); @@ -410,7 +410,7 @@ _next(stem) rc = RexxVariablePool(&sv); } while (!rc && memcmp(stem, sv.shvname.strptr, len) != 0); if (!rc) { - EXTEND(sp, 2); + EXTEND(SP, 2); /* returned lengths appear to be swapped */ /* but beware of "future bug fixes" */ namelen = sv.shvname.strlength; /* should be */ |