Skip to content

R
riscv-gcc-1
Commit c2d7fe59 by Richard Kenner Committed by Geert Bosch
Options

decl.c: (gnat_to_gnu_entity... 

	* decl.c: (gnat_to_gnu_entity, case object): Also materialize
	VAR_DECL for constant if not Is_Public but -O0.

From-SVN: r46160
parent fb75e100
Showing with 11 additions and 4 deletions
gcc/ada/ChangeLog
2001-10-10 Richard Kenner <kenner@gnat.com>
* decl.c: (gnat_to_gnu_entity, case object): Also materialize
VAR_DECL for constant if not Is_Public but -O0.
2001-10-10 Richard Kenner <kenner@gnat.com>
* misc.c (struct lang_hooks): Add new initializer to match GCC change.
......
gcc/ada/decl.c
......@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
* $Revision: 1.3 $
* $Revision$
* *
* Copyright (C) 1992-2001, Free Software Foundation, Inc. *
* *
......@@ -1033,11 +1033,13 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition)
STACK_CHECK_MAX_VAR_SIZE))))
update_setjmp_buf (TREE_VALUE (gnu_block_stack));
/* If this is a public constant and we're not making a VAR_DECL for
it, make one just for export or debugger use. Likewise if
the address is taken or if the object or type is aliased. */
/* If this is a public constant or we're not optimizing and we're not
making a VAR_DECL for it, make one just for export or debugger
use. Likewise if the address is taken or if the object or type is
aliased. */
if (definition && TREE_CODE (gnu_decl) == CONST_DECL
&& (Is_Public (gnat_entity)
|| optimize == 0
|| Address_Taken (gnat_entity)
|| Is_Aliased (gnat_entity)
|| Is_Aliased (Etype (gnat_entity))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment