diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-02-12 22:14:51 -0800 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-14 00:42:37 +0000 |
| commit | 9d8a25dc64d23dcd5730db9be0dbe94a107e1f8b (patch) | |
| tree | 6b1cd171d4482f416a67530f23e2bb55e51341b9 /ext/Opcode/Opcode.xs | |
| parent | 7fae4e64c5e2903183a8656ece6686238ddef215 (diff) | |
| download | perl-9d8a25dc64d23dcd5730db9be0dbe94a107e1f8b.tar.gz | |
[asperl] added AS patch#6
Message-Id: <01BD3846.B29FB880.dougl@ActiveState.com>
Subject: [PATCH] command line build
This patch is for the command line build of perl object.
I'll merge the ipfoo.c function with win32_xxx functions next.
-- Doug
p4raw-id: //depot/asperl@522
Diffstat (limited to 'ext/Opcode/Opcode.xs')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index cf5c859395..22d424d936 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -202,7 +202,7 @@ opmask_addlocal(SV *opset, char *op_mask_buf) /* Localise op_mask then opmask_ad char *orig_op_mask = op_mask; SAVEPPTR(op_mask); if (opcode_debug >= 2) - SAVEDESTRUCTOR((void(*)_((void*)))warn,"op_mask restored"); + SAVEDESTRUCTOR((void(CPERLscope(*))_((void*)))warn,"op_mask restored"); op_mask = &op_mask_buf[0]; if (orig_op_mask) Copy(orig_op_mask, op_mask, maxo, char); @@ -226,8 +226,8 @@ BOOT: void -_safe_call_sv(package, mask, codesv) - char * package +_safe_call_sv(Package, mask, codesv) + char * Package SV * mask SV * codesv PPCODE: @@ -243,7 +243,7 @@ _safe_call_sv(package, mask, codesv) save_hptr(&defstash); /* save current default stack */ /* the assignment to global defstash changes our sense of 'main' */ - defstash = gv_stashpv(package, GV_ADDWARN); /* should exist already */ + defstash = gv_stashpv(Package, GV_ADDWARN); /* should exist already */ /* defstash must itself contain a main:: so we'll add that now */ /* take care with the ref counts (was cause of long standing bug) */ |