From c76ac1ee16c5c9591d8ffad5a0651b7f81738b68 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 10 Oct 1999 20:42:40 +0000 Subject: revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source compatibility; introduce SAVEDESTRUCTOR_X() that accepts void(*)(pTHX_ void*) p4raw-id: //depot/perl@4339 --- proto.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'proto.h') diff --git a/proto.h b/proto.h index 2f68d9bd69..6551c31179 100644 --- a/proto.h +++ b/proto.h @@ -510,7 +510,8 @@ VIRTUAL void Perl_save_aptr(pTHX_ AV** aptr); VIRTUAL AV* Perl_save_ary(pTHX_ GV* gv); VIRTUAL void Perl_save_clearsv(pTHX_ SV** svp); VIRTUAL void Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen); -VIRTUAL void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_t f, void* p); +VIRTUAL void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p); +VIRTUAL void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p); VIRTUAL void Perl_save_freesv(pTHX_ SV* sv); VIRTUAL void Perl_save_freeop(pTHX_ OP* o); VIRTUAL void Perl_save_freepv(pTHX_ char* pv); -- cgit v1.2.1