revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source

compatibility; introduce SAVEDESTRUCTOR_X() that accepts
void(*)(pTHX_ void*)

p4raw-id: //depot/perl@4339

1 files changed, 8 insertions, 1 deletions

diff --git a/perlapi.c b/perlapi.c
index 0f20e54a47..ac38dffdfb 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -3324,11 +3324,18 @@ Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
 
 #undef  Perl_save_destructor
 void
-Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_t f, void* p)
+Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
 {
     ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
 }
 
+#undef  Perl_save_destructor_x
+void
+Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
+{
+    ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
+}
+
 #undef  Perl_save_freesv
 void
 Perl_save_freesv(pTHXo_ SV* sv)