diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-16 08:44:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-16 08:44:37 +0000 |
| commit | ac4c12e7aee90d31d5da776601addbfd9d738a5a (patch) | |
| tree | 1824760ad266d03442e71a134673c0c0837302f1 /ext/Opcode | |
| parent | a0824163008c006b841cb7ca91d331692d4ba14a (diff) | |
| download | perl-ac4c12e7aee90d31d5da776601addbfd9d738a5a.tar.gz | |
[asperl] various changes to get asperl working under Borland
(passes all tests when built under PERL_OBJECT)
p4raw-id: //depot/asperl@809
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 5 |
1 files changed, 5 insertions, 0 deletions
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); |