505 lines
17 KiB
C
505 lines
17 KiB
C
/* 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 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
|
||
|
||
#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/no-cygwin 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 \
|
||
{ "no-cygwin", MASK_WIN32 }, \
|
||
{ "cygwin", MASK_CYGWIN }, \
|
||
{ "windows", MASK_WINDOWS }, \
|
||
{ "dll", MASK_DLL }, \
|
||
{ "nop-fun-dllimport", MASK_NOP_FUN_DLLIMPORT }, \
|
||
{ "no-nop-fun-dllimport", MASK_NOP_FUN_DLLIMPORT },
|
||
|
||
|
||
/* Support the __declspec keyword by turning them into attributes.
|
||
We currently only support: dllimport and dllexport.
|
||
Note that the current way we do this may result in a collision with
|
||
predefined attributes later on. This can be solved by using one attribute,
|
||
say __declspec__, and passing args to it. The problem with that approach
|
||
is that args are not accumulated: each new appearance would clobber any
|
||
existing args. */
|
||
|
||
#ifdef CPP_PREDEFINES
|
||
#undef CPP_PREDEFINES
|
||
#endif
|
||
|
||
#define CPP_PREDEFINES "-Di386 -D_WIN32 \
|
||
-DWINNT -D_X86_=1 -D__STDC__=1\
|
||
-D__stdcall=__attribute__((__stdcall__)) \
|
||
-D__cdecl=__attribute__((__cdecl__)) \
|
||
-D__declspec(x)=__attribute__((x)) \
|
||
-Asystem(winnt) -Acpu(i386) -Amachine(i386)"
|
||
|
||
/* Normally, -lgcc is not needed since everything in it is in the DLL, but we
|
||
want to allow things to be added to it when installing new versions of
|
||
GCC without making a new CYGWIN.DLL, so we leave it. Profiling is handled
|
||
by calling the init function from the prologue. */
|
||
|
||
#undef STARTFILE_SPEC
|
||
#define STARTFILE_SPEC "%{mdll: %{!mno-cygwin:dllcrt0%O%s} \
|
||
%{mno-cygwin:dllcrt1%O%s}} \
|
||
%{!mdll: %{!mno-cygwin:crt0%O%s} \
|
||
%{mno-cygwin:crt1%O%s} %{pg:gcrt0%O%s}}"
|
||
|
||
#undef CPP_SPEC
|
||
#define CPP_SPEC "-remap %(cpp_cpu) %{posix:-D_POSIX_SOURCE} \
|
||
%{!mno-cygwin:-D__CYGWIN32__ -D__CYGWIN__} \
|
||
%{mno-cygwin:-iwithprefixbefore include/mingw32 -D__MINGW32__=0.2}"
|
||
|
||
/* 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} \
|
||
%{!mno-cygwin:-lcygwin} \
|
||
%{mno-cygwin:-lmingw32 -lmoldname -lcrtdll} \
|
||
%{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"
|
||
|
||
#define HAVE_ATEXIT 1
|
||
|
||
|
||
/* Enable parsing of #pragma pack(push,<n>) and #pragma pack(pop). */
|
||
#define HANDLE_PRAGMA_PACK_PUSH_POP 1
|
||
|
||
/* A C expression whose value is nonzero if IDENTIFIER with arguments ARGS
|
||
is a valid machine specific attribute for DECL.
|
||
The attributes in ATTRIBUTES have previously been assigned to DECL. */
|
||
extern int i386_pe_valid_decl_attribute_p ();
|
||
|
||
#undef VALID_MACHINE_DECL_ATTRIBUTE
|
||
#define VALID_MACHINE_DECL_ATTRIBUTE(DECL, ATTRIBUTES, IDENTIFIER, ARGS) \
|
||
i386_pe_valid_decl_attribute_p (DECL, ATTRIBUTES, IDENTIFIER, ARGS)
|
||
|
||
/* A C expression whose value is nonzero if IDENTIFIER with arguments ARGS
|
||
is a valid machine specific attribute for TYPE.
|
||
The attributes in ATTRIBUTES have previously been assigned to TYPE. */
|
||
|
||
#undef VALID_MACHINE_TYPE_ATTRIBUTE
|
||
#define VALID_MACHINE_TYPE_ATTRIBUTE(TYPE, ATTRIBUTES, IDENTIFIER, ARGS) \
|
||
i386_pe_valid_type_attribute_p (TYPE, ATTRIBUTES, IDENTIFIER, ARGS)
|
||
extern int i386_pe_valid_type_attribute_p ();
|
||
|
||
extern union tree_node *i386_pe_merge_decl_attributes ();
|
||
#define MERGE_MACHINE_DECL_ATTRIBUTES(OLD, NEW) \
|
||
i386_pe_merge_decl_attributes ((OLD), (NEW))
|
||
|
||
/* Used to implement dllexport overriding dllimport semantics. It's also used
|
||
to handle vtables - the first pass won't do anything because
|
||
DECL_CONTEXT (DECL) will be 0 so i386_pe_dll{ex,im}port_p will return 0.
|
||
It's also used to handle dllimport override semantics. */
|
||
#if 0
|
||
#define REDO_SECTION_INFO_P(DECL) \
|
||
((DECL_MACHINE_ATTRIBUTES (DECL) != NULL_TREE) \
|
||
|| (TREE_CODE (DECL) == VAR_DECL && DECL_VIRTUAL_P (DECL)))
|
||
#else
|
||
#define REDO_SECTION_INFO_P(DECL) 1
|
||
#endif
|
||
|
||
|
||
#undef EXTRA_SECTIONS
|
||
#define EXTRA_SECTIONS in_ctor, in_dtor, in_drectve
|
||
|
||
#undef EXTRA_SECTION_FUNCTIONS
|
||
#define EXTRA_SECTION_FUNCTIONS \
|
||
CTOR_SECTION_FUNCTION \
|
||
DTOR_SECTION_FUNCTION \
|
||
DRECTVE_SECTION_FUNCTION \
|
||
SWITCH_TO_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 DRECTVE_SECTION_FUNCTION \
|
||
void \
|
||
drectve_section () \
|
||
{ \
|
||
if (in_section != in_drectve) \
|
||
{ \
|
||
fprintf (asm_out_file, "%s\n", "\t.section .drectve\n"); \
|
||
in_section = in_drectve; \
|
||
} \
|
||
}
|
||
|
||
/* Switch to SECTION (an `enum in_section').
|
||
|
||
??? This facility should be provided by GCC proper.
|
||
The problem is that we want to temporarily switch sections in
|
||
ASM_DECLARE_OBJECT_NAME and then switch back to the original section
|
||
afterwards. */
|
||
#define SWITCH_TO_SECTION_FUNCTION \
|
||
void \
|
||
switch_to_section (section, decl) \
|
||
enum in_section section; \
|
||
tree decl; \
|
||
{ \
|
||
switch (section) \
|
||
{ \
|
||
case in_text: text_section (); break; \
|
||
case in_data: data_section (); break; \
|
||
case in_named: named_section (decl, NULL, 0); break; \
|
||
case in_ctor: ctor_section (); break; \
|
||
case in_dtor: dtor_section (); break; \
|
||
case in_drectve: drectve_section (); break; \
|
||
default: abort (); break; \
|
||
} \
|
||
}
|
||
|
||
#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 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.
|
||
|
||
In addition, we must mark dll symbols specially. Definitions of
|
||
dllexport'd objects install some info in the .drectve section.
|
||
References to dllimport'd objects are fetched indirectly via
|
||
_imp__. If both are declared, dllexport overrides. This is also
|
||
needed to implement one-only vtables: they go into their own
|
||
section and we need to set DECL_SECTION_NAME so we do that here.
|
||
Note that we can be called twice on the same decl. */
|
||
|
||
extern void i386_pe_encode_section_info ();
|
||
|
||
#ifdef ENCODE_SECTION_INFO
|
||
#undef ENCODE_SECTION_INFO
|
||
#endif
|
||
#define ENCODE_SECTION_INFO(DECL) i386_pe_encode_section_info (DECL)
|
||
|
||
/* Utility used only in this file. */
|
||
#define I386_PE_STRIP_ENCODING(SYM_NAME) \
|
||
((SYM_NAME) + ((SYM_NAME)[0] == '@' ? 3 : 0))
|
||
|
||
/* This macro gets just the user-specified name
|
||
out of the string in a SYMBOL_REF. Discard
|
||
trailing @[NUM] encoded by ENCODE_SECTION_INFO. */
|
||
#undef STRIP_NAME_ENCODING
|
||
#define STRIP_NAME_ENCODING(VAR,SYMBOL_NAME) \
|
||
do { \
|
||
char *_p; \
|
||
char *_name = I386_PE_STRIP_ENCODING (SYMBOL_NAME); \
|
||
for (_p = _name; *_p && *_p != '@'; ++_p) \
|
||
; \
|
||
if (*_p == '@') \
|
||
{ \
|
||
int _len = _p - _name; \
|
||
(VAR) = (char *) alloca (_len + 1); \
|
||
strncpy ((VAR), _name, _len); \
|
||
(VAR)[_len] = '\0'; \
|
||
} \
|
||
else \
|
||
(VAR) = _name; \
|
||
} while (0)
|
||
|
||
|
||
/* Output a reference to a label. */
|
||
#undef ASM_OUTPUT_LABELREF
|
||
#define ASM_OUTPUT_LABELREF(STREAM, NAME) \
|
||
fprintf (STREAM, "%s%s", USER_LABEL_PREFIX, \
|
||
I386_PE_STRIP_ENCODING (NAME)) \
|
||
|
||
/* Output a common block. */
|
||
#undef ASM_OUTPUT_COMMON
|
||
#define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED) \
|
||
do { \
|
||
if (i386_pe_dllexport_name_p (NAME)) \
|
||
{ \
|
||
drectve_section (); \
|
||
fprintf ((STREAM), "\t.ascii \" -export:%s\"\n", \
|
||
I386_PE_STRIP_ENCODING (NAME)); \
|
||
} \
|
||
if (! i386_pe_dllimport_name_p (NAME)) \
|
||
{ \
|
||
fprintf ((STREAM), "\t.comm\t"); \
|
||
assemble_name ((STREAM), (NAME)); \
|
||
fprintf ((STREAM), ", %d\t%s %d\n", \
|
||
(ROUNDED), ASM_COMMENT_START, (SIZE)); \
|
||
} \
|
||
} while (0)
|
||
|
||
/* Output the label for an initialized variable. */
|
||
#undef ASM_DECLARE_OBJECT_NAME
|
||
#define ASM_DECLARE_OBJECT_NAME(STREAM, NAME, DECL) \
|
||
do { \
|
||
if (i386_pe_dllexport_name_p (NAME)) \
|
||
{ \
|
||
enum in_section save_section = in_section; \
|
||
drectve_section (); \
|
||
fprintf ((STREAM), "\t.ascii \" -export:%s\"\n", \
|
||
I386_PE_STRIP_ENCODING (NAME)); \
|
||
switch_to_section (save_section, (DECL)); \
|
||
} \
|
||
ASM_OUTPUT_LABEL ((STREAM), (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_DEFAULT
|
||
|
||
#define TARGET_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 { \
|
||
static struct section_info \
|
||
{ \
|
||
struct section_info *next; \
|
||
char *name; \
|
||
enum sect_enum {SECT_RW, SECT_RO, SECT_EXEC} type; \
|
||
} *sections; \
|
||
struct section_info *s; \
|
||
char *mode; \
|
||
enum sect_enum type; \
|
||
\
|
||
for (s = sections; s; s = s->next) \
|
||
if (!strcmp (NAME, s->name)) \
|
||
break; \
|
||
\
|
||
if (DECL && TREE_CODE (DECL) == FUNCTION_DECL) \
|
||
type = SECT_EXEC, mode = "x"; \
|
||
else if (DECL && DECL_READONLY_SECTION (DECL, RELOC)) \
|
||
type = SECT_RO, mode = ""; \
|
||
else \
|
||
type = SECT_RW, mode = "w"; \
|
||
\
|
||
if (s == 0) \
|
||
{ \
|
||
s = (struct section_info *) xmalloc (sizeof (struct section_info)); \
|
||
s->name = xmalloc ((strlen (NAME) + 1) * sizeof (*NAME)); \
|
||
strcpy (s->name, NAME); \
|
||
s->type = type; \
|
||
s->next = sections; \
|
||
sections = s; \
|
||
fprintf (STREAM, ".section\t%s,\"%s\"\n", NAME, mode); \
|
||
/* 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"); \
|
||
} \
|
||
else \
|
||
{ \
|
||
fprintf (STREAM, ".section\t%s,\"%s\"\n", NAME, mode); \
|
||
} \
|
||
} while (0)
|
||
|
||
/* Write the extra assembler code needed to declare a function
|
||
properly. If we are generating SDB debugging information, this
|
||
will happen automatically, so we only need to handle other cases. */
|
||
#undef ASM_DECLARE_FUNCTION_NAME
|
||
#define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
|
||
do \
|
||
{ \
|
||
if (i386_pe_dllexport_name_p (NAME)) \
|
||
{ \
|
||
drectve_section (); \
|
||
fprintf ((FILE), "\t.ascii \" -export:%s\"\n", \
|
||
I386_PE_STRIP_ENCODING (NAME)); \
|
||
function_section (DECL); \
|
||
} \
|
||
if (write_symbols != SDB_DEBUG) \
|
||
i386_pe_declare_function_type (FILE, NAME, TREE_PUBLIC (DECL)); \
|
||
ASM_OUTPUT_LABEL (FILE, NAME); \
|
||
} \
|
||
while (0)
|
||
|
||
/* Add an external function to the list of functions to be declared at
|
||
the end of the file. */
|
||
#define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \
|
||
do \
|
||
{ \
|
||
if (TREE_CODE (DECL) == FUNCTION_DECL) \
|
||
i386_pe_record_external_function (NAME); \
|
||
} \
|
||
while (0)
|
||
|
||
/* Declare the type properly for any external libcall. */
|
||
#define ASM_OUTPUT_EXTERNAL_LIBCALL(FILE, FUN) \
|
||
i386_pe_declare_function_type (FILE, XSTR (FUN, 0), 1)
|
||
|
||
/* Output function declarations at the end of the file. */
|
||
#define ASM_FILE_END(FILE) \
|
||
i386_pe_asm_file_end (FILE)
|
||
|
||
#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 \
|
||
&& strcmp (IDENTIFIER_POINTER (DECL_NAME (current_function_decl)),\
|
||
"main") == 0) \
|
||
{ \
|
||
rtx xops[1]; \
|
||
xops[0] = gen_rtx_MEM (FUNCTION_MODE, \
|
||
gen_rtx (SYMBOL_REF, Pmode, "_monstartup")); \
|
||
if (do_rtl) \
|
||
emit_call_insn (gen_rtx (CALL, VOIDmode, xops[0], const0_rtx)); \
|
||
else \
|
||
output_asm_insn (AS1 (call,%P1), xops); \
|
||
}
|
||
|
||
/* External function declarations. */
|
||
|
||
#ifndef PROTO
|
||
#if defined (USE_PROTOTYPES) ? USE_PROTOTYPES : defined (__STDC__)
|
||
#define PROTO(ARGS) ARGS
|
||
#else
|
||
#define PROTO(ARGS) ()
|
||
#endif
|
||
#endif
|
||
|
||
#ifdef BUFSIZ /* stdio.h has been included, ok to use FILE * */
|
||
#define STDIO_PROTO(ARGS) PROTO(ARGS)
|
||
#else
|
||
#define STDIO_PROTO(ARGS) ()
|
||
#endif
|
||
|
||
extern void i386_pe_record_external_function PROTO((char *));
|
||
extern void i386_pe_declare_function_type STDIO_PROTO((FILE *, char *, int));
|
||
extern void i386_pe_asm_file_end STDIO_PROTO((FILE *));
|
||
|
||
/* For Win32 ABI compatibility */
|
||
#undef DEFAULT_PCC_STRUCT_RETURN
|
||
#define DEFAULT_PCC_STRUCT_RETURN 0
|
||
|
||
/* No data type wants to be aligned rounder than this. */
|
||
#undef BIGGEST_ALIGNMENT
|
||
#define BIGGEST_ALIGNMENT 128
|
||
|
||
/* A bitfield declared as `int' forces `int' alignment for the struct. */
|
||
#undef PCC_BITFIELDS_TYPE_MATTERS
|
||
#define PCC_BITFIELDS_TYPE_MATTERS 0
|
||
|