This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
export win32_async_check or Perl_despatch_signals
authorMattia Barbon <mbarbon@dsi.unive.it>
Fri, 11 Jan 2002 23:29:48 +0000 (00:29 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Jan 2002 00:10:51 +0000 (00:10 +0000)
Message-ID: <3C3F756C.21561.2E2A9CE@localhost>

p4raw-id: //depot/perl@14203

embed.fnc
global.sym
makedef.pl

index e534f52..729f914 100644 (file)
--- 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
-     |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
index 4710ebb..5f0c9de 100644 (file)
@@ -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
index 9f490e0..e2cc21b 100644 (file)
@@ -780,6 +780,7 @@ if ($PLATFORM eq 'win32') {
                            Perl_thread_create
                            Perl_win32_init
                            RunPerl
+                           win32_async_check
                            win32_errno
                            win32_environ
                            win32_abort