This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
ARM-PE implementation for EGCS
- To: egcs-patches at egcs dot cygnus dot com
- Subject: ARM-PE implementation for EGCS
- From: Nick Clifton <nickc at cygnus dot com>
- Date: Wed, 30 Jun 1999 17:02:55 +0100
- Cc: mmporter at home dot com, mrs at wrs dot com
Hi Guys,
Following recent discussions on the egcs mailing list, I would like
to present...arm-pe for egcs.... ta dah!
The patches below add support for both an arm-pe and a thumb-pe
target. Is it OK to check them in ?
Cheers
Nick
Wed Jun 30 16:51:41 1999 Nick Clifton <nickc@cygnus.com>
* configure.in: Add arm-pe and thumb-pe targets.
* configure: Regenerate.
* thumb.c (arm_naked_function_p): New function: Determines if
a function is naked (has no gcc generated prologue/epilogue).
(is_called_in_ARM_mode): Return true if the func has the
interfacearm attribute.
(output_return): Do not generate a return for naked functions.
(thumb_function_prologue): Do not generate a prologue for
naked functions.
(thumb_expand_prologue): Do not generate a prologue for naked
functions.
(thumb_expand_epilogue): Do not generate an epilogue for naked
functions.
(arm_valid_machine_decl_attribute): New function, copied from
arm.c: Permit naked and interfacearm attributes.
* config/arm/pe.c: New file: Support code for arm-pe target.
* config/arm/pe.h: New file: Header file for arm-pe target.
* config/arm/tpe.h: New file: Header file for thumb-pe target.
* config/arm/t-thumb-pe: New file: Makefile fragment for
thumb-pe target.
Index: configure.in
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/gcc/configure.in,v
retrieving revision 1.259
diff -p -r1.259 configure.in
*** configure.in 1999/06/29 05:12:03 1.259
--- configure.in 1999/06/30 15:47:47
*************** changequote([,])dnl
*** 788,793 ****
--- 788,798 ----
tm_file=arm/unknown-elf-oabi.h
tmake_file=arm/t-arm-elf
;;
+ arm-*-pe*)
+ tm_file=arm/pe.h
+ tmake_file=arm/t-pe
+ extra_objs=pe.o
+ ;;
c1-convex-*) # Convex C1
target_cpu_default=1
use_collect2=yes
*************** changequote([,])dnl
*** 3269,3274 ****
--- 3274,3287 ----
md_file=arm/thumb.md
tmake_file=arm/t-thumb
thread_file='vxworks'
+ ;;
+ thumb-*-pe)
+ tm_file=arm/tpe.h
+ out_file=arm/thumb.c
+ xm_file=arm/xm-thumb.h
+ md_file=arm/thumb.md
+ tmake_file=arm/t-pe-thumb
+ extra_objs=pe.o
;;
# This hasn't been upgraded to GCC 2.
# tron-*-*)
Index: configure
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/gcc/configure,v
retrieving revision 1.255
diff -p -r1.255 configure
*** configure 1999/06/29 05:12:00 1.255
--- configure 1999/06/30 15:47:49
*************** for machine in $build $host $target; do
*** 3215,3220 ****
--- 3215,3225 ----
tm_file=arm/unknown-elf-oabi.h
tmake_file=arm/t-arm-elf
;;
+ arm-*-pe*)
+ tm_file=arm/pe.h
+ tmake_file=arm/t-pe
+ extra_objs=pe.o
+ ;;
c1-convex-*) # Convex C1
target_cpu_default=1
use_collect2=yes
*************** for machine in $build $host $target; do
*** 5572,5577 ****
--- 5577,5590 ----
md_file=arm/thumb.md
tmake_file=arm/t-thumb
thread_file='vxworks'
+ ;;
+ thumb-*-pe)
+ tm_file=arm/tpe.h
+ out_file=arm/thumb.c
+ xm_file=arm/xm-thumb.h
+ md_file=arm/thumb.md
+ tmake_file=arm/t-pe-thumb
+ extra_objs=pe.o
;;
# This hasn't been upgraded to GCC 2.
# tron-*-*)
Index: config/arm/thumb.c
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/gcc/config/arm/thumb.c,v
retrieving revision 1.8
diff -p -r1.8 thumb.c
*** thumb.c 1998/12/16 21:01:59 1.8
--- thumb.c 1999/06/30 15:47:50
*************** thumb_reorg (first)
*** 398,403 ****
--- 398,404 ----
rtx first;
{
rtx insn;
+
for (insn = first; insn; insn = NEXT_INSN (insn))
{
if (broken_move (insn))
*************** thumb_reload_out_si (operands)
*** 540,545 ****
--- 541,564 ----
abort ();
}
+
+ #ifdef THUMB_PE
+ /* Return non-zero if FUNC is a naked function. */
+
+ static int
+ arm_naked_function_p (func)
+ tree func;
+ {
+ tree a;
+
+ if (TREE_CODE (func) != FUNCTION_DECL)
+ abort ();
+
+ a = lookup_attribute ("naked", DECL_MACHINE_ATTRIBUTES (func));
+ return a != NULL_TREE;
+ }
+ #endif
+
/* Return non-zero if FUNC must be entered in ARM mode. */
int
is_called_in_ARM_mode (func)
*************** is_called_in_ARM_mode (func)
*** 552,558 ****
--- 571,581 ----
if (TARGET_CALLEE_INTERWORKING && TREE_PUBLIC (func))
return TRUE;
+ #ifdef THUMB_PE
+ return lookup_attribute ("interfacearm", DECL_MACHINE_ATTRIBUTES (func)) != NULL_TREE;
+ #else
return FALSE;
+ #endif
}
*************** output_return ()
*** 968,973 ****
--- 991,1002 ----
int regno;
int live_regs_mask = 0;
+ #ifdef THUMB_PE
+ /* If a function is naked, don't use the "return" insn. */
+ if (arm_naked_function_p (current_function_decl))
+ return "";
+ #endif
+
return_used_this_function = 1;
for (regno = 0; regno < 8; regno++)
*************** thumb_function_prologue (f, frame_size)
*** 1026,1034 ****
--- 1055,1069 ----
int store_arg_regs = 0;
int regno;
+ #ifdef THUMB_PE
+ if (arm_naked_function_p (current_function_decl))
+ return;
+ #endif
+
if (is_called_in_ARM_mode (current_function_decl))
{
char * name;
+
if (GET_CODE (DECL_RTL (current_function_decl)) != MEM)
abort();
if (GET_CODE (XEXP (DECL_RTL (current_function_decl), 0)) != SYMBOL_REF)
*************** thumb_function_prologue (f, frame_size)
*** 1051,1056 ****
--- 1086,1097 ----
#define STUB_NAME ".real_start_of"
asm_fprintf (f, "\t.code\t16\n");
+
+ #ifdef THUMB_PE
+ if (arm_dllexport_name_p (name))
+ name = ARM_STRIP_NAME_ENCODING (name);
+ #endif
+
asm_fprintf (f, "\t.globl %s%U%s\n", STUB_NAME, name);
asm_fprintf (f, "\t.thumb_func\n");
asm_fprintf (f, "%s%U%s:\n", STUB_NAME, name);
*************** thumb_expand_prologue ()
*** 1234,1239 ****
--- 1275,1286 ----
int regno;
int live_regs_mask;
+ #ifdef THUMB_PE
+ /* Naked functions don't have prologues. */
+ if (arm_naked_function_p (current_function_decl))
+ return;
+ #endif
+
if (amount)
{
live_regs_mask = 0;
*************** thumb_expand_epilogue ()
*** 1297,1302 ****
--- 1344,1355 ----
+ current_function_outgoing_args_size);
int regno;
+ #ifdef THUMB_PE
+ /* Naked functions don't have epilogues. */
+ if (arm_naked_function_p (current_function_decl))
+ return;
+ #endif
+
if (amount)
{
if (amount < 512)
*************** thumb_override_options ()
*** 1991,1993 ****
--- 2044,2080 ----
flag_pic = 0;
}
}
+
+ #ifdef THUMB_PE
+ /* Return nonzero if ATTR is a valid attribute for DECL.
+ ATTRIBUTES are any existing attributes and ARGS are the arguments
+ supplied with ATTR.
+
+ Supported attributes:
+
+ naked: don't output any prologue or epilogue code, the user is assumed
+ to do the right thing.
+
+ interfacearm: Always assume that this function will be entered in ARM
+ mode, not Thumb mode, and that the caller wishes to be returned to in
+ ARM mode. */
+ int
+ arm_valid_machine_decl_attribute (decl, attr, args)
+ tree decl;
+ tree attr;
+ tree args;
+ {
+ if (args != NULL_TREE)
+ return 0;
+
+ if (is_attribute_p ("naked", attr))
+ if (TREE_CODE (decl) == FUNCTION_DECL)
+ return 1;
+
+ if (is_attribute_p ("interfacearm", attr))
+ return TREE_CODE (decl) == FUNCTION_DECL;
+
+ return 0;
+ }
+ #endif /* THUMB_PE */
+
*** /dev/null Tue May 5 21:32:27 1998
--- config/arm/pe.c Wed Jun 30 16:15:17 1999
***************
*** 0 ****
--- 1,501 ----
+ /* Routines for GCC for ARM/pe.
+ Copyright (C) 1995, 1996 Free Software Foundation, Inc.
+ Contributed by Doug Evans (dje@cygnus.com).
+
+ 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. */
+
+ #include <stdio.h>
+ #include <string.h>
+ #include "config.h"
+ #include "rtl.h"
+ #include "output.h"
+ #include "flags.h"
+ #include "tree.h"
+ #include "expr.h"
+
+ extern int current_function_anonymous_args;
+
+ /* ARM/PE specific attribute support.
+
+ ARM/PE has three new attributes:
+ naked - for interrupt functions
+ dllexport - for exporting a function/variable that will live in a dll
+ dllimport - for importing a function/variable from a dll
+
+ Microsoft allows multiple declspecs in one __declspec, separating
+ them with spaces. We do NOT support this. Instead, use __declspec
+ multiple times.
+ */
+
+ /* Return nonzero if ATTR is a valid attribute for DECL.
+ ATTRIBUTES are any existing attributes and ARGS are the arguments
+ supplied with ATTR. */
+
+ int
+ arm_pe_valid_machine_decl_attribute (decl, attributes, attr, args)
+ tree decl;
+ tree attributes;
+ tree attr;
+ tree args;
+ {
+ if (args != NULL_TREE)
+ return 0;
+
+ if (is_attribute_p ("dllexport", attr))
+ return 1;
+ if (is_attribute_p ("dllimport", attr))
+ return 1;
+
+ return arm_valid_machine_decl_attribute (decl, attr, args);
+ }
+
+ /* Merge attributes in decls OLD and NEW.
+
+ This handles the following situation:
+
+ __declspec (dllimport) int foo;
+ int foo;
+
+ The second instance of `foo' nullifies the dllimport. */
+
+ tree
+ arm_pe_merge_machine_decl_attributes (old, new)
+ tree old, new;
+ {
+ tree a;
+ int delete_dllimport_p;
+
+ old = DECL_MACHINE_ATTRIBUTES (old);
+ new = DECL_MACHINE_ATTRIBUTES (new);
+
+ /* What we need to do here is remove from `old' dllimport if it doesn't
+ appear in `new'. dllimport behaves like extern: if a declaration is
+ marked dllimport and a definition appears later, then the object
+ is not dllimport'd. */
+
+ if (lookup_attribute ("dllimport", old) != NULL_TREE
+ && lookup_attribute ("dllimport", new) == NULL_TREE)
+ delete_dllimport_p = 1;
+ else
+ delete_dllimport_p = 0;
+
+ a = merge_attributes (old, new);
+
+ if (delete_dllimport_p)
+ {
+ tree prev,t;
+
+ /* Scan the list for dllimport and delete it. */
+ for (prev = NULL_TREE, t = a; t; prev = t, t = TREE_CHAIN (t))
+ {
+ if (is_attribute_p ("dllimport", TREE_PURPOSE (t)))
+ {
+ if (prev == NULL_TREE)
+ a = TREE_CHAIN (a);
+ else
+ TREE_CHAIN (prev) = TREE_CHAIN (t);
+ break;
+ }
+ }
+ }
+
+ return a;
+ }
+
+ /* Check a type that has a virtual table, and see if any virtual methods are
+ marked for import or export, and if so, arrange for the vtable to
+ be imported or exported. */
+
+ static int
+ arm_check_vtable_importexport (type)
+ tree type;
+ {
+ tree methods = TYPE_METHODS (type);
+ tree fndecl;
+
+ if (TREE_CODE (methods) == FUNCTION_DECL)
+ fndecl = methods;
+ else if (TREE_VEC_ELT (methods, 0) != NULL_TREE)
+ fndecl = TREE_VEC_ELT (methods, 0);
+ else
+ fndecl = TREE_VEC_ELT (methods, 1);
+
+ while (fndecl)
+ {
+ if (DECL_VIRTUAL_P (fndecl) || DECL_VINDEX (fndecl) != NULL_TREE)
+ {
+ tree exp = lookup_attribute ("dllimport",
+ DECL_MACHINE_ATTRIBUTES (fndecl));
+ if (exp == 0)
+ exp = lookup_attribute ("dllexport",
+ DECL_MACHINE_ATTRIBUTES (fndecl));
+ if (exp)
+ return 1;
+ }
+
+ fndecl = TREE_CHAIN (fndecl);
+ }
+
+ return 0;
+ }
+
+ /* Return non-zero if DECL is a dllexport'd object. */
+
+ tree current_class_type; /* FIXME */
+
+ int
+ arm_dllexport_p (decl)
+ tree decl;
+ {
+ tree exp;
+
+ if (TREE_CODE (decl) != VAR_DECL
+ && TREE_CODE (decl) != FUNCTION_DECL)
+ return 0;
+ exp = lookup_attribute ("dllexport", DECL_MACHINE_ATTRIBUTES (decl));
+ if (exp)
+ return 1;
+
+ #if 0 /* This was a hack to get vtable's exported or imported since only one
+ copy of them is ever output. Disabled pending better solution. */
+ /* For C++, the vtables might have to be marked. */
+ if (TREE_CODE (decl) == VAR_DECL && DECL_VIRTUAL_P (decl))
+ {
+ if (TREE_PUBLIC (decl)
+ && DECL_EXTERNAL (decl) == 0
+ && (DECL_CONTEXT (decl)
+ ? arm_check_vtable_importexport (DECL_CONTEXT (decl))
+ : current_class_type
+ ? arm_check_vtable_importexport (current_class_type)
+ : 0)
+ )
+ return 1;
+ }
+ #endif
+
+ return 0;
+ }
+
+ /* Return non-zero if DECL is a dllimport'd object. */
+
+ int
+ arm_dllimport_p (decl)
+ tree decl;
+ {
+ tree imp;
+
+ if (TREE_CODE (decl) == FUNCTION_DECL
+ && TARGET_NOP_FUN_DLLIMPORT)
+ return 0;
+
+ if (TREE_CODE (decl) != VAR_DECL
+ && TREE_CODE (decl) != FUNCTION_DECL)
+ return 0;
+ imp = lookup_attribute ("dllimport", DECL_MACHINE_ATTRIBUTES (decl));
+ if (imp)
+ return 1;
+
+ #if 0 /* This was a hack to get vtable's exported or imported since only one
+ copy of them is ever output. Disabled pending better solution. */
+ /* For C++, the vtables might have to be marked. */
+ if (TREE_CODE (decl) == VAR_DECL && DECL_VIRTUAL_P (decl))
+ {
+ if (TREE_PUBLIC (decl)
+ && DECL_EXTERNAL (decl)
+ && (DECL_CONTEXT (decl)
+ ? arm_check_vtable_importexport (DECL_CONTEXT (decl))
+ : current_class_type
+ ? arm_check_vtable_importexport (current_class_type)
+ : 0)
+ )
+ return 1;
+ }
+ #endif
+
+ return 0;
+ }
+
+ /* Return non-zero if SYMBOL is marked as being dllexport'd. */
+
+ int
+ arm_dllexport_name_p (symbol)
+ char * symbol;
+ {
+ return symbol[0] == '@' && symbol[1] == 'e' && symbol[2] == '.';
+ }
+
+ /* Return non-zero if SYMBOL is marked as being dllimport'd. */
+
+ int
+ arm_dllimport_name_p (symbol)
+ char * symbol;
+ {
+ return symbol[0] == '@' && symbol[1] == 'i' && symbol[2] == '.';
+ }
+
+ /* Mark a DECL as being dllexport'd.
+ Note that we override the previous setting (eg: dllimport). */
+
+ void
+ arm_mark_dllexport (decl)
+ tree decl;
+ {
+ char * oldname;
+ char * newname;
+ rtx rtlname;
+ tree idp;
+
+ rtlname = XEXP (DECL_RTL (decl), 0);
+ if (GET_CODE (rtlname) == SYMBOL_REF)
+ oldname = XSTR (rtlname, 0);
+ else if (GET_CODE (rtlname) == MEM
+ && GET_CODE (XEXP (rtlname, 0)) == SYMBOL_REF)
+ oldname = XSTR (XEXP (rtlname, 0), 0);
+ else
+ abort ();
+ if (arm_dllimport_name_p (oldname))
+ oldname += 9;
+ else if (arm_dllexport_name_p (oldname))
+ return; /* already done */
+
+ newname = alloca (strlen (oldname) + 4);
+ sprintf (newname, "@e.%s", oldname);
+
+ /* We pass newname through get_identifier to ensure it has a unique
+ address. RTL processing can sometimes peek inside the symbol ref
+ and compare the string's addresses to see if two symbols are
+ identical. */
+ /* ??? At least I think that's why we do this. */
+ idp = get_identifier (newname);
+
+ XEXP (DECL_RTL (decl), 0) =
+ gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (idp));
+ }
+
+ /* Mark a DECL as being dllimport'd. */
+
+ void
+ arm_mark_dllimport (decl)
+ tree decl;
+ {
+ char * oldname;
+ char * newname;
+ tree idp;
+ rtx rtlname, newrtl;
+
+ rtlname = XEXP (DECL_RTL (decl), 0);
+
+ if (GET_CODE (rtlname) == SYMBOL_REF)
+ oldname = XSTR (rtlname, 0);
+ else if (GET_CODE (rtlname) == MEM
+ && GET_CODE (XEXP (rtlname, 0)) == SYMBOL_REF)
+ oldname = XSTR (XEXP (rtlname, 0), 0);
+ else
+ abort ();
+
+ if (arm_dllexport_name_p (oldname))
+ abort (); /* this shouldn't happen */
+ else if (arm_dllimport_name_p (oldname))
+ return; /* already done */
+
+ /* ??? One can well ask why we're making these checks here,
+ and that would be a good question. */
+
+ /* Imported variables can't be initialized. */
+ if (TREE_CODE (decl) == VAR_DECL
+ && !DECL_VIRTUAL_P (decl)
+ && DECL_INITIAL (decl))
+ {
+ error_with_decl (decl, "initialized variable `%s' is marked dllimport");
+ return;
+ }
+ /* Nor can they be static. */
+ if (TREE_CODE (decl) == VAR_DECL
+ /* ??? Is this test for vtables needed? */
+ && !DECL_VIRTUAL_P (decl)
+ && 0 /*???*/)
+ {
+ error_with_decl (decl, "static variable `%s' is marked dllimport");
+ return;
+ }
+
+ /* `extern' needn't be specified with dllimport.
+ Specify `extern' now and hope for the best. Sigh. */
+ if (TREE_CODE (decl) == VAR_DECL
+ /* ??? Is this test for vtables needed? */
+ && !DECL_VIRTUAL_P (decl))
+ {
+ DECL_EXTERNAL (decl) = 1;
+ TREE_PUBLIC (decl) = 1;
+ }
+
+ newname = alloca (strlen (oldname) + 11);
+ sprintf (newname, "@i.__imp_%s", oldname);
+
+ /* We pass newname through get_identifier to ensure it has a unique
+ address. RTL processing can sometimes peek inside the symbol ref
+ and compare the string's addresses to see if two symbols are
+ identical. */
+ /* ??? At least I think that's why we do this. */
+ idp = get_identifier (newname);
+
+ newrtl = gen_rtx (MEM, Pmode,
+ gen_rtx (SYMBOL_REF, Pmode,
+ IDENTIFIER_POINTER (idp)));
+ XEXP (DECL_RTL (decl), 0) = newrtl;
+ }
+
+ /* Cover function to implement ENCODE_SECTION_INFO. */
+
+ void
+ arm_pe_encode_section_info (decl)
+ tree decl;
+ {
+ /* This bit is copied from arm.h. */
+ if (optimize > 0 && TREE_CONSTANT (decl)
+ && (!flag_writable_strings || TREE_CODE (decl) != STRING_CST))
+ {
+ rtx rtl = (TREE_CODE_CLASS (TREE_CODE (decl)) != 'd'
+ ? TREE_CST_RTL (decl) : DECL_RTL (decl));
+ SYMBOL_REF_FLAG (XEXP (rtl, 0)) = 1;
+ }
+
+ /* Mark the decl so we can tell from the rtl whether the object is
+ dllexport'd or dllimport'd. */
+ if (arm_dllexport_p (decl))
+ arm_mark_dllexport (decl);
+ else if (arm_dllimport_p (decl))
+ arm_mark_dllimport (decl);
+ /* It might be that DECL has already been marked as dllimport, but a
+ subsequent definition nullified that. The attribute is gone but
+ DECL_RTL still has @i.__imp_foo. We need to remove that. */
+ else if ((TREE_CODE (decl) == FUNCTION_DECL
+ || TREE_CODE (decl) == VAR_DECL)
+ && DECL_RTL (decl) != NULL_RTX
+ && GET_CODE (DECL_RTL (decl)) == MEM
+ && GET_CODE (XEXP (DECL_RTL (decl), 0)) == MEM
+ && GET_CODE (XEXP (XEXP (DECL_RTL (decl), 0), 0)) == SYMBOL_REF
+ && arm_dllimport_name_p (XSTR (XEXP (XEXP (DECL_RTL (decl), 0), 0), 0)))
+ {
+ char *oldname = XSTR (XEXP (XEXP (DECL_RTL (decl), 0), 0), 0);
+ tree idp = get_identifier (oldname + 9);
+ rtx newrtl = gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (idp));
+
+ XEXP (DECL_RTL (decl), 0) = newrtl;
+
+ /* We previously set TREE_PUBLIC and DECL_EXTERNAL.
+ ??? We leave these alone for now. */
+ }
+ }
+
+ /* Cover function for UNIQUE_SECTION. */
+
+ void
+ arm_pe_unique_section (decl, reloc)
+ tree decl;
+ int reloc;
+ {
+ int len;
+ char * name;
+ char * string;
+ char * prefix;
+
+ name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
+ /* Strip off any encoding in fnname. */
+ STRIP_NAME_ENCODING (name, name);
+
+ /* The object is put in, for example, section .text$foo.
+ The linker will then ultimately place them in .text
+ (everything from the $ on is stripped). */
+ if (TREE_CODE (decl) == FUNCTION_DECL)
+ prefix = ".text$";
+ else if (DECL_READONLY_SECTION (decl, reloc))
+ prefix = ".rdata$";
+ else
+ prefix = ".data$";
+ len = strlen (name) + strlen (prefix);
+ string = alloca (len + 1);
+ sprintf (string, "%s%s", prefix, name);
+
+ DECL_SECTION_NAME (decl) = build_string (len, string);
+ }
+
+ /* This is to better conform to the ARM PCS.
+ Richard Earnshaw hasn't put this into FSF sources yet so it's here. */
+
+ int
+ arm_pe_return_in_memory (type)
+ tree type;
+ {
+ if (TREE_CODE (type) == RECORD_TYPE)
+ {
+ tree field;
+ int num_fields = 0;
+
+ /* For a record containing just a single element, we can be a little
+ less restrictive. */
+ for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
+ {
+ if (TREE_CODE (field) == FIELD_DECL && ! TREE_STATIC (field))
+ {
+ if ((AGGREGATE_TYPE_P (TREE_TYPE (field))
+ && RETURN_IN_MEMORY (TREE_TYPE (field)))
+ || FLOAT_TYPE_P (TREE_TYPE (field)))
+ return 1;
+ num_fields++;
+ }
+ }
+
+ if (num_fields == 1)
+ return 0;
+
+ /* For a struct, we can return in a register if every element was a
+ bit-field and it all fits in one word. */
+ for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
+ {
+ if (TREE_CODE (field) == FIELD_DECL
+ && ! TREE_STATIC (field)
+ && (! DECL_BIT_FIELD_TYPE (field)
+ || (TREE_INT_CST_LOW (DECL_FIELD_BITPOS (field))
+ + TREE_INT_CST_LOW (DECL_SIZE (field))) > 32))
+ return 1;
+ }
+ return 0;
+ }
+ else if (TREE_CODE (type) == UNION_TYPE
+ || TREE_CODE (type) == QUAL_UNION_TYPE)
+ {
+ tree field;
+
+ /* Unions can be returned in registers if every element is
+ integral, or can be returned in an integer register. */
+ for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
+ {
+ if (TREE_CODE (field) == FIELD_DECL
+ && ! TREE_STATIC (field)
+ && ((AGGREGATE_TYPE_P (TREE_TYPE (field))
+ && RETURN_IN_MEMORY (TREE_TYPE (field)))
+ || FLOAT_TYPE_P (TREE_TYPE (field))))
+ return 1;
+ }
+ return 0;
+ }
+ /* XXX Not sure what should be done for other aggregates, so put them in
+ memory. */
+ return 1;
+ }
*** /dev/null Tue May 5 21:32:27 1998
--- config/arm/pe.h Wed Jun 30 16:15:17 1999
***************
*** 0 ****
--- 1,296 ----
+ /* Definitions of target machine for GNU compiler, for ARM with PE obj format.
+ Copyright (C) 1995, 1996, 1999 Free Software Foundation, Inc.
+ Contributed by Doug Evans (dje@cygnus.com).
+
+ 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. */
+
+ #include "arm/coff.h"
+
+ #undef USER_LABEL_PREFIX
+ #define USER_LABEL_PREFIX "_"
+
+
+ /* Run-time Target Specification. */
+ #undef TARGET_VERSION
+ #define TARGET_VERSION fputs (" (ARM/pe)", stderr)
+
+ /* Support the __declspec keyword by turning them into attributes.
+ We currently only support: naked, 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. */
+ #undef CPP_PREDEFINES
+ #define CPP_PREDEFINES "\
+ -Darm -D__pe__ -Acpu(arm) -Amachine(arm) \
+ -D__declspec(x)=__attribute__((x)) \
+ "
+
+ /* Experimental addition for pr 7885.
+ Ignore dllimport for functions. */
+ #define TARGET_NOP_FUN_DLLIMPORT (target_flags & 0x20000)
+
+ #undef SUBTARGET_SWITCHES
+ #define SUBTARGET_SWITCHES \
+ { "nop-fun-dllimport", 0x20000, "Ignore dllimport attribute for functions" }, \
+ { "no-nop-fun-dllimport", -0x20000, "" },
+
+ #undef TARGET_DEFAULT
+ #define TARGET_DEFAULT (ARM_FLAG_SOFT_FLOAT + 0x20000)
+
+ #undef WCHAR_TYPE
+ #define WCHAR_TYPE "short unsigned int"
+ #undef WCHAR_TYPE_SIZE
+ #define WCHAR_TYPE_SIZE 16
+
+ /* Same as arm.h except r10 is call-saved, not fixed. */
+ #undef FIXED_REGISTERS
+ #define FIXED_REGISTERS \
+ { \
+ 0,0,0,0,0,0,0,0, \
+ 0,0,0,1,0,1,0,1, \
+ 0,0,0,0,0,0,0,0, \
+ 1,1,1 \
+ }
+
+ /* Same as arm.h except r10 is call-saved, not fixed. */
+ #undef CALL_USED_REGISTERS
+ #define CALL_USED_REGISTERS \
+ { \
+ 1,1,1,1,0,0,0,0, \
+ 0,0,0,1,1,1,1,1, \
+ 1,1,1,1,0,0,0,0, \
+ 1,1,1 \
+ }
+
+ /* This is to better conform to the ARM PCS.
+ Richard Earnshaw hasn't put this into FSF sources yet so it's here. */
+ #undef RETURN_IN_MEMORY
+ #define RETURN_IN_MEMORY(TYPE) \
+ ((TYPE_MODE ((TYPE)) == BLKmode && ! TYPE_NO_FORCE_BLK (TYPE)) \
+ || (AGGREGATE_TYPE_P ((TYPE)) && arm_pe_return_in_memory ((TYPE))))
+
+ /* 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 arm_pe_valid_machine_decl_attribute ();
+ #undef VALID_MACHINE_DECL_ATTRIBUTE
+ #define VALID_MACHINE_DECL_ATTRIBUTE(DECL, ATTRIBUTES, IDENTIFIER, ARGS) \
+ arm_pe_valid_machine_decl_attribute (DECL, ATTRIBUTES, IDENTIFIER, ARGS)
+
+ #if 0 /* Needed when we tried type attributes. */
+ /* A C expression whose value is zero if the attributes on
+ TYPE1 and TYPE2 are incompatible, one if they are compatible,
+ and two if they are nearly compatible (which causes a warning to be
+ generated). */
+ extern int arm_pe_comp_type_attributes ();
+ #define COMP_TYPE_ATTRIBUTES(TYPE1, TYPE2) \
+ arm_pe_comp_type_attributes ((TYPE1), (TYPE2))
+ #endif
+
+ extern union tree_node *arm_pe_merge_machine_decl_attributes ();
+ #define MERGE_MACHINE_DECL_ATTRIBUTES(OLD, NEW) \
+ arm_pe_merge_machine_decl_attributes ((OLD), (NEW))
+
+ /* In addition to the stuff done in arm.h, 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 arm_pe_encode_section_info ();
+ #undef ENCODE_SECTION_INFO
+ #define ENCODE_SECTION_INFO(DECL) \
+ arm_pe_encode_section_info (DECL)
+
+ /* 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 arm_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
+
+ /* Utility used only in this file. */
+ #define ARM_STRIP_NAME_ENCODING(SYM_NAME) \
+ ((SYM_NAME) + ((SYM_NAME)[0] == '@' ? 3 : 0))
+
+ /* Strip any text from SYM_NAME added by ENCODE_SECTION_INFO and store
+ the result in VAR. */
+ #undef STRIP_NAME_ENCODING
+ #define STRIP_NAME_ENCODING(VAR, SYM_NAME) \
+ (VAR) = ARM_STRIP_NAME_ENCODING (SYM_NAME)
+
+ /* 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 arm_pe_unique_section ();
+ #define UNIQUE_SECTION(DECL,RELOC) arm_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)
+
+ /* This outputs a lot of .req's to define alias for various registers.
+ Let's try to avoid this. */
+ #undef ASM_FILE_START
+ #define ASM_FILE_START(STREAM) \
+ do { \
+ extern char * version_string; \
+ fprintf (STREAM, "%s Generated by gcc %s for ARM/pe\n", \
+ ASM_COMMENT_START, version_string); \
+ output_file_directive ((STREAM), main_input_filename); \
+ } 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, ARM_STRIP_NAME_ENCODING (NAME))
+
+ /* Output a function definition label. */
+ #undef ASM_DECLARE_FUNCTION_NAME
+ #define ASM_DECLARE_FUNCTION_NAME(STREAM, NAME, DECL) \
+ do { \
+ if (arm_dllexport_name_p (NAME)) \
+ { \
+ drectve_section (); \
+ fprintf (STREAM, "\t.ascii \" -export:%s\"\n", \
+ ARM_STRIP_NAME_ENCODING (NAME)); \
+ function_section (DECL); \
+ } \
+ if (TARGET_POKE_FUNCTION_NAME) \
+ arm_poke_function_name ((STREAM), (NAME)); \
+ ASM_OUTPUT_LABEL ((STREAM), (NAME)); \
+ } while (0)
+
+ /* Output a common block. */
+ #undef ASM_OUTPUT_COMMON
+ #define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED) \
+ do { \
+ if (arm_dllexport_name_p (NAME)) \
+ { \
+ drectve_section (); \
+ fprintf ((STREAM), "\t.ascii \" -export:%s\"\n", \
+ ARM_STRIP_NAME_ENCODING (NAME)); \
+ } \
+ if (! arm_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 (arm_dllexport_name_p (NAME)) \
+ { \
+ enum in_section save_section = in_section; \
+ drectve_section (); \
+ fprintf (STREAM, "\t.ascii \" -export:%s\"\n", \
+ ARM_STRIP_NAME_ENCODING (NAME)); \
+ switch_to_section (save_section, (DECL)); \
+ } \
+ ASM_OUTPUT_LABEL ((STREAM), (NAME)); \
+ } while (0)
+
+ /* Support the ctors/dtors and other sections. */
+
+ #define DRECTVE_SECTION_ASM_OP "\t.section .drectve"
+
+ /* A list of other sections which the compiler might be "in" at any
+ given time. */
+
+ #undef SUBTARGET_EXTRA_SECTIONS
+ #define SUBTARGET_EXTRA_SECTIONS in_drectve,
+
+ /* A list of extra section function definitions. */
+
+ #undef SUBTARGET_EXTRA_SECTION_FUNCTIONS
+ #define SUBTARGET_EXTRA_SECTION_FUNCTIONS \
+ DRECTVE_SECTION_FUNCTION \
+ SWITCH_TO_SECTION_FUNCTION
+
+ #define DRECTVE_SECTION_FUNCTION \
+ void \
+ drectve_section () \
+ { \
+ if (in_section != in_drectve) \
+ { \
+ fprintf (asm_out_file, "%s\n", DRECTVE_SECTION_ASM_OP); \
+ 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_rdata: rdata_section (); break; \
+ case in_ctors: ctors_section (); break; \
+ case in_dtors: dtors_section (); break; \
+ case in_drectve: drectve_section (); break; \
+ default: abort (); break; \
+ } \
+ }
*** /dev/null Tue May 5 21:32:27 1998
--- config/arm/tpe.h Wed Jun 30 16:26:06 1999
***************
*** 0 ****
--- 1,425 ----
+ /* Definitions of target machine for GNU compiler,
+ for Thumb with PE object format.
+ Copyright (C) 1998, 1999 Free Software Foundation, Inc.
+ Derived from arm/coff.h and arm/pe.h originally by Doug Evans (evans@cygnus.com).
+
+ 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. */
+
+ #include "arm/thumb.h"
+
+ #define THUMB_PE 1
+
+ /* Run-time Target Specification. */
+ #undef TARGET_VERSION
+ #define TARGET_VERSION fputs (" (Thumb/pe)", stderr)
+
+ /* Support the __declspec keyword by turning them into attributes.
+ We currently only support: naked, 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. */
+ #undef CPP_PREDEFINES
+ #define CPP_PREDEFINES "\
+ -Dthumb -D__thumb -D__pe__ -Acpu(arm) -Amachine(arm) \
+ -D__declspec(x)=__attribute__((x)) \
+ "
+
+ /* Experimental addition for pr 7885.
+ Ignore dllimport for functions. */
+ #define ARM_FLAG_NOP_FUN_IMPORT 0x20000
+ #define TARGET_NOP_FUN_DLLIMPORT (target_flags & ARM_FLAG_NOP_FUN_IMPORT)
+
+ #undef SUBTARGET_SWITCHES
+ #define SUBTARGET_SWITCHES \
+ { "nop-fun-dllimport", ARM_FLAG_NOP_FUN_IMPORT, "Ignore dllimport attribute for functions" }, \
+ { "no-nop-fun-dllimport", -ARM_FLAG_NOP_FUN_IMPORT, "" },
+
+ #undef TARGET_DEFAULT
+ #define TARGET_DEFAULT ARM_FLAG_NOP_FUN_IMPORT
+
+ #undef WCHAR_TYPE
+ #define WCHAR_TYPE "short unsigned int"
+ #undef WCHAR_TYPE_SIZE
+ #define WCHAR_TYPE_SIZE 16
+
+ /* Setting this to 32 produces more efficient code, but the value set in previous
+ versions of this toolchain was 8, which produces more compact structures. The
+ command line option -mstructure_size_boundary=<n> can be used to change this
+ value. */
+ #undef STRUCTURE_SIZE_BOUNDARY
+ #define STRUCTURE_SIZE_BOUNDARY arm_structure_size_boundary
+
+ extern int arm_structure_size_boundary;
+
+ /* This is COFF, but prefer stabs. */
+ #define SDB_DEBUGGING_INFO
+
+ #define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
+
+ #include "dbxcoff.h"
+
+ /* Note - it is important that these definitions match those in semi.h for the ARM port. */
+ #undef LOCAL_LABEL_PREFIX
+ #define LOCAL_LABEL_PREFIX "."
+
+ #undef USER_LABEL_PREFIX
+ #define USER_LABEL_PREFIX "_"
+
+ /* A C statement to output assembler commands which will identify the
+ object file as having been compiled with GNU CC (or another GNU
+ compiler). */
+ #define ASM_IDENTIFY_GCC(STREAM) \
+ fprintf (STREAM, "%sgcc2_compiled.:\n%s", LOCAL_LABEL_PREFIX, ASM_APP_OFF )
+
+ #undef ASM_FILE_START
+ #define ASM_FILE_START(STREAM) \
+ do { \
+ extern char * version_string; \
+ fprintf ((STREAM), "%s Generated by gcc %s for Thumb/coff\n", \
+ ASM_COMMENT_START, version_string); \
+ fprintf ((STREAM), ASM_APP_OFF); \
+ } while (0)
+
+ /* 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. */
+ #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)); \
+ } while (0)
+
+ /* Support the ctors/dtors and other sections. */
+
+ #undef INIT_SECTION_ASM_OP
+
+ /* Define this macro if jump tables (for `tablejump' insns) should be
+ output in the text section, along with the assembler instructions.
+ Otherwise, the readonly data section is used. */
+ #define JUMP_TABLES_IN_TEXT_SECTION 1
+
+ #undef READONLY_DATA_SECTION
+ #define READONLY_DATA_SECTION rdata_section
+ #undef RDATA_SECTION_ASM_OP
+ #define RDATA_SECTION_ASM_OP "\t.section .rdata"
+
+ #undef CTORS_SECTION_ASM_OP
+ #define CTORS_SECTION_ASM_OP "\t.section .ctors,\"x\""
+ #undef DTORS_SECTION_ASM_OP
+ #define DTORS_SECTION_ASM_OP "\t.section .dtors,\"x\""
+
+ /* A list of other sections which the compiler might be "in" at any
+ given time. */
+
+ #undef EXTRA_SECTIONS
+ #define EXTRA_SECTIONS SUBTARGET_EXTRA_SECTIONS in_rdata, in_ctors, in_dtors
+
+ #define SUBTARGET_EXTRA_SECTIONS
+
+ /* A list of extra section function definitions. */
+
+ #undef EXTRA_SECTION_FUNCTIONS
+ #define EXTRA_SECTION_FUNCTIONS \
+ RDATA_SECTION_FUNCTION \
+ CTORS_SECTION_FUNCTION \
+ DTORS_SECTION_FUNCTION \
+ SUBTARGET_EXTRA_SECTION_FUNCTIONS
+
+ #define SUBTARGET_EXTRA_SECTION_FUNCTIONS
+
+ #define RDATA_SECTION_FUNCTION \
+ void \
+ rdata_section () \
+ { \
+ if (in_section != in_rdata) \
+ { \
+ fprintf (asm_out_file, "%s\n", RDATA_SECTION_ASM_OP); \
+ in_section = in_rdata; \
+ } \
+ }
+
+ #define CTORS_SECTION_FUNCTION \
+ void \
+ ctors_section () \
+ { \
+ if (in_section != in_ctors) \
+ { \
+ fprintf (asm_out_file, "%s\n", CTORS_SECTION_ASM_OP); \
+ in_section = in_ctors; \
+ } \
+ }
+
+ #define DTORS_SECTION_FUNCTION \
+ void \
+ dtors_section () \
+ { \
+ if (in_section != in_dtors) \
+ { \
+ fprintf (asm_out_file, "%s\n", DTORS_SECTION_ASM_OP); \
+ in_section = in_dtors; \
+ } \
+ }
+
+ /* Support the ctors/dtors sections for g++. */
+
+ #define INT_ASM_OP ".word"
+
+ /* A C statement (sans semicolon) to output an element in the table of
+ global constructors. */
+ #undef ASM_OUTPUT_CONSTRUCTOR
+ #define ASM_OUTPUT_CONSTRUCTOR(STREAM,NAME) \
+ do { \
+ ctors_section (); \
+ fprintf (STREAM, "\t%s\t ", INT_ASM_OP); \
+ assemble_name (STREAM, NAME); \
+ fprintf (STREAM, "\n"); \
+ } while (0)
+
+ /* A C statement (sans semicolon) to output an element in the table of
+ global destructors. */
+ #undef ASM_OUTPUT_DESTRUCTOR
+ #define ASM_OUTPUT_DESTRUCTOR(STREAM,NAME) \
+ do { \
+ dtors_section (); \
+ fprintf (STREAM, "\t%s\t ", INT_ASM_OP); \
+ assemble_name (STREAM, NAME); \
+ fprintf (STREAM, "\n"); \
+ } while (0)
+
+ /* __CTOR_LIST__ and __DTOR_LIST__ must be defined by the linker script. */
+ #define CTOR_LISTS_DEFINED_EXTERNALLY
+
+ #undef DO_GLOBAL_CTORS_BODY
+ #undef DO_GLOBAL_DTORS_BODY
+
+ /* The ARM development system has atexit and doesn't have _exit,
+ so define this for now. */
+ #define HAVE_ATEXIT
+
+ /* The ARM development system defines __main. */
+ #define NAME__MAIN "__gccmain"
+ #define SYMBOL__MAIN __gccmain
+
+ /* This is to better conform to the ARM PCS.
+ Richard Earnshaw hasn't put this into FSF sources yet so it's here. */
+ #undef RETURN_IN_MEMORY
+ #define RETURN_IN_MEMORY(TYPE) \
+ ((TYPE_MODE ((TYPE)) == BLKmode && ! TYPE_NO_FORCE_BLK (TYPE)) \
+ || (AGGREGATE_TYPE_P ((TYPE)) && arm_pe_return_in_memory ((TYPE))))
+
+ /* 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 arm_pe_valid_machine_decl_attribute ();
+ #undef VALID_MACHINE_DECL_ATTRIBUTE
+ #define VALID_MACHINE_DECL_ATTRIBUTE(DECL, ATTRIBUTES, IDENTIFIER, ARGS) \
+ arm_pe_valid_machine_decl_attribute (DECL, ATTRIBUTES, IDENTIFIER, ARGS)
+
+ extern union tree_node * arm_pe_merge_machine_decl_attributes ();
+ #define MERGE_MACHINE_DECL_ATTRIBUTES(OLD, NEW) \
+ arm_pe_merge_machine_decl_attributes ((OLD), (NEW))
+
+ /* In addition to the stuff done in arm.h, 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 arm_pe_encode_section_info ();
+ #undef ENCODE_SECTION_INFO
+ #define ENCODE_SECTION_INFO(DECL) \
+ arm_pe_encode_section_info (DECL)
+
+ #define REDO_SECTION_INFO_P(DECL) 1
+
+ /* Utility used only in this file. */
+ #define ARM_STRIP_NAME_ENCODING(SYM_NAME) \
+ ((SYM_NAME) + ((SYM_NAME)[0] == '@' ? 3 : 0))
+
+ /* Strip any text from SYM_NAME added by ENCODE_SECTION_INFO and store
+ the result in VAR. */
+ #undef STRIP_NAME_ENCODING
+ #define STRIP_NAME_ENCODING(VAR, SYM_NAME) \
+ (VAR) = ARM_STRIP_NAME_ENCODING (SYM_NAME)
+
+ /* 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 arm_pe_unique_section ();
+ #define UNIQUE_SECTION(DECL,RELOC) arm_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)
+
+ /* This outputs a lot of .req's to define alias for various registers.
+ Let's try to avoid this. */
+ #undef ASM_FILE_START
+ #define ASM_FILE_START(STREAM) \
+ do { \
+ extern char * version_string; \
+ fprintf (STREAM, "%s Generated by gcc %s for ARM/pe\n", \
+ ASM_COMMENT_START, version_string); \
+ output_file_directive ((STREAM), main_input_filename); \
+ } 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, ARM_STRIP_NAME_ENCODING (NAME))
+
+ /* Output a function definition label. */
+ #undef ASM_DECLARE_FUNCTION_NAME
+ #define ASM_DECLARE_FUNCTION_NAME(STREAM, NAME, DECL) \
+ do { \
+ if (arm_dllexport_name_p (NAME)) \
+ { \
+ drectve_section (); \
+ fprintf (STREAM, "\t.ascii \" -export:%s\"\n", \
+ ARM_STRIP_NAME_ENCODING (NAME)); \
+ function_section (DECL); \
+ } \
+ if (! is_called_in_ARM_mode (decl)) \
+ fprintf (STREAM, "\t.thumb_func\n") ; \
+ else \
+ fprintf (STREAM, "\t.code\t32\n") ; \
+ ASM_OUTPUT_LABEL ((STREAM), (NAME)); \
+ } while (0)
+
+ /* Output a common block. */
+ #undef ASM_OUTPUT_COMMON
+ #define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED) \
+ do { \
+ if (arm_dllexport_name_p (NAME)) \
+ { \
+ drectve_section (); \
+ fprintf ((STREAM), "\t.ascii \" -export:%s\"\n", \
+ ARM_STRIP_NAME_ENCODING (NAME)); \
+ } \
+ if (! arm_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 (arm_dllexport_name_p (NAME)) \
+ { \
+ enum in_section save_section = in_section; \
+ drectve_section (); \
+ fprintf (STREAM, "\t.ascii \" -export:%s\"\n", \
+ ARM_STRIP_NAME_ENCODING (NAME)); \
+ switch_to_section (save_section, (DECL)); \
+ } \
+ ASM_OUTPUT_LABEL ((STREAM), (NAME)); \
+ } while (0)
+
+ /* Support the ctors/dtors and other sections. */
+
+ #define DRECTVE_SECTION_ASM_OP "\t.section .drectve"
+
+ /* A list of other sections which the compiler might be "in" at any
+ given time. */
+
+ #undef SUBTARGET_EXTRA_SECTIONS
+ #define SUBTARGET_EXTRA_SECTIONS in_drectve,
+
+ /* A list of extra section function definitions. */
+
+ #undef SUBTARGET_EXTRA_SECTION_FUNCTIONS
+ #define SUBTARGET_EXTRA_SECTION_FUNCTIONS \
+ DRECTVE_SECTION_FUNCTION \
+ SWITCH_TO_SECTION_FUNCTION
+
+ #define DRECTVE_SECTION_FUNCTION \
+ void \
+ drectve_section () \
+ { \
+ if (in_section != in_drectve) \
+ { \
+ fprintf (asm_out_file, "%s\n", DRECTVE_SECTION_ASM_OP); \
+ 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_rdata: rdata_section (); break; \
+ case in_ctors: ctors_section (); break; \
+ case in_dtors: dtors_section (); break; \
+ case in_drectve: drectve_section (); break; \
+ default: abort (); break; \
+ } \
+ }
+
+
+
+ extern int thumb_pe_valid_machine_decl_attribute ();
*** /dev/null Tue May 5 21:32:27 1998
--- config/arm/t-pe-thumb Wed Jun 30 16:15:26 1999
***************
*** 0 ****
--- 1,36 ----
+ # Makefile fragment
+ # Copyright (c) 1998 Free Software Foundation
+
+ CROSS_LIBGCC1 = libgcc1-asm.a
+ LIB1ASMSRC = arm/lib1thumb.asm
+ LIB1ASMFUNCS = _udivsi3 _divsi3 _umodsi3 _modsi3 _dvmd_tls _call_via_rX _interwork_call_via_rX
+
+ # These are really part of libgcc1, but this will cause them to be
+ # built correctly, so...
+
+ LIB2FUNCS_EXTRA = fp-bit.c dp-bit.c
+
+ fp-bit.c: $(srcdir)/config/fp-bit.c
+ echo '#define FLOAT' > fp-bit.c
+ echo '#ifndef __ARMEB__' >> fp-bit.c
+ echo '#define FLOAT_BIT_ORDER_MISMATCH' >> fp-bit.c
+ echo '#endif' >> fp-bit.c
+ cat $(srcdir)/config/fp-bit.c >> fp-bit.c
+
+ dp-bit.c: $(srcdir)/config/fp-bit.c
+ echo '#ifndef __ARMEB__' > dp-bit.c
+ echo '#define FLOAT_BIT_ORDER_MISMATCH' >> dp-bit.c
+ echo '#define FLOAT_WORD_ORDER_MISMATCH' >> dp-bit.c
+ echo '#endif' >> dp-bit.c
+ cat $(srcdir)/config/fp-bit.c >> dp-bit.c
+
+ # Rule to build Psion specific GCC functions.
+ pe.o: $(srcdir)/config/arm/pe.c
+ $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(srcdir)/config/arm/pe.c
+
+ # Avoid building a duplicate set of libraries for the default endian-ness.
+ MULTILIB_OPTIONS = mthumb-interwork
+ MULTILIB_DIRNAMES = interwork
+
+ LIBGCC = stmp-multilib
+ INSTALL_LIBGCC = install-multilib