diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2007-11-19 17:49:11 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2007-11-19 17:49:11 +0000 |
| commit | 7634135aecceeb3ecaec1873e396d0802056566d (patch) | |
| tree | 7bf8a6ef5dd30d212402f8afc3d2286823ccd8b4 /gcc/ada/utils.c | |
| parent | 921d313fd5472454b07f684d59634b738216ed49 (diff) | |
| download | gcc-7634135aecceeb3ecaec1873e396d0802056566d.zip gcc-7634135aecceeb3ecaec1873e396d0802056566d.tar.gz gcc-7634135aecceeb3ecaec1873e396d0802056566d.tar.bz2 | |
re PR ada/34098 (xgcc: Internal error: Segmentation fault (program gnat1))
PR ada/34098
ada/
* misc.c (gnat_adjust_rli): Delete.
(gnat_init): Do not initialize the translation code here.
Do not call set_lang_adjust_rli.
* trans.c (init_code_table): Make static.
(gnat_init_stmt_group): Delete.
(gigi): Initialize the translation code entirely here.
Emit debug info for the common types here instead of...
* utils.c (gnat_init_decl_processing): ...here.
* gigi.h (init_code_table): Delete.
(gnat_init_stmt_group): Likewise.
* stor-layout.c (lang_adjust_rli): Delete.
(set_lang_adjust_rli): Likewise.
(layout_type): Do not call lang_adjust_rli hook.
* tree.h (set_lang_adjust_rli): Delete.
From-SVN: r130294
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 77be01d..9fed4a9 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -495,16 +495,6 @@ gnat_init_decl_processing (void) set_sizetype (size_type_node); build_common_tree_nodes_2 (0); - /* Give names and make TYPE_DECLs for common types. */ - create_type_decl (get_identifier (SIZE_TYPE), sizetype, - NULL, false, true, Empty); - create_type_decl (get_identifier ("integer"), integer_type_node, - NULL, false, true, Empty); - create_type_decl (get_identifier ("unsigned char"), char_type_node, - NULL, false, true, Empty); - create_type_decl (get_identifier ("long integer"), long_integer_type_node, - NULL, false, true, Empty); - ptr_void_type_node = build_pointer_type (void_type_node); gnat_install_builtins (); |