summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-10-10 20:42:40 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-10-10 20:42:40 +0000
commitc76ac1ee16c5c9591d8ffad5a0651b7f81738b68 (patch)
tree26af37f6b40806cfedd24504ae354c5b90d4c471 /objXSUB.h
parenta99ba4038e8029c0d033ef497d3a0f8653f0d570 (diff)
downloadperl-c76ac1ee16c5c9591d8ffad5a0651b7f81738b68.tar.gz
revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source
compatibility; introduce SAVEDESTRUCTOR_X() that accepts void(*)(pTHX_ void*) p4raw-id: //depot/perl@4339
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index cd8f2d8612..9620006725 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -2706,6 +2706,10 @@
#define Perl_save_destructor pPerl->Perl_save_destructor
#undef save_destructor
#define save_destructor Perl_save_destructor
+#undef Perl_save_destructor_x
+#define Perl_save_destructor_x pPerl->Perl_save_destructor_x
+#undef save_destructor_x
+#define save_destructor_x Perl_save_destructor_x
#undef Perl_save_freesv
#define Perl_save_freesv pPerl->Perl_save_freesv
#undef save_freesv