darwin-c.c (darwin_ms_struct): Move this
2006-04-28 Eric Christopher <echristo@apple.com> * config/darwin-c.c (darwin_ms_struct): Move this (darwin_set_default_type_attributes): and this... * config/darwin.c: ... here. * config/darwin.h (darwin_ms_struct): Declare. From-SVN: r113358
This commit is contained in:
parent
a5f844647b
commit
4f8bdef929
|
@ -1,3 +1,10 @@
|
||||||
|
2006-04-28 Eric Christopher <echristo@apple.com>
|
||||||
|
|
||||||
|
* config/darwin-c.c (darwin_ms_struct): Move this
|
||||||
|
(darwin_set_default_type_attributes): and this...
|
||||||
|
* config/darwin.c: ... here.
|
||||||
|
* config/darwin.h (darwin_ms_struct): Declare.
|
||||||
|
|
||||||
2006-04-28 Andrew MacLeod <amacleod@redhat.com>
|
2006-04-28 Andrew MacLeod <amacleod@redhat.com>
|
||||||
|
|
||||||
* tree-ssa-dom.c (propagate_rhs_into_lhs): Fix assert clause.
|
* tree-ssa-dom.c (propagate_rhs_into_lhs): Fix assert clause.
|
||||||
|
|
|
@ -41,9 +41,6 @@ Boston, MA 02110-1301, USA. */
|
||||||
|
|
||||||
static bool using_frameworks = false;
|
static bool using_frameworks = false;
|
||||||
|
|
||||||
/* True if we're setting __attribute__ ((ms_struct)). */
|
|
||||||
static bool darwin_ms_struct = false;
|
|
||||||
|
|
||||||
/* Maintain a small stack of alignments. This is similar to pragma
|
/* Maintain a small stack of alignments. This is similar to pragma
|
||||||
pack's stack, but simpler. */
|
pack's stack, but simpler. */
|
||||||
|
|
||||||
|
@ -184,17 +181,6 @@ darwin_pragma_ms_struct (cpp_reader *pfile ATTRIBUTE_UNUSED)
|
||||||
warning (OPT_Wpragmas, "junk at end of '#pragma ms_struct'");
|
warning (OPT_Wpragmas, "junk at end of '#pragma ms_struct'");
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Set the darwin specific attributes on TYPE. */
|
|
||||||
void
|
|
||||||
darwin_set_default_type_attributes (tree type)
|
|
||||||
{
|
|
||||||
if (darwin_ms_struct
|
|
||||||
&& TREE_CODE (type) == RECORD_TYPE)
|
|
||||||
TYPE_ATTRIBUTES (type) = tree_cons (get_identifier ("ms_struct"),
|
|
||||||
NULL_TREE,
|
|
||||||
TYPE_ATTRIBUTES (type));
|
|
||||||
}
|
|
||||||
|
|
||||||
static struct {
|
static struct {
|
||||||
size_t len;
|
size_t len;
|
||||||
const char *name;
|
const char *name;
|
||||||
|
|
|
@ -79,6 +79,9 @@ Boston, MA 02110-1301, USA. */
|
||||||
/* Section names. */
|
/* Section names. */
|
||||||
section * darwin_sections[NUM_DARWIN_SECTIONS];
|
section * darwin_sections[NUM_DARWIN_SECTIONS];
|
||||||
|
|
||||||
|
/* True if we're setting __attribute__ ((ms_struct)). */
|
||||||
|
int darwin_ms_struct = false;
|
||||||
|
|
||||||
/* A get_unnamed_section callback used to switch to an ObjC section.
|
/* A get_unnamed_section callback used to switch to an ObjC section.
|
||||||
DIRECTIVE is as for output_section_asm_op. */
|
DIRECTIVE is as for output_section_asm_op. */
|
||||||
|
|
||||||
|
@ -1534,4 +1537,15 @@ darwin_asm_output_anchor (rtx symbol)
|
||||||
SYMBOL_REF_BLOCK_OFFSET (symbol));
|
SYMBOL_REF_BLOCK_OFFSET (symbol));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Set the darwin specific attributes on TYPE. */
|
||||||
|
void
|
||||||
|
darwin_set_default_type_attributes (tree type)
|
||||||
|
{
|
||||||
|
if (darwin_ms_struct
|
||||||
|
&& TREE_CODE (type) == RECORD_TYPE)
|
||||||
|
TYPE_ATTRIBUTES (type) = tree_cons (get_identifier ("ms_struct"),
|
||||||
|
NULL_TREE,
|
||||||
|
TYPE_ATTRIBUTES (type));
|
||||||
|
}
|
||||||
|
|
||||||
#include "gt-darwin.h"
|
#include "gt-darwin.h"
|
||||||
|
|
|
@ -80,6 +80,9 @@ Boston, MA 02110-1301, USA. */
|
||||||
#undef DEFAULT_PCC_STRUCT_RETURN
|
#undef DEFAULT_PCC_STRUCT_RETURN
|
||||||
#define DEFAULT_PCC_STRUCT_RETURN 0
|
#define DEFAULT_PCC_STRUCT_RETURN 0
|
||||||
|
|
||||||
|
/* True if pragma ms_struct is in effect. */
|
||||||
|
extern GTY(()) int darwin_ms_struct;
|
||||||
|
|
||||||
/* This table intercepts weirdo options whose names would interfere
|
/* This table intercepts weirdo options whose names would interfere
|
||||||
with normal driver conventions, and either translates them into
|
with normal driver conventions, and either translates them into
|
||||||
standardly-named options, or adds a 'Z' so that they can get to
|
standardly-named options, or adds a 'Z' so that they can get to
|
||||||
|
|
Loading…
Reference in New Issue