diff options
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 |