diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 01:00:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 01:00:09 +0000 |
| commit | 7766f1371a6d2b58d0f46fbe6a60785860a39c1e (patch) | |
| tree | 700a30f3a9c7640a0c123dc9608fc998df8ecfb4 /ext | |
| parent | 363b4d598618baccb2a68ae886e2608f45cd3cb5 (diff) | |
| download | perl-7766f1371a6d2b58d0f46fbe6a60785860a39c1e.tar.gz | |
more complete pseudo-fork() support for Windows
p4raw-id: //depot/perl@4602
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/CC.pm | 4 | ||||
| -rw-r--r-- | ext/Opcode/Opcode.xs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm index 0fe5e7d8d5..cf0e81f92e 100644 --- a/ext/B/B/CC.pm +++ b/ext/B/B/CC.pm @@ -1644,8 +1644,8 @@ XS(boot_$cmodule) perl_init(); ENTER; SAVETMPS; - SAVESPTR(PL_curpad); - SAVESPTR(PL_op); + SAVEVPTR(PL_curpad); + SAVEVPTR(PL_op); PL_curpad = AvARRAY($curpad_sym); PL_op = $start; pp_main(aTHX); diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 63ff8aa711..581cbc94d9 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -204,7 +204,7 @@ static void opmask_addlocal(pTHX_ SV *opset, char *op_mask_buf) /* Localise PL_op_mask then opmask_add() */ { char *orig_op_mask = PL_op_mask; - SAVEPPTR(PL_op_mask); + SAVEVPTR(PL_op_mask); #if !defined(PERL_OBJECT) /* XXX casting to an ordinary function ptr from a member function ptr * is disallowed by Borland |