diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-30 20:08:17 +0200 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-10-30 16:46:13 +0000 |
| commit | beeded0b4ac15442a863413adf9b36150d3d30f5 (patch) | |
| tree | 400a2c5f53628edf6067cadff4c9521eabba48de /win32 | |
| parent | 73966613797e93d4a1126c6fbb0ef946af6f248b (diff) | |
| download | perl-beeded0b4ac15442a863413adf9b36150d3d30f5.tar.gz | |
Patch 29155 breaks VC
Message-ID: <9b18b3110610300808u39cc6cefxbee1468a149dc186@mail.gmail.com>
Plus an additional casting.
p4raw-id: //depot/perl@29159
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c index be5e3f6fd8..a0f9c0a884 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4941,6 +4941,12 @@ win32_create_message_window() return CreateWindow("Static", "", 0, 0, 0, 0, 0, HWND_MESSAGE, 0, 0, NULL); } +#if defined(__MINGW32__) +#define CAST_HWND__(x) (HWND__*)(x) +#else +#define CAST_HWND__(x) x +#endif + void Perl_sys_intern_init(pTHX) { @@ -4963,7 +4969,7 @@ Perl_sys_intern_init(pTHX) w32_num_pseudo_children = 0; # endif w32_timerid = 0; - w32_message_hwnd = (HWND__*)INVALID_HANDLE_VALUE; + w32_message_hwnd = CAST_HWND__(INVALID_HANDLE_VALUE); w32_poll_count = 0; for (i=0; i < SIG_SIZE; i++) { w32_sighandler[i] = SIG_DFL; @@ -5019,7 +5025,7 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst) dst->pseudo_id = 0; Newxz(dst->pseudo_children, 1, pseudo_child_tab); dst->timerid = 0; - dst->message_hwnd = INVALID_HANDLE_VALUE; + dst->message_hwnd = CAST_HWND__(INVALID_HANDLE_VALUE); dst->poll_count = 0; Copy(src->sigtable,dst->sigtable,SIG_SIZE,Sighandler_t); } |