diff options
| author | pinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-09 15:50:56 +0000 |
|---|---|---|
| committer | pinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-09 15:50:56 +0000 |
| commit | 4bbdfe646161254fe499589a72cdfbc52e86ce6b (patch) | |
| tree | f7cee7fb5d184a94be21a8cb15413028d9487dd5 | |
| parent | 4dd41a12b4f57f7b1c60d264a89b190ba169d8fa (diff) | |
| download | ppe42-gcc-4bbdfe646161254fe499589a72cdfbc52e86ce6b.tar.gz ppe42-gcc-4bbdfe646161254fe499589a72cdfbc52e86ce6b.zip | |
2005-07-09 Andrew Pinski <pinskia@physics.uc.edu>
* utils.c (create_var_decl): Only set DECL_COMMON on
VAR_DECLs. Only set SET_DECL_ASSEMBLER_NAME on
VAR_OR_FUNCTION_DECL_P.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101831 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index de7f06cf4d2..6eda59ae306 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2005-07-09 Andrew Pinski <pinskia@physics.uc.edu> + + * utils.c (create_var_decl): Only set DECL_COMMON on + VAR_DECLs. Only set SET_DECL_ASSEMBLER_NAME on + VAR_OR_FUNCTION_DECL_P. + 2005-07-08 Daniel Berlin <dberlin@dberlin.org> * utils.c (create_param_decl): DECL_ARG_TYPE_AS_WRITTEN is diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index ab86a490fb8..edd17067ab4 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1282,7 +1282,8 @@ create_var_decl (tree var_name, tree asm_name, tree type, tree var_init, support global BSS sections, uninitialized global variables would go in DATA instead, thus increasing the size of the executable. */ #if !defined(ASM_OUTPUT_BSS) && !defined(ASM_OUTPUT_ALIGNED_BSS) - DECL_COMMON (var_decl) = !flag_no_common; + if (TREE_CODE (var_decl) == VAR_DECL) + DECL_COMMON (var_decl) = !flag_no_common; #endif DECL_INITIAL (var_decl) = var_init; TREE_READONLY (var_decl) = const_flag; @@ -1299,7 +1300,7 @@ create_var_decl (tree var_name, tree asm_name, tree type, tree var_init, TREE_STATIC (var_decl) = public_flag || (global_bindings_p () ? !extern_flag : static_flag); - if (asm_name) + if (asm_name && VAR_OR_FUNCTION_DECL_P (var_decl)) SET_DECL_ASSEMBLER_NAME (var_decl, asm_name); process_attributes (var_decl, attr_list); |
