- now more like other Win32 compilers
p4raw-id: //depot/perl@3425
#include "sockadapt.h"
#endif
+#ifndef WIN32 /* I_NETINET_TCP */
#include <netinet/tcp.h>
+#endif
#ifdef I_SYSUIO
# include <sys/uio.h>
#endif
#endif //_WINDOWS_
-#ifndef __GNUC__
+// #ifndef __GNUC__
#include <winsock.h>
-#endif
+// #endif
#define ENOTSOCK WSAENOTSOCK
#undef HOST_NOT_FOUND
#define PerlIO FILE
#endif
+#include <sys/stat.h>
#include "EXTERN.h"
#include "perl.h"
#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>
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:
#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
#endif /* USE_THREADS */
#endif /* _INC_WIN32_PERL5 */
+