diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-09-17 10:54:01 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-09-17 12:54:01 +0200 |
| commit | 3fc5d116bc25e32ce6f8d3a11483c10dc0522d87 (patch) | |
| tree | 34c068ddfa97992b3819069c9d88729d1be9bebf /gcc/ada/prj-ext.adb | |
| parent | 1c6b973ab5d66121ae4723209b7cbbc47d4d6ad8 (diff) | |
| download | gcc-3fc5d116bc25e32ce6f8d3a11483c10dc0522d87.zip gcc-3fc5d116bc25e32ce6f8d3a11483c10dc0522d87.tar.gz gcc-3fc5d116bc25e32ce6f8d3a11483c10dc0522d87.tar.bz2 | |
exp_ch9.adb, [...]: Minor reformatting
2009-09-17 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, exp_ch5.adb, exp_ch4.adb, prj-conf.adb, prj-env.ads,
prj-ext.adb: Minor reformatting
From-SVN: r151796
Diffstat (limited to 'gcc/ada/prj-ext.adb')
| -rw-r--r-- | gcc/ada/prj-ext.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb index 2b41c67..9c9707c 100644 --- a/gcc/ada/prj-ext.adb +++ b/gcc/ada/prj-ext.adb @@ -36,7 +36,7 @@ package body Prj.Ext is -- Indicator in the project path to indicate that the default search -- directories should not be added to the path - Uninitialized_Prefix : constant String := '#' & Path_Separator; + Uninitialized_Prefix : constant String := '#' & Path_Separator; -- Prefix to indicate that the project path has not been initilized yet. -- Must be two characters long @@ -77,7 +77,6 @@ package body Prj.Ext is begin if Tree.Project_Path = null then Tree.Project_Path := new String'(Uninitialized_Prefix & Path); - else Tmp := Tree.Project_Path; Tree.Project_Path := new String'(Tmp.all & Path_Separator & Path); @@ -85,12 +84,14 @@ package body Prj.Ext is end if; end Add_Search_Project_Directory; + ----------- -- Check -- ----------- function Check (Tree : Prj.Tree.Project_Node_Tree_Ref; - Declaration : String) return Boolean is + Declaration : String) return Boolean + is begin for Equal_Pos in Declaration'Range loop if Declaration (Equal_Pos) = '=' then |