From ac4c12e7aee90d31d5da776601addbfd9d738a5a Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 16 Mar 1998 08:44:37 +0000 Subject: [asperl] various changes to get asperl working under Borland (passes all tests when built under PERL_OBJECT) p4raw-id: //depot/asperl@809 --- win32/win32.h | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'win32/win32.h') diff --git a/win32/win32.h b/win32/win32.h index a502978201..bb2190b526 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -22,6 +22,10 @@ #ifdef __GNUC__ typedef long long __int64; #define Win32_Winsock +# ifdef __cplusplus +#undef __attribute__ /* seems broken in 2.8.0 */ +#define __attribute__(p) +# endif /* GCC does not do __declspec() - render it a nop * and turn on options to avoid importing data */ @@ -133,6 +137,11 @@ struct tms { #pragma warn -csu /* "comparing signed and unsigned values" */ #pragma warn -pro /* "call to function with no prototype" */ +/* Borland is picky about a bare member function name used as its ptr */ +#ifdef PERL_OBJECT +#define FUNC_NAME_TO_PTR(name) &(name) +#endif + #endif #ifdef _MSC_VER /* Microsoft Visual C++ */ @@ -151,6 +160,13 @@ typedef long gid_t; #define flushall _flushall #define fcloseall _fcloseall +#ifndef _O_NOINHERIT +# define _O_NOINHERIT 0x0080 +# ifndef _NO_OLDNAMES +# define O_NOINHERIT _O_NOINHERIT +# endif +#endif + #endif /* __MINGW32__ */ /* compatibility stuff for other compilers goes here */ -- cgit v1.2.1