procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

misc.c (gnat_init, [...]): Now static.

Browse source 
* 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
This commit is contained in:
Richard Kenner 2001-10-23 22:59:52 +00:00 • committed by Richard Kenner
parent 4b6c167260
commit 75c09e7d3c
3 changed files with 29 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gcc/ada/ChangeLog
View file

@ -1,3 +1,14 @@
Tue Oct 23 19:00:51 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* 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.
2001-10-22 Geert Bosh <bosch@gnat.com>
* Make-lang.in (gnattools, cross-gnattools): Remove gnatmem.

17
gcc/ada/gigi.h
View file

@ -6,7 +6,7 @@
* *
* C Header File *
* *
* $Revision: 1.1 $
* $Revision: 1.2 $
* *
* Copyright (C) 1992-2001 Free Software Foundation, Inc. *
* *
@ -34,18 +34,6 @@
/* Declare all functions and types used by gigi. */
/* Decode all the language specific options that cannot be decoded by GCC. The
option decoding phase of GCC calls this routine on the flags that it cannot
decode. This routine returns 1 if it is successful, otherwise it
returns 0. */
extern int gnat_decode_option PARAMS ((int, char **));
/* Perform all initialization steps for option processing. */
extern void gnat_init_options PARAMS ((void));
/* Perform all the initialization steps that are language-specific. */
extern void gnat_init PARAMS ((void));
/* See if DECL has an RTL that is indirect via a pseudo-register or a
memory location and replace it with an indirect reference if so.
This improves the debugger's ability to display the value. */
@ -68,9 +56,6 @@ extern tree make_transform_expr PARAMS ((Node_Id));
here that a __builtin_setjmp was done to BUF. */
extern void update_setjmp_buf PARAMS ((tree));
/* Get the alias set corresponding to a type or expression. */
extern HOST_WIDE_INT gnat_get_alias_set PARAMS ((tree));
/* GNU_TYPE is a type. Determine if it should be passed by reference by
default. */
extern int default_pass_by_ref PARAMS ((tree));

22
gcc/ada/misc.c
View file

@ -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. */