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 /scope.h | |
| 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 'scope.h')
| -rw-r--r-- | scope.h | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -80,11 +80,13 @@ #ifdef PERL_OBJECT #define CALLDESTRUCTOR this->*SSPOPDPTR #define SAVEDESTRUCTOR(f,p) \ - save_destructor((DESTRUCTORFUNC)(f),SOFT_CAST(void*)(p)) + save_destructor((DESTRUCTORFUNC)(FUNC_NAME_TO_PTR(f)), \ + SOFT_CAST(void*)(p)) #else #define CALLDESTRUCTOR *SSPOPDPTR #define SAVEDESTRUCTOR(f,p) \ - save_destructor(SOFT_CAST(void(*)_((void*)))(f),SOFT_CAST(void*)(p)) + save_destructor(SOFT_CAST(void(*)_((void*)))(FUNC_NAME_TO_PTR(f)), \ + SOFT_CAST(void*)(p)) #endif #define SAVESTACK_POS() STMT_START { \ SSCHECK(2); \ |