diff options
| author | Vincent Celier <celier@adacore.com> | 2005-03-29 18:18:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-29 18:18:31 +0200 |
| commit | c8b0c2607645dbb8a8b034da5dd06342a421c559 (patch) | |
| tree | 642362f643779e9970b78af3b833e257bde2dedc /gcc/ada/prj-part.adb | |
| parent | 4f62e49c97c56fb8ccf2de533e83931a814da45b (diff) | |
| download | gcc-c8b0c2607645dbb8a8b034da5dd06342a421c559.tar.gz | |
prj.ads, prj.adb: (Project_Data): Add new component Display_Name
2005-03-29 Vincent Celier <celier@adacore.com>
* prj.ads, prj.adb: (Project_Data): Add new component Display_Name
* prj-part.adb (Parse_Single_Project): Set the location of a project
on its defining identifier, rather than on the reserved word "project".
* prj-proc.adb (Expression): Adapt to the fact that default of external
references may be string expressions, not always literal strings.
(Recursive_Process): Set Display_Name equal to Name
when Location is No_Location, that is when there is no actual file.
Get the Display_Name of the project from the source, when it is not a
virtual project.
(Process): Use the Display_Name in error messages
* prj-strt.adb (External_Reference): Allow default to be string
expressions, not only literal strings.
From-SVN: r97180
Diffstat (limited to 'gcc/ada/prj-part.adb')
| -rw-r--r-- | gcc/ada/prj-part.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 54d2812d7a6..1b100843b42 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -1068,8 +1068,8 @@ package body Prj.Part is -- Mark location of PROJECT token if present if Token = Tok_Project then + Scan (In_Tree); -- scan past PROJECT Set_Location_Of (Project, In_Tree, Token_Ptr); - Scan (In_Tree); -- scan past project end if; -- Clear the Buffer |