This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make PERLSYS_TERM not require a context
authorDave Mitchell <davem@fdisolutions.com>
Sat, 3 Nov 2007 12:27:25 +0000 (12:27 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 3 Nov 2007 12:27:25 +0000 (12:27 +0000)
p4raw-id: //depot/perl@32216

embed.fnc
perl.c
perl.h
proto.h

index fd145ad..8e5c516 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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