gcc/config/i386/win32.h - gcc - Git at Google

 /* Operating system specific defines to be used when targeting GCC for
    hosting on Windows NT 3.x, using a Unix style C library and tools,
    as distinct from winnt.h, which is used to build GCC for use with a
    windows style library and tool set and uses the Microsoft tools.
    Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000
    Free Software Foundation, Inc.

 This file is part of GNU CC.

 GNU CC is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2, or (at your option)
 any later version.

 GNU CC is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with GNU CC; see the file COPYING.  If not, write to
 the Free Software Foundation, 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA. */

 #define YES_UNDERSCORES

 /* Enable parsing of #pragma pack(push,<n>) and #pragma pack(pop).  */
 #define HANDLE_PRAGMA_PACK_PUSH_POP 1

 #define DBX_DEBUGGING_INFO
 #define SDB_DEBUGGING_INFO
 #define PREFERRED_DEBUGGING_TYPE DBX_DEBUG

 #include "i386/gas.h"
 #include "dbxcoff.h"

 /* Augment TARGET_SWITCHES with the cygwin/win32 options. */
 #define MASK_WIN32 0x40000000 /* Use -lming32 interface */
 #define MASK_CYGWIN  0x20000000 /* Use -lcygwin interface */
 #define MASK_WINDOWS 0x10000000 /* Use windows interface */
 #define MASK_DLL     0x08000000 /* Use dll interface    */
 #define MASK_NOP_FUN_DLLIMPORT 0x20000 /* Ignore dllimport for functions */

 #define TARGET_WIN32             (target_flags & MASK_WIN32)
 #define TARGET_CYGWIN            (target_flags & MASK_CYGWIN)
 #define TARGET_WINDOWS           (target_flags & MASK_WINDOWS)
 #define TARGET_DLL               (target_flags & MASK_DLL)
 #define TARGET_NOP_FUN_DLLIMPORT (target_flags & MASK_NOP_FUN_DLLIMPORT)

 #undef  SUBTARGET_SWITCHES
 #define SUBTARGET_SWITCHES						\
     { "win32",			MASK_WIN32,				\
       N_("Use Mingw32 interface") },					\
     { "cygwin",			MASK_CYGWIN,				\
       N_("Use Cygwin interface")  },					\
     { "windows",		MASK_WINDOWS,				\
       N_("Use bare Windows interface") },				\
     { "dll",			MASK_DLL,				\
       N_("Generate code for a DLL") },					\
     { "nop-fun-dllimport",	MASK_NOP_FUN_DLLIMPORT,			\
       N_("Ignore dllimport for functions") }, 				\
     { "no-nop-fun-dllimport",	MASK_NOP_FUN_DLLIMPORT, "" },


 #undef CPP_PREDEFINES
 #define CPP_PREDEFINES "-D_WIN32 -DWINNT -D_X86_=1 \
   -D__stdcall=__attribute__((__stdcall__)) \
   -D__cdecl=__attribute__((__cdecl__)) \
   -Asystem=winnt"

 #undef STARTFILE_SPEC

 #define STARTFILE_SPEC "%{mdll:dllcrt0%O%s} %{!mdll: %{!mcygwin:mcrt0%O%s} \
                         %{mcygwin:crt0%O%s} %{pg:gcrt0%O%s}}"

 #undef CPP_SPEC
 #define CPP_SPEC "%(cpp_cpu) %{posix:-D_POSIX_SOURCE} \
   %{!mcygwin:-iwithprefixbefore include/mingw32 -D__MINGW32__}    \
   %{mcygwin:-D__CYGWIN32__ -D__CYGWIN__}"

 /* We have to dynamic link to get to the system DLLs.  All of libc, libm and
    the Unix stuff is in cygwin.dll.  The import library is called
    'libcygwin.a'.  For Windows applications, include more libraries, but
    always include kernel32.  We'd like to specific subsystem windows to
    ld, but that doesn't work just yet.  */

 #undef LIB_SPEC
 #define LIB_SPEC "%{pg:-lgmon}						\
 		  %{!mcygwin:-lmingw32 -lmoldname -lmsvcrt -lcrtdll}	\
                   %{mcygwin:-lcygwin} %{mwindows:-luser32 -lgdi32 -lcomdlg32} \
                   -lkernel32 -ladvapi32 -lshell32"

 #define LINK_SPEC "%{mwindows:--subsystem windows} \
   %{mdll:--dll -e _DllMainCRTStartup@12}"

 #define SIZE_TYPE "unsigned int"
 #define PTRDIFF_TYPE "int"
 #define WCHAR_UNSIGNED 1
 #define WCHAR_TYPE_SIZE 16
 #define WCHAR_TYPE "short unsigned int"
 /* Currently we do not have the atexit() function,
    so take that from libgcc2.c */

 #define NEED_ATEXIT 1

 #undef EXTRA_SECTIONS
 #define EXTRA_SECTIONS in_ctor, in_dtor

 #undef EXTRA_SECTION_FUNCTIONS
 #define EXTRA_SECTION_FUNCTIONS					\
   CTOR_SECTION_FUNCTION						\
   DTOR_SECTION_FUNCTION

 #define CTOR_SECTION_FUNCTION					\
 void								\
 ctor_section ()							\
 {								\
   if (in_section != in_ctor)					\
     {								\
       fprintf (asm_out_file, "\t.section .ctor\n");		\
       in_section = in_ctor;					\
     }								\
 }

 #define DTOR_SECTION_FUNCTION					\
 void								\
 dtor_section ()							\
 {								\
   if (in_section != in_dtor)					\
     {								\
       fprintf (asm_out_file, "\t.section .dtor\n");		\
       in_section = in_dtor;					\
     }								\
 }

 #define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME)	\
   do {						\
     ctor_section ();				\
     fprintf (FILE, "%s\t", ASM_LONG);		\
     assemble_name (FILE, NAME);			\
     fprintf (FILE, "\n");			\
   } while (0)

 #define ASM_OUTPUT_DESTRUCTOR(FILE,NAME)       	\
   do {						\
     dtor_section ();                   		\
     fprintf (FILE, "%s\t", ASM_LONG);		\
     assemble_name (FILE, NAME);              	\
     fprintf (FILE, "\n");			\
   } while (0)

 /* Define this macro if references to a symbol must be treated
    differently depending on something about the variable or
    function named by the symbol (such as what section it is in).

    On i386, if using PIC, mark a SYMBOL_REF for a non-global symbol
    so that we may access it directly in the GOT.

    On i386 running Windows NT, modify the assembler name with a suffix
    consisting of an atsign (@) followed by string of digits that represents
    the number of bytes of arguments passed to the function, if it has the
    attribute STDCALL. */

 #ifdef ENCODE_SECTION_INFO
 #undef ENCODE_SECTION_INFO
 #define ENCODE_SECTION_INFO(DECL) 					\
 do									\
   {									\
     if (flag_pic)							\
       {									\
 	rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'		\
 		   ? TREE_CST_RTL (DECL) : DECL_RTL (DECL));		\
 	SYMBOL_REF_FLAG (XEXP (rtl, 0))					\
 	  = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd'			\
 	     || ! TREE_PUBLIC (DECL));					\
       }									\
     if (TREE_CODE (DECL) == FUNCTION_DECL) 				\
       if (lookup_attribute ("stdcall",					\
 			    TYPE_ATTRIBUTES (TREE_TYPE (DECL))))	\
         XEXP (DECL_RTL (DECL), 0) = 					\
           gen_rtx (SYMBOL_REF, Pmode, gen_stdcall_suffix (DECL)); 	\
   }									\
 while (0)
 #endif

 /* This macro gets just the user-specified name
    out of the string in a SYMBOL_REF.  Discard
    trailing @[NUM] encoded by ENCODE_SECTION_INFO.
    Do we need the stripping of leading '*'?  */
 #undef  STRIP_NAME_ENCODING
 #define STRIP_NAME_ENCODING(VAR,SYMBOL_NAME)				\
 do {									\
   const char *_p;							\
   const char *_name = ((SYMBOL_NAME) + ((SYMBOL_NAME)[0] == '*'));	\
   for (_p = _name; *_p && *_p != '@'; ++_p)				\
     ;									\
   if (*_p == '@')							\
     {									\
       int _len = _p - _name;						\
       char *_new_name = (char *) alloca (_len + 1);			\
       strncpy (_new_name, _name, _len);					\
       _new_name[_len] = '\0';						\
       (VAR) = _new_name;						\
     }									\
   else									\
     (VAR) = _name;							\
 } while (0)


 /* Emit code to check the stack when allocating more that 4000
    bytes in one go. */

 #define CHECK_STACK_LIMIT 4000

 /* By default, target has a 80387, uses IEEE compatible arithmetic,
    and returns float values in the 387 and needs stack probes */
 #undef TARGET_SUBTARGET_DEFAULT

 #define TARGET_SUBTARGET_DEFAULT \
    (MASK_80387 | MASK_IEEE_FP | MASK_FLOAT_RETURNS | MASK_STACK_PROBE)

 /* This is how to output an assembler line
    that says to advance the location counter
    to a multiple of 2**LOG bytes.  */

 #undef ASM_OUTPUT_ALIGN
 #define ASM_OUTPUT_ALIGN(FILE,LOG)	\
     if ((LOG)!=0) fprintf ((FILE), "\t.align %d\n", 1<<(LOG))

 /* Define this macro if in some cases global symbols from one translation
    unit may not be bound to undefined symbols in another translation unit
    without user intervention.  For instance, under Microsoft Windows
    symbols must be explicitly imported from shared libraries (DLLs).  */
 #define MULTIPLE_SYMBOL_SPACES

 #define UNIQUE_SECTION_P(DECL) DECL_ONE_ONLY (DECL)
 extern void i386_pe_unique_section ();
 #define UNIQUE_SECTION(DECL,RELOC) i386_pe_unique_section (DECL, RELOC)

 #define SUPPORTS_ONE_ONLY 1

 /* A C statement to output something to the assembler file to switch to section
    NAME for object DECL which is either a FUNCTION_DECL, a VAR_DECL or
    NULL_TREE.  Some target formats do not support arbitrary sections.  Do not
    define this macro in such cases.  */
 #undef ASM_OUTPUT_SECTION_NAME
 #define ASM_OUTPUT_SECTION_NAME(STREAM, DECL, NAME, RELOC)	\
 do {								\
   if ((DECL) && TREE_CODE (DECL) == FUNCTION_DECL)		\
     fprintf (STREAM, "\t.section %s,\"x\"\n", (NAME));		\
   else if ((DECL) && DECL_READONLY_SECTION (DECL, RELOC))	\
     fprintf (STREAM, "\t.section %s,\"\"\n", (NAME));		\
   else								\
     fprintf (STREAM, "\t.section %s,\"w\"\n", (NAME));		\
   /* Functions may have been compiled at various levels of	\
      optimization so we can't use `same_size' here.  Instead,	\
      have the linker pick one.  */				\
   if ((DECL) && DECL_ONE_ONLY (DECL))				\
     fprintf (STREAM, "\t.linkonce %s\n",			\
 	     TREE_CODE (DECL) == FUNCTION_DECL			\
 	     ? "discard" : "same_size");			\
 } while (0)

 #undef ASM_COMMENT_START
 #define ASM_COMMENT_START " #"

 /* DWARF2 Unwinding doesn't work with exception handling yet. */
 #define DWARF2_UNWIND_INFO 0

 /* Don't assume anything about the header files. */
 #define NO_IMPLICIT_EXTERN_C

 #define SUBTARGET_PROLOGUE						\
   if (profile_flag 							\
       && MAIN_NAME_P (DECL_NAME (current_function_decl))		\
      {									\
       rtx xops[1];							\
       xops[0] = gen_rtx_MEM (FUNCTION_MODE,				\
 			 gen_rtx (SYMBOL_REF, Pmode, "_monstartup"));	\
       emit_call_insn (gen_rtx (CALL, VOIDmode, xops[0], const0_rtx));	\
      }
	/* Operating system specific defines to be used when targeting GCC for
	hosting on Windows NT 3.x, using a Unix style C library and tools,
	as distinct from winnt.h, which is used to build GCC for use with a
	windows style library and tool set and uses the Microsoft tools.
	Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000
	Free Software Foundation, Inc.

	This file is part of GNU CC.

	GNU CC is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2, or (at your option)
	any later version.

	GNU CC is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with GNU CC; see the file COPYING. If not, write to
	the Free Software Foundation, 59 Temple Place - Suite 330,
	Boston, MA 02111-1307, USA. */

	#define YES_UNDERSCORES

	/* Enable parsing of #pragma pack(push,<n>) and #pragma pack(pop). */
	#define HANDLE_PRAGMA_PACK_PUSH_POP 1

	#define DBX_DEBUGGING_INFO
	#define SDB_DEBUGGING_INFO
	#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG

	#include "i386/gas.h"
	#include "dbxcoff.h"

	/* Augment TARGET_SWITCHES with the cygwin/win32 options. */
	#define MASK_WIN32 0x40000000 /* Use -lming32 interface */
	#define MASK_CYGWIN 0x20000000 /* Use -lcygwin interface */
	#define MASK_WINDOWS 0x10000000 /* Use windows interface */
	#define MASK_DLL 0x08000000 /* Use dll interface */
	#define MASK_NOP_FUN_DLLIMPORT 0x20000 /* Ignore dllimport for functions */

	#define TARGET_WIN32 (target_flags & MASK_WIN32)
	#define TARGET_CYGWIN (target_flags & MASK_CYGWIN)
	#define TARGET_WINDOWS (target_flags & MASK_WINDOWS)
	#define TARGET_DLL (target_flags & MASK_DLL)
	#define TARGET_NOP_FUN_DLLIMPORT (target_flags & MASK_NOP_FUN_DLLIMPORT)

	#undef SUBTARGET_SWITCHES
	#define SUBTARGET_SWITCHES \
	{ "win32", MASK_WIN32, \
	N_("Use Mingw32 interface") }, \
	{ "cygwin", MASK_CYGWIN, \
	N_("Use Cygwin interface") }, \
	{ "windows", MASK_WINDOWS, \
	N_("Use bare Windows interface") }, \
	{ "dll", MASK_DLL, \
	N_("Generate code for a DLL") }, \
	{ "nop-fun-dllimport", MASK_NOP_FUN_DLLIMPORT, \
	N_("Ignore dllimport for functions") }, \
	{ "no-nop-fun-dllimport", MASK_NOP_FUN_DLLIMPORT, "" },


	#undef CPP_PREDEFINES
	#define CPP_PREDEFINES "-D_WIN32 -DWINNT -D_X86_=1 \
	-D__stdcall=__attribute__((__stdcall__)) \
	-D__cdecl=__attribute__((__cdecl__)) \
	-Asystem=winnt"

	#undef STARTFILE_SPEC

	#define STARTFILE_SPEC "%{mdll:dllcrt0%O%s} %{!mdll: %{!mcygwin:mcrt0%O%s} \
	%{mcygwin:crt0%O%s} %{pg:gcrt0%O%s}}"

	#undef CPP_SPEC
	#define CPP_SPEC "%(cpp_cpu) %{posix:-D_POSIX_SOURCE} \
	%{!mcygwin:-iwithprefixbefore include/mingw32 -D__MINGW32__} \
	%{mcygwin:-D__CYGWIN32__ -D__CYGWIN__}"

	/* We have to dynamic link to get to the system DLLs. All of libc, libm and
	the Unix stuff is in cygwin.dll. The import library is called
	'libcygwin.a'. For Windows applications, include more libraries, but
	always include kernel32. We'd like to specific subsystem windows to
	ld, but that doesn't work just yet. */

	#undef LIB_SPEC
	#define LIB_SPEC "%{pg:-lgmon} \
	%{!mcygwin:-lmingw32 -lmoldname -lmsvcrt -lcrtdll} \
	%{mcygwin:-lcygwin} %{mwindows:-luser32 -lgdi32 -lcomdlg32} \
	-lkernel32 -ladvapi32 -lshell32"

	#define LINK_SPEC "%{mwindows:--subsystem windows} \
	%{mdll:--dll -e _DllMainCRTStartup@12}"

	#define SIZE_TYPE "unsigned int"
	#define PTRDIFF_TYPE "int"
	#define WCHAR_UNSIGNED 1
	#define WCHAR_TYPE_SIZE 16
	#define WCHAR_TYPE "short unsigned int"
	/* Currently we do not have the atexit() function,
	so take that from libgcc2.c */

	#define NEED_ATEXIT 1

	#undef EXTRA_SECTIONS
	#define EXTRA_SECTIONS in_ctor, in_dtor

	#undef EXTRA_SECTION_FUNCTIONS
	#define EXTRA_SECTION_FUNCTIONS \
	CTOR_SECTION_FUNCTION \
	DTOR_SECTION_FUNCTION

	#define CTOR_SECTION_FUNCTION \
	void \
	ctor_section () \
	{ \
	if (in_section != in_ctor) \
	{ \
	fprintf (asm_out_file, "\t.section .ctor\n"); \
	in_section = in_ctor; \
	} \
	}

	#define DTOR_SECTION_FUNCTION \
	void \
	dtor_section () \
	{ \
	if (in_section != in_dtor) \
	{ \
	fprintf (asm_out_file, "\t.section .dtor\n"); \
	in_section = in_dtor; \
	} \
	}

	#define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME) \
	do { \
	ctor_section (); \
	fprintf (FILE, "%s\t", ASM_LONG); \
	assemble_name (FILE, NAME); \
	fprintf (FILE, "\n"); \
	} while (0)

	#define ASM_OUTPUT_DESTRUCTOR(FILE,NAME) \
	do { \
	dtor_section (); \
	fprintf (FILE, "%s\t", ASM_LONG); \
	assemble_name (FILE, NAME); \
	fprintf (FILE, "\n"); \
	} while (0)

	/* Define this macro if references to a symbol must be treated
	differently depending on something about the variable or
	function named by the symbol (such as what section it is in).

	On i386, if using PIC, mark a SYMBOL_REF for a non-global symbol
	so that we may access it directly in the GOT.

	On i386 running Windows NT, modify the assembler name with a suffix
	consisting of an atsign (@) followed by string of digits that represents
	the number of bytes of arguments passed to the function, if it has the
	attribute STDCALL. */

	#ifdef ENCODE_SECTION_INFO
	#undef ENCODE_SECTION_INFO
	#define ENCODE_SECTION_INFO(DECL) \
	do \
	{ \
	if (flag_pic) \
	{ \
	rtx rtl = (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd' \
	? TREE_CST_RTL (DECL) : DECL_RTL (DECL)); \
	SYMBOL_REF_FLAG (XEXP (rtl, 0)) \
	= (TREE_CODE_CLASS (TREE_CODE (DECL)) != 'd' \
	\|\| ! TREE_PUBLIC (DECL)); \
	} \
	if (TREE_CODE (DECL) == FUNCTION_DECL) \
	if (lookup_attribute ("stdcall", \
	TYPE_ATTRIBUTES (TREE_TYPE (DECL)))) \
	XEXP (DECL_RTL (DECL), 0) = \
	gen_rtx (SYMBOL_REF, Pmode, gen_stdcall_suffix (DECL)); \
	} \
	while (0)
	#endif

	/* This macro gets just the user-specified name
	out of the string in a SYMBOL_REF. Discard
	trailing @[NUM] encoded by ENCODE_SECTION_INFO.
	Do we need the stripping of leading ''? /
	#undef STRIP_NAME_ENCODING
	#define STRIP_NAME_ENCODING(VAR,SYMBOL_NAME) \
	do { \
	const char *_p; \
	const char _name = ((SYMBOL_NAME) + ((SYMBOL_NAME)[0] == '')); \
	for (_p = _name; _p && _p != '@'; ++_p) \
	; \
	if (*_p == '@') \
	{ \
	int _len = _p - _name; \
	char _new_name = (char ) alloca (_len + 1); \
	strncpy (_new_name, _name, _len); \
	_new_name[_len] = '\0'; \
	(VAR) = _new_name; \
	} \
	else \
	(VAR) = _name; \
	} while (0)


	/* Emit code to check the stack when allocating more that 4000
	bytes in one go. */

	#define CHECK_STACK_LIMIT 4000

	/* By default, target has a 80387, uses IEEE compatible arithmetic,
	and returns float values in the 387 and needs stack probes */
	#undef TARGET_SUBTARGET_DEFAULT

	#define TARGET_SUBTARGET_DEFAULT \
	(MASK_80387 \| MASK_IEEE_FP \| MASK_FLOAT_RETURNS \| MASK_STACK_PROBE)

	/* This is how to output an assembler line
	that says to advance the location counter
	to a multiple of 2*LOG bytes. /

	#undef ASM_OUTPUT_ALIGN
	#define ASM_OUTPUT_ALIGN(FILE,LOG) \
	if ((LOG)!=0) fprintf ((FILE), "\t.align %d\n", 1<<(LOG))

	/* Define this macro if in some cases global symbols from one translation
	unit may not be bound to undefined symbols in another translation unit
	without user intervention. For instance, under Microsoft Windows
	symbols must be explicitly imported from shared libraries (DLLs). */
	#define MULTIPLE_SYMBOL_SPACES

	#define UNIQUE_SECTION_P(DECL) DECL_ONE_ONLY (DECL)
	extern void i386_pe_unique_section ();
	#define UNIQUE_SECTION(DECL,RELOC) i386_pe_unique_section (DECL, RELOC)

	#define SUPPORTS_ONE_ONLY 1

	/* A C statement to output something to the assembler file to switch to section
	NAME for object DECL which is either a FUNCTION_DECL, a VAR_DECL or
	NULL_TREE. Some target formats do not support arbitrary sections. Do not
	define this macro in such cases. */
	#undef ASM_OUTPUT_SECTION_NAME
	#define ASM_OUTPUT_SECTION_NAME(STREAM, DECL, NAME, RELOC) \
	do { \
	if ((DECL) && TREE_CODE (DECL) == FUNCTION_DECL) \
	fprintf (STREAM, "\t.section %s,\"x\"\n", (NAME)); \
	else if ((DECL) && DECL_READONLY_SECTION (DECL, RELOC)) \
	fprintf (STREAM, "\t.section %s,\"\"\n", (NAME)); \
	else \
	fprintf (STREAM, "\t.section %s,\"w\"\n", (NAME)); \
	/* Functions may have been compiled at various levels of \
	optimization so we can't use `same_size' here. Instead, \
	have the linker pick one. */ \
	if ((DECL) && DECL_ONE_ONLY (DECL)) \
	fprintf (STREAM, "\t.linkonce %s\n", \
	TREE_CODE (DECL) == FUNCTION_DECL \
	? "discard" : "same_size"); \
	} while (0)

	#undef ASM_COMMENT_START
	#define ASM_COMMENT_START " #"

	/* DWARF2 Unwinding doesn't work with exception handling yet. */
	#define DWARF2_UNWIND_INFO 0

	/* Don't assume anything about the header files. */
	#define NO_IMPLICIT_EXTERN_C

	#define SUBTARGET_PROLOGUE \
	if (profile_flag \
	&& MAIN_NAME_P (DECL_NAME (current_function_decl)) \
	{ \
	rtx xops[1]; \
	xops[0] = gen_rtx_MEM (FUNCTION_MODE, \
	gen_rtx (SYMBOL_REF, Pmode, "_monstartup")); \
	emit_call_insn (gen_rtx (CALL, VOIDmode, xops[0], const0_rtx)); \
	}