From 7a9ec5a384827281b406275296e7470424fe6b86 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 15 May 1999 15:56:10 +0000
Subject: [PATCH] Mingw32 + w32api-0.1.5 tweaks  - now more like other Win32
 compilers

p4raw-id: //depot/perl@3425
---
 ext/Socket/Socket.xs       | 2 ++
 win32/include/sys/socket.h | 4 ++--
 win32/win32.c              | 6 +++++-
 win32/win32.h              | 3 ++-
 4 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 5182587..b8e3408 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -26,7 +26,9 @@
 #include "sockadapt.h"
 #endif
 
+#ifndef WIN32 /* I_NETINET_TCP */
 #include <netinet/tcp.h>
+#endif
 
 #ifdef I_SYSUIO
 # include <sys/uio.h>
diff --git a/win32/include/sys/socket.h b/win32/include/sys/socket.h
index 6ffb0ac..87506fb 100644
--- a/win32/include/sys/socket.h
+++ b/win32/include/sys/socket.h
@@ -47,9 +47,9 @@ typedef struct _OVERLAPPED {
 
 #endif
 #endif //_WINDOWS_
-#ifndef __GNUC__
+// #ifndef __GNUC__
 #include <winsock.h>
-#endif
+// #endif
 
 #define  ENOTSOCK	WSAENOTSOCK
 #undef   HOST_NOT_FOUND
diff --git a/win32/win32.c b/win32/win32.c
index 858f86e..2fe8772 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -35,6 +35,7 @@
 #define PerlIO FILE
 #endif
 
+#include <sys/stat.h>
 #include "EXTERN.h"
 #include "perl.h"
 
@@ -46,7 +47,6 @@ extern CPerlObj* pPerl;
 
 #include "Win32iop.h"
 #include <fcntl.h>
-#include <sys/stat.h>
 #ifndef __GNUC__
 /* assert.h conflicts with #define of assert in perl.h */
 #include <assert.h>
@@ -1320,11 +1320,15 @@ win32_uname(struct utsname *name)
 	char *arch;
 	GetSystemInfo(&info);
 
+#ifdef __MINGW32__
+	switch (info.DUMMYUNIONNAME.DUMMYSTRUCTNAME.wProcessorArchitecture) {
+#else
 #ifdef __BORLANDC__
 	switch (info.u.s.wProcessorArchitecture) {
 #else
 	switch (info.wProcessorArchitecture) {
 #endif
+#endif
 	case PROCESSOR_ARCHITECTURE_INTEL:
 	    arch = "x86"; break;
 	case PROCESSOR_ARCHITECTURE_MIPS:
diff --git a/win32/win32.h b/win32/win32.h
index f712928..bfca44a 100644
--- a/win32/win32.h
+++ b/win32/win32.h
@@ -23,7 +23,7 @@
 #endif
 
 #ifdef __GNUC__
-typedef long long __int64;
+// typedef long long __int64;
 #  define Win32_Winsock
 /* GCC does not do __declspec() - render it a nop 
  * and turn on options to avoid importing data 
@@ -393,3 +393,4 @@ struct thread_intern {
 #endif /* USE_THREADS */
 
 #endif /* _INC_WIN32_PERL5 */
+
-- 
2.7.4