[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

6 files changed, 22 insertions, 22 deletions

diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 91b4dc2ad5..4f70a2df73 100644
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -356,8 +356,8 @@ const DBT * key2 ;
     ENTER ;
     SAVETMPS;
 
-    PUSHMARK(sp) ;
-    EXTEND(sp,2) ;
+    PUSHMARK(SP) ;
+    EXTEND(SP,2) ;
     PUSHs(sv_2mortal(newSVpv(data1,key1->size)));
     PUSHs(sv_2mortal(newSVpv(data2,key2->size)));
     PUTBACK ;
@@ -403,8 +403,8 @@ const DBT * key2 ;
     ENTER ;
     SAVETMPS;
 
-    PUSHMARK(sp) ;
-    EXTEND(sp,2) ;
+    PUSHMARK(SP) ;
+    EXTEND(SP,2) ;
     PUSHs(sv_2mortal(newSVpv(data1,key1->size)));
     PUSHs(sv_2mortal(newSVpv(data2,key2->size)));
     PUTBACK ;
@@ -441,7 +441,7 @@ size_t size ;
     ENTER ;
     SAVETMPS;
 
-    PUSHMARK(sp) ;
+    PUSHMARK(SP) ;
 
     XPUSHs(sv_2mortal(newSVpv((char*)data,size)));
     PUTBACK ;
diff --git a/ext/DynaLoader/dl_dld.xs b/ext/DynaLoader/dl_dld.xs
index 44933ec92c..a0bdcc8de1 100644
--- a/ext/DynaLoader/dl_dld.xs
+++ b/ext/DynaLoader/dl_dld.xs
@@ -144,7 +144,7 @@ dl_undef_symbols()
     if (dld_undefined_sym_count) {
 	int x;
 	char **undef_syms = dld_list_undefined_sym();
-	EXTEND(sp, dld_undefined_sym_count);
+	EXTEND(SP, dld_undefined_sym_count);
 	for (x=0; x < dld_undefined_sym_count; x++)
 	    PUSHs(sv_2mortal(newSVpv(undef_syms[x]+1, 0)));
 	free(undef_syms);
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index cf5c859395..b9e4c87200 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -252,7 +252,7 @@ _safe_call_sv(package, mask, codesv)
     sv_free((SV*)GvHV(gv));
     GvHV(gv) = (HV*)SvREFCNT_inc(defstash);
 
-    PUSHMARK(sp);
+    PUSHMARK(SP);
     perl_call_sv(codesv, GIMME|G_EVAL|G_KEEPERR); /* use callers context */
     SPAGAIN; /* for the PUTBACK added by xsubpp */
     LEAVE;
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 31439b2365..8807d68189 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -3213,7 +3213,7 @@ pipe()
     PPCODE:
 	int fds[2];
 	if (pipe(fds) != -1) {
-	    EXTEND(sp,2);
+	    EXTEND(SP,2);
 	    PUSHs(sv_2mortal(newSViv(fds[0])));
 	    PUSHs(sv_2mortal(newSViv(fds[1])));
 	}
@@ -3257,7 +3257,7 @@ uname()
 #ifdef HAS_UNAME
 	struct utsname buf;
 	if (uname(&buf) >= 0) {
-	    EXTEND(sp, 5);
+	    EXTEND(SP, 5);
 	    PUSHs(sv_2mortal(newSVpv(buf.sysname, 0)));
 	    PUSHs(sv_2mortal(newSVpv(buf.nodename, 0)));
 	    PUSHs(sv_2mortal(newSVpv(buf.release, 0)));
@@ -3325,7 +3325,7 @@ strtod(str)
 	num = strtod(str, &unparsed);
 	PUSHs(sv_2mortal(newSVnv(num)));
 	if (GIMME == G_ARRAY) {
-	    EXTEND(sp, 1);
+	    EXTEND(SP, 1);
 	    if (unparsed)
 		PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
 	    else
@@ -3346,7 +3346,7 @@ strtol(str, base = 0)
 	else
 	    PUSHs(sv_2mortal(newSVnv((double)num)));
 	if (GIMME == G_ARRAY) {
-	    EXTEND(sp, 1);
+	    EXTEND(SP, 1);
 	    if (unparsed)
 		PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
 	    else
@@ -3367,7 +3367,7 @@ strtoul(str, base = 0)
 	else
 	    PUSHs(sv_2mortal(newSVnv((double)num)));
 	if (GIMME == G_ARRAY) {
-	    EXTEND(sp, 1);
+	    EXTEND(SP, 1);
 	    if (unparsed)
 		PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
 	    else
@@ -3468,7 +3468,7 @@ times()
 	struct tms tms;
 	clock_t realtime;
 	realtime = times( &tms );
-	EXTEND(sp,5);
+	EXTEND(SP,5);
 	PUSHs( sv_2mortal( newSViv( (IV) realtime ) ) );
 	PUSHs( sv_2mortal( newSViv( (IV) tms.tms_utime ) ) );
 	PUSHs( sv_2mortal( newSViv( (IV) tms.tms_stime ) ) );
@@ -3546,7 +3546,7 @@ tzset()
 void
 tzname()
     PPCODE:
-	EXTEND(sp,2);
+	EXTEND(SP,2);
 	PUSHs(sv_2mortal(newSVpv(tzname[0],strlen(tzname[0]))));
 	PUSHs(sv_2mortal(newSVpv(tzname[1],strlen(tzname[1]))));
 
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index d2f3d9e10d..3664368cab 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -828,7 +828,7 @@ unpack_sockaddr_in(sin_sv)
 	port = ntohs(addr.sin_port);
 	ip_address = addr.sin_addr;
 
-	EXTEND(sp, 2);
+	EXTEND(SP, 2);
 	PUSHs(sv_2mortal(newSViv((IV) port)));
 	PUSHs(sv_2mortal(newSVpv((char *)&ip_address,sizeof ip_address)));
 	}
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index 3b49dbecb2..aea72f4a46 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -117,8 +117,8 @@ threadstart(void *arg)
     PUTBACK;
     perl_call_sv(sv, G_ARRAY|G_EVAL);
     SPAGAIN;
-    retval = sp - (stack_base + oldmark);
-    sp = stack_base + oldmark + 1;
+    retval = SP - (stack_base + oldmark);
+    SP = stack_base + oldmark + 1;
     if (SvCUR(thr->errsv)) {
 	MUTEX_LOCK(&thr->mutex);
 	thr->flags |= THRf_DID_DIE;
@@ -131,12 +131,12 @@ threadstart(void *arg)
 	DEBUG_L(STMT_START {
 	    for (i = 1; i <= retval; i++) {
 		PerlIO_printf(PerlIO_stderr(), "%p return[%d] = %s\n",
-				thr, i, SvPEEK(sp[i - 1]));
+				thr, i, SvPEEK(SP[i - 1]));
 	    }
 	} STMT_END);
 	av_store(av, 0, &sv_yes);
-	for (i = 1; i <= retval; i++, sp++)
-	    sv_setsv(*av_fetch(av, i, TRUE), SvREFCNT_inc(*sp));
+	for (i = 1; i <= retval; i++, SP++)
+	    sv_setsv(*av_fetch(av, i, TRUE), SvREFCNT_inc(*SP));
     }
 
   finishoff:
@@ -219,7 +219,7 @@ newthread (SV *startsv, AV *initargs, char *classname)
 			  "%p: newthread (%p), tid is %u, preparing stack\n",
 			  savethread, thr, thr->tid));
     /* The following pushes the arg list and startsv onto the *new* stack */
-    PUSHMARK(sp);
+    PUSHMARK(SP);
     /* Could easily speed up the following greatly */
     for (i = 0; i <= AvFILL(initargs); i++)
 	XPUSHs(SvREFCNT_inc(*av_fetch(initargs, i, FALSE)));
@@ -543,7 +543,7 @@ list(classname)
 	/* Truncate any unneeded slots in av */
 	av_fill(av, n - 1);
 	/* Finally, push all the new objects onto the stack and drop av */
-	EXTEND(sp, n);
+	EXTEND(SP, n);
 	for (svp = AvARRAY(av); n > 0; n--, svp++)
 	    PUSHs(*svp);
 	(void)sv_2mortal((SV*)av);