The *right* way to make the csighandler visible.

p4raw-id: //depot/perl@20116

diff --git a/embed.fnc b/embed.fnc
index d6ebec7..19da53f 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -689,7 +689,7 @@ p   |I32    |setenv_getix   |char* nam
 p      |void   |setdefout      |GV* gv
 p      |HEK*   |share_hek      |const char* sv|I32 len|U32 hash
 np     |Signal_t |sighandler   |int sig
-np     |Signal_t |csighandler  |int sig
+Anp    |Signal_t |csighandler  |int sig
 Ap     |SV**   |stack_grow     |SV** sp|SV**p|int n
 Ap     |I32    |start_subparse |I32 is_format|U32 flags
 p      |void   |sub_crush_depth|CV* cv

diff --git a/embed.h b/embed.h
index 951ff7b..2ba996b 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -958,9 +958,7 @@
 #ifdef PERL_CORE
 #define sighandler             Perl_sighandler
 #endif
-#ifdef PERL_CORE
 #define csighandler            Perl_csighandler
-#endif
 #define stack_grow             Perl_stack_grow
 #define start_subparse         Perl_start_subparse
 #ifdef PERL_CORE
@@ -3448,9 +3446,7 @@
 #ifdef PERL_CORE
 #define sighandler             Perl_sighandler
 #endif
-#ifdef PERL_CORE
 #define csighandler            Perl_csighandler
-#endif
 #define stack_grow(a,b,c)      Perl_stack_grow(aTHX_ a,b,c)
 #define start_subparse(a,b)    Perl_start_subparse(aTHX_ a,b)
 #ifdef PERL_CORE

diff --git a/global.sym b/global.sym
index 1ac204b..2f47926 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -418,6 +418,7 @@ Perl_scan_hex
 Perl_scan_num
 Perl_scan_oct
 Perl_screaminstr
+Perl_csighandler
 Perl_stack_grow
 Perl_start_subparse
 Perl_sv_2bool