diff options
| author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 2001-10-23 22:59:52 +0000 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2001-10-23 18:59:52 -0400 |
| commit | 75c09e7d3c1604854c30701a620511c4aa568e12 (patch) | |
| tree | 706cf36e2334b199ff85b105df71b6f0e4e4566c /gcc/ada/misc.c | |
| parent | 4b6c167260f42134dc465ccd05b68d38a3b275d3 (diff) | |
| download | gcc-75c09e7d3c1604854c30701a620511c4aa568e12.zip gcc-75c09e7d3c1604854c30701a620511c4aa568e12.tar.gz gcc-75c09e7d3c1604854c30701a620511c4aa568e12.tar.bz2 | |
misc.c (gnat_init, [...]): Now static.
* misc.c (gnat_init, gnat_init_options, gnat_decode_option):
Now static.
(LANG_HOOKS_GET_ALIAS_SET): New macro.
(gnat_expand_expr, case NULL_EXPR): Always call set_mem_attributes.
(gnat_get_alias_set): Renamed from lang_get_alias_set.
* gigi.h (gnat_decode_option, gnat_init_option, gnat_init):
Delete declarations.
(gnat_get_alias_set): Likewise.
From-SVN: r46449
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index df99c0a..298bfc3 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision: 1.4 $ + * $Revision: 1.5 $ * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * @@ -108,6 +108,11 @@ const char *gnat_tree_code_name[] = { }; #undef DEFTREECODE +static void gnat_init PARAMS ((void)); +static void gnat_init_options PARAMS ((void)); +static int gnat_decode_option PARAMS ((int, char **)); +static HOST_WIDE_INT gnat_get_alias_set PARAMS ((tree)); + /* Structure giving our language-specific hooks. */ #undef LANG_HOOKS_INIT @@ -116,6 +121,10 @@ const char *gnat_tree_code_name[] = { #define LANG_HOOKS_INIT_OPTIONS gnat_init_options #undef LANG_HOOKS_DECODE_OPTION #define LANG_HOOKS_DECODE_OPTION gnat_decode_option +#undef LANG_HOOKS_HONOR_READONLY +#define LANG_HOOKS_HONOR_READONLY 1 +#undef LANG_HOOKS_GET_ALIAS_SET +#define LANG_HOOKS_GET_ALIAS_SET gnat_get_alias_set struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER; @@ -641,9 +650,12 @@ gnat_expand_expr (exp, target, tmode, modifier) /* We aren't going to be doing anything with this memory, but allocate it anyway. If it's variable size, make a bogus address. */ if (! host_integerp (TYPE_SIZE_UNIT (type), 1)) - return gen_rtx_MEM (BLKmode, virtual_stack_vars_rtx); + result = gen_rtx_MEM (BLKmode, virtual_stack_vars_rtx); else - return assign_temp (type, 0, TREE_ADDRESSABLE (exp), 1); + result = assign_temp (type, 0, TREE_ADDRESSABLE (exp), 1); + + set_mem_attributes (result, exp, 1); + return result; case ALLOCATE_EXPR: return @@ -935,8 +947,8 @@ get_type_alignment (gnat_type) /* Get the alias set corresponding to a type or expression. */ -HOST_WIDE_INT -lang_get_alias_set (type) +static HOST_WIDE_INT +gnat_get_alias_set (type) tree type; { /* If this is a padding type, use the type of the first field. */ |