From ac4c12e7aee90d31d5da776601addbfd9d738a5a Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 16 Mar 1998 08:44:37 +0000
Subject: [asperl] various changes to get asperl working under Borland (passes
 all tests when built under PERL_OBJECT)

p4raw-id: //depot/asperl@809
---
 ext/Opcode/Opcode.xs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'ext/Opcode')

diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index a7b9c6d9a1..559d3843ff 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -201,8 +201,13 @@ opmask_addlocal(SV *opset, char *op_mask_buf) /* Localise op_mask then opmask_ad
 {
     char *orig_op_mask = op_mask;
     SAVEPPTR(op_mask);
+#if !(defined(PERL_OBJECT) && defined(__BORLANDC__))
+    /* XXX casting to an ordinary function ptr from a member function ptr
+     * is disallowed by Borland
+     */
     if (opcode_debug >= 2)
 	SAVEDESTRUCTOR((void(CPERLscope(*))_((void*)))warn,"op_mask restored");
+#endif
     op_mask = &op_mask_buf[0];
     if (orig_op_mask)
 	Copy(orig_op_mask, op_mask, maxo, char);
-- 
cgit v1.2.1