diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 12:55:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 12:55:01 +0200 |
| commit | 3e5daac435e6f3da145310c2140745df5a04fd45 (patch) | |
| tree | 6d7b227be61304c94ecb1dc6ac2d943020e005c4 /gcc/ada/prj.ads | |
| parent | 232b0794a95f6dbb4c05abcd117b6973d300b490 (diff) | |
| download | gcc-3e5daac435e6f3da145310c2140745df5a04fd45.zip gcc-3e5daac435e6f3da145310c2140745df5a04fd45.tar.gz gcc-3e5daac435e6f3da145310c2140745df5a04fd45.tar.bz2 | |
[multiple changes]
2010-10-26 Vincent Celier <celier@adacore.com>
* prj.ads (Source_Data): New Boolean component Initialized, defaulted
to False, set to True when Source_Data is completely initialized.
* prj-env.adb: Minor comment fix.
2010-10-26 Robert Dewar <dewar@adacore.com>
* sem_case.adb, sem_ch6.adb, sem_util.adb: Minor reformatting.
From-SVN: r165943
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index ccf0853..f2d1f00 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -663,6 +663,9 @@ package Prj is -- Structure to define source data type Source_Data is record + Initialized : Boolean := False; + -- Set to True when Source_Data is completely initialized + Project : Project_Id := No_Project; -- Project of the source @@ -784,7 +787,8 @@ package Prj is end record; No_Source_Data : constant Source_Data := - (Project => No_Project, + (Initialized => False, + Project => No_Project, Location => No_Location, Source_Dir_Rank => 0, Language => No_Language_Index, |