This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix link error in perl521.dll with MinGW/gcc -xc++
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 24 Dec 2014 13:50:55 +0000 (13:50 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 24 Dec 2014 13:50:55 +0000 (13:50 +0000)
perl.exp:fake:(.edata+0x1214): undefined reference to `win32_async_check'

win32/win32.h

index 735c450..2d5eda9 100644 (file)
@@ -366,6 +366,7 @@ typedef struct {
 
 DllExport void         win32_get_child_IO(child_IO_table* ptr);
 DllExport HWND         win32_create_message_window(void);
+DllExport int          win32_async_check(pTHX);
 
 extern int             my_fclose(FILE *);
 extern char *          win32_get_privlib(const char *pl, STRLEN *const len);
@@ -470,8 +471,6 @@ struct interp_intern {
     Sighandler_t sigtable[SIG_SIZE];
 };
 
-DllExport int win32_async_check(pTHX);
-
 #define WIN32_POLL_INTERVAL 32768
 #define PERL_ASYNC_CHECK() if (w32_do_async || PL_sig_pending) win32_async_check(aTHX)