diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-02-04 12:06:19 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-02-04 12:06:19 +0100 |
| commit | 06effe875c0dad1b8f27e868058d8401e74a4363 (patch) | |
| tree | eb723f684eca66cfc93f09df6fa537a3371b2f14 /gcc/ada/bld.adb | |
| parent | c23796791cc43119331defae7a554fc8358ca6e7 (diff) | |
| download | gcc-06effe875c0dad1b8f27e868058d8401e74a4363.zip gcc-06effe875c0dad1b8f27e868058d8401e74a4363.tar.gz gcc-06effe875c0dad1b8f27e868058d8401e74a4363.tar.bz2 | |
[multiple changes]
2004-02-04 Robert Dewar <dewar@gnat.com>
* 5gtasinf.adb, 5gtasinf.ads, 5gtaprop.adb, ali.adb,
ali.ads, gprcmd.adb: Minor reformatting
* bindgen.adb: Output restrictions string for new style restrictions
handling
* impunit.adb: Add s-rident.ads (System.Rident) and
s-restri (System.Restrictions)
* lib-writ.adb: Fix bug in writing restrictions string (last few
entries wrong)
* s-restri.ads, s-restri.adb: Change name Restrictions to
Run_Time_Restrictions to avoid conflict with package name.
Add circuit to read and acquire run time restrictions.
2004-02-04 Jose Ruiz <ruiz@act-europe.fr>
* restrict.ads, restrict.adb: Use the new restriction
No_Task_Attributes_Package instead of the old No_Task_Attributes.
* sem_prag.adb: No_Task_Attributes is a synonym of
No_Task_Attributes_Package.
* snames.ads, snames.adb: New entry for proper handling of
No_Task_Attributes.
* s-rident.ads: Adding restriction No_Task_Attributes_Package
(AI-00249) that supersedes the GNAT specific restriction
No_Task_Attributes.
2004-02-04 Ed Schonberg <schonberg@gnat.com>
* sem_prag.adb:
(Analyze_Pragma, case Warnings): In an inlined body, as in an instance
body, an identifier may be wrapped in an unchecked conversion.
2004-02-04 Vincent Celier <celier@gnat.com>
* lib-writ.ads: Comment update for the W lines
* bld.adb: (Expression): An empty string list is static
* fname-uf.adb: Minor comment update
* fname-uf.ads: (Get_File_Name): Document new parameter May_Fail
* gnatbind.adb: Initialize Cumulative_Restrictions with the
restrictions on the target.
From-SVN: r77233
Diffstat (limited to 'gcc/ada/bld.adb')
| -rw-r--r-- | gcc/ada/bld.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/bld.adb b/gcc/ada/bld.adb index c690f63..d31ed69 100644 --- a/gcc/ada/bld.adb +++ b/gcc/ada/bld.adb @@ -525,11 +525,16 @@ package body Bld is First_Expression_In_List (Current_Term); begin - if String_Node /= Empty_Node then + if String_Node = Empty_Node then -- If String_Node is nil, it is an empty list, - -- there is nothing to do + -- set Expression_Kind if it is still Undecided + if Expression_Kind = Undecided then + Expression_Kind := Static_String; + end if; + + else Expression (Project => Project, First_Term => Tree.First_Term (String_Node), |