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 --- ext/Devel/DProf/DProf.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ext/Devel') diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 69f0b899a3..220a1e2e92 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -561,7 +561,7 @@ XS(XS_DB_sub) sv_setiv( DBsingle, 0 ); /* disable DB single-stepping */ #endif - SAVEDESTRUCTOR(check_depth, (void*)depth); + SAVEDESTRUCTOR_X(check_depth, (void*)depth); depth++; prof_mark( OP_ENTERSUB ); -- cgit v1.2.1