From 9d8a25dc64d23dcd5730db9be0dbe94a107e1f8b Mon Sep 17 00:00:00 2001 From: Douglas Lankshear Date: Thu, 12 Feb 1998 22:14:51 -0800 Subject: [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 --- ext/Opcode/Opcode.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/Opcode/Opcode.xs') 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) */ -- cgit v1.2.1