From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Jul 2003 17:28:00 +0000 (+0000)
Subject: The *right* way to make the csighandler visible.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=669f94828c50674b20ed995418707226081e2671;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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