diff options
| author | Laurent Guerby <guerby@acm.org> | 2001-10-27 14:26:32 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-27 16:26:32 +0200 |
| commit | 97f6baa0ca5eb121925a801f211aac88e4b3c73f (patch) | |
| tree | 7be6f7bfa68cb4ab8ba685996eeee2c26893a2dc /gcc | |
| parent | 46b58b8c6922c383537f0afd51c4dcc9dccf70fc (diff) | |
| download | gcc-97f6baa0ca5eb121925a801f211aac88e4b3c73f.zip gcc-97f6baa0ca5eb121925a801f211aac88e4b3c73f.tar.gz gcc-97f6baa0ca5eb121925a801f211aac88e4b3c73f.tar.bz2 | |
trans.c (gigi): Fix non determinism leading to bootstrap comparison failures for debugging...
* trans.c (gigi): Fix non determinism leading to bootstrap
comparison failures for debugging information.
From-SVN: r46567
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 13 |
2 files changed, 14 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 19f98db..5da42ca 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-10-27 Laurent Guerby <guerby@acm.org> + + * trans.c (gigi): Fix non determinism leading to bootstrap + comparison failures for debugging information. + 2001-10-26 Florian Weimer <fw@deneb.enyo.de> * gnat_rm.texi: Use @./@: where appropriate. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 61f90f9..daa2469 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -155,6 +155,9 @@ gigi (gnat_root, max_gnat_node, number_name, Int gigi_operating_mode; { + tree gnu_standard_long_long_float; + tree gnu_standard_exception_type; + max_gnat_nodes = max_gnat_node; number_names = number_name; Nodes_Ptr = nodes_ptr - First_Node_Id; @@ -199,10 +202,12 @@ gigi (gnat_root, max_gnat_node, number_name, dconstp5 = REAL_VALUE_ATOF ("0.5", DFmode); dconstmp5 = REAL_VALUE_ATOF ("-0.5", DFmode); - init_gigi_decls (gnat_to_gnu_entity (Base_Type (standard_long_long_float), - NULL_TREE, 0), - gnat_to_gnu_entity (Base_Type (standard_exception_type), - NULL_TREE, 0)); + gnu_standard_long_long_float + = gnat_to_gnu_entity (Base_Type (standard_long_long_float), NULL_TREE, 0); + gnu_standard_exception_type + = gnat_to_gnu_entity (Base_Type (standard_exception_type), NULL_TREE, 0); + + init_gigi_decls (gnu_standard_long_long_float, gnu_standard_exception_type); /* Emit global symbols containing context list info for the SGI Workshop debugger */ |