From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Fri, 11 Jan 2002 23:29:48 +0000 (+0100)
Subject: export win32_async_check or Perl_despatch_signals
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5290524f8b52822096b01140005d681d126b507d;p=p5sagit%2Fp5-mst-13.2.git

export win32_async_check or Perl_despatch_signals
Message-ID: <3C3F756C.21561.2E2A9CE@localhost>

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

diff --git a/embed.fnc b/embed.fnc
index e534f52..729f914 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -556,7 +556,7 @@ Apd	|I32	|call_argv	|const char* sub_name|I32 flags|char** argv
 Apd	|I32	|call_method	|const char* methname|I32 flags
 Apd	|I32	|call_pv	|const char* sub_name|I32 flags
 Apd	|I32	|call_sv	|SV* sv|I32 flags
-p	|void	|despatch_signals
+Ap	|void	|despatch_signals
 Apd	|SV*	|eval_pv	|const char* p|I32 croak_on_error
 Apd	|I32	|eval_sv	|SV* sv|I32 flags
 Apd	|SV*	|get_sv		|const char* name|I32 create
diff --git a/global.sym b/global.sym
index 4710ebb..5f0c9de 100644
--- a/global.sym
+++ b/global.sym
@@ -318,6 +318,7 @@ Perl_call_argv
 Perl_call_method
 Perl_call_pv
 Perl_call_sv
+Perl_despatch_signals
 Perl_eval_pv
 Perl_eval_sv
 Perl_get_sv
diff --git a/makedef.pl b/makedef.pl
index 9f490e0..e2cc21b 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -780,6 +780,7 @@ if ($PLATFORM eq 'win32') {
 			    Perl_thread_create
 			    Perl_win32_init
 			    RunPerl
+			    win32_async_check
 			    win32_errno
 			    win32_environ
 			    win32_abort