From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 3 Nov 2007 12:27:25 +0000 (+0000)
Subject: make PERLSYS_TERM not require a context
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0820ef1cb6e6e70248509108fe770bc34d75184;p=p5sagit%2Fp5-mst-13.2.git

make PERLSYS_TERM not require a context

p4raw-id: //depot/perl@32216
---

diff --git a/embed.fnc b/embed.fnc
index fd145ad..8e5c516 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1894,7 +1894,7 @@ Apd	|void	|mro_method_changed_in	|NN HV* stash
 p	|void   |boot_core_mro
 Apon	|void	|sys_init	|NN int* argc|NN char*** argv
 Apon	|void	|sys_init3	|NN int* argc|NN char*** argv|NN char*** env
-Apo	|void	|sys_term
+Apon	|void	|sys_term
 
 
 END_EXTERN_C
diff --git a/perl.c b/perl.c
index d2d748f..657deda 100644
--- a/perl.c
+++ b/perl.c
@@ -204,7 +204,7 @@ Perl_sys_init3(int* argc, char*** argv, char*** env)
 }
 
 void
-Perl_sys_term(pTHX)
+Perl_sys_term()
 {
     dVAR;
     if (!PL_veto_cleanup) {
diff --git a/perl.h b/perl.h
index e81d1af..d81bc10 100644
--- a/perl.h
+++ b/perl.h
@@ -2654,7 +2654,7 @@ typedef struct clone_params CLONE_PARAMS;
 
 #define PERL_SYS_INIT(argc, argv)	Perl_sys_init(argc, argv)
 #define PERL_SYS_INIT3(argc, argv, env)	Perl_sys_init3(argc, argv, env)
-#define PERL_SYS_TERM()			Perl_sys_term(aTHX)
+#define PERL_SYS_TERM()			Perl_sys_term()
 
 #ifndef PERL_WRITE_MSG_TO_CONSOLE
 #  define PERL_WRITE_MSG_TO_CONSOLE(io, msg, len) PerlIO_write(io, msg, len)
@@ -3969,12 +3969,12 @@ EXTERN_C void PerlIO_teardown();
 #  define PERLIO_INIT MUTEX_INIT(&PL_perlio_mutex)
 #  define PERLIO_TERM 				\
 	STMT_START {				\
-		PerlIO_teardown(aTHX);		\
+		PerlIO_teardown();		\
 		MUTEX_DESTROY(&PL_perlio_mutex);\
 	} STMT_END
 # else
 #  define PERLIO_INIT
-#  define PERLIO_TERM	PerlIO_teardown(aTHX)
+#  define PERLIO_TERM	PerlIO_teardown()
 # endif
 #else
 #  define PERLIO_INIT
diff --git a/proto.h b/proto.h
index 19cfb10..7fee1dc 100644
--- a/proto.h
+++ b/proto.h
@@ -4710,7 +4710,7 @@ PERL_CALLCONV void	Perl_sys_init3(int* argc, char*** argv, char*** env)
 			__attribute__nonnull__(2)
 			__attribute__nonnull__(3);
 
-PERL_CALLCONV void	Perl_sys_term(pTHX);
+PERL_CALLCONV void	Perl_sys_term(void);
 
 
 END_EXTERN_C