diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-01 23:25:30 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-01 23:25:30 +0000 |
| commit | 0c1d5eeb2119d0fea75cdbf9cbe912379684c13b (patch) | |
| tree | 1d8103683ceca52c0fb9c70c9d08e8f5afc51042 /ext/B | |
| parent | f39fb8cc9d88ca007aab35d5a7373417b639dd74 (diff) | |
| parent | 207e3d1a90c36a3515e39bab07091689f949bfbe (diff) | |
| download | perl-0c1d5eeb2119d0fea75cdbf9cbe912379684c13b.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@8976
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/C.pm | 6 | ||||
| -rw-r--r-- | ext/B/B/CC.pm | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 54fa46fb4f..50088752ab 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -1020,7 +1020,7 @@ sub output_all { static int $init_name() { dTARG; - djSP; + dSP; EOT $init->output(\*STDOUT, "\t%s\n"); print "\treturn 0;\n}\n"; @@ -1172,7 +1172,7 @@ xs_init(pTHX) { char *file = __FILE__; dTARG; - djSP; + dSP; EOT print "\n#ifdef USE_DYNAMIC_LOADING"; print qq/\n\tnewXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);/; @@ -1208,7 +1208,7 @@ dl_init(pTHX) { char *file = __FILE__; dTARG; - djSP; + dSP; EOT print("/* Dynamicboot strapping code*/\n\tSAVETMPS;\n"); print("\ttarg=sv_newmortal();\n"); diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm index c5ca2a3df5..51922eeb2b 100644 --- a/ext/B/B/CC.pm +++ b/ext/B/B/CC.pm @@ -151,7 +151,7 @@ sub init_pp { $ppname = shift; $runtime_list_ref = []; $declare_ref = {}; - runtime("djSP;"); + runtime("dSP;"); declare("I32", "oldsave"); declare("SV", "**svp"); map { declare("SV", "*$_") } qw(sv src dst left right); |