This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regex: Remove FOLDCHAR regnode type
[perl5.git] / win32 / win32.h
index 204a380..e906266 100644 (file)
@@ -200,38 +200,6 @@ struct utsname {
 #  define PERL_BITFIELD32 unsigned int
 #endif
 
-#ifdef __BORLANDC__            /* Borland C++ */
-
-#if (__BORLANDC__ <= 0x520)
-#define _access access
-#define _chdir chdir
-#endif
-
-#define _getpid getpid
-#define wcsicmp _wcsicmp
-#include <sys/types.h>
-
-#ifndef DllMain
-#define DllMain DllEntryPoint
-#endif
-
-#pragma warn -8004     /* "'foo' is assigned a value that is never used" */
-#pragma warn -8008     /* "condition is always true/false" */
-#pragma warn -8012     /* "comparing signed and unsigned values" */
-#pragma warn -8027     /* "functions containing %s are not expanded inline" */
-#pragma warn -8057     /* "parameter 'foo' is never used" */
-#pragma warn -8060     /* "possibly incorrect assignment" */
-#pragma warn -8066     /* "unreachable code" */
-#pragma warn -8071     /* "conversion may lose significant digits" */
-#pragma warn -8080     /* "'foo' is declared but never used" */
-
-/* Borland C thinks that a pointer to a member variable is 12 bytes in size. */
-#define PERL_MEMBER_PTR_SIZE   12
-
-#define isnan          _isnan
-
-#endif
-
 #ifdef _MSC_VER                        /* Microsoft Visual C++ */
 
 #ifndef UNDER_CE
@@ -525,17 +493,6 @@ void win32_wait_for_children(pTHX);
 
 #define EXEC_ARGV_CAST(x) ((const char *const *) x)
 
-#if !defined(ECONNABORTED) && defined(WSAECONNABORTED)
-#define ECONNABORTED WSAECONNABORTED
-#endif
-#if !defined(ECONNRESET) && defined(WSAECONNRESET)
-#define ECONNRESET WSAECONNRESET
-#endif
-#if !defined(EAFNOSUPPORT) && defined(WSAEAFNOSUPPORT)
-#define EAFNOSUPPORT WSAEAFNOSUPPORT
-#endif
-/* Why not needed for ECONNREFUSED? --abe */
-
 DllExport void *win32_signal_context(void);
 #define PERL_GET_SIG_CONTEXT win32_signal_context()