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 /ext/DB_File | |
| 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 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 10 |
1 files changed, 5 insertions, 5 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 ; |