aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/exp_util.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2004-02-20 12:55:27 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2004-02-20 12:55:27 +0100
commit6e059adb240df3f9918401dbacca61c283e618ed (patch)
tree090dd01dc14b79f968d8f244e3b4dc22b2c55e6b /gcc/ada/exp_util.adb
parentd80d3d962235927d1c27c624852f54f80db7bccf (diff)
downloadgcc-6e059adb240df3f9918401dbacca61c283e618ed.zip
gcc-6e059adb240df3f9918401dbacca61c283e618ed.tar.gz
gcc-6e059adb240df3f9918401dbacca61c283e618ed.tar.bz2
[multiple changes]
2004-02-20 Robert Dewar <dewar@gnat.com> * bld.adb, exp_util.adb, gprcmd.adb: Minor reformatting 2004-02-20 Ed Schonberg <schonberg@gnat.com> * freeze.adb (Freeze_Record_Type): Generalize mechanism that generates itype references for the constrained designated type of a component whose base type is already frozen. 2004-02-20 Arnaud Charlet <charlet@act-europe.fr> * init.c (__gnat_error_handler [tru64]): Rewrite previous change to avoid GCC warnings. 2004-02-20 Sergey Rybin <rybin@act-europe.fr> * sem_ch12.adb (Analyze_Formal_Package): Create a new defining identifier for a phantom package that rewrites the formal package declaration with a box. The Add semantic decorations for the defining identifier from the original node (that represents the formal package). From-SVN: r78164
Diffstat (limited to 'gcc/ada/exp_util.adb')
-rw-r--r--gcc/ada/exp_util.adb3
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index d5a7a41..1abb7a2 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -3353,8 +3353,7 @@ package body Exp_Util is
when N_Character_Literal |
N_Integer_Literal |
N_Real_Literal |
- N_String_Literal
- =>
+ N_String_Literal =>
return True;
-- We consider that anything else has side effects. This is a bit