diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-09-17 10:54:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-09-17 10:54:01 +0000 |
| commit | be5e645013ab37b25df5dd91b961e5f1f8c7cdfc (patch) | |
| tree | 34c068ddfa97992b3819069c9d88729d1be9bebf /gcc/ada/prj-ext.adb | |
| parent | b10d9cb373c1e925fbb37257fda46fee8f092d6a (diff) | |
| download | gcc-be5e645013ab37b25df5dd91b961e5f1f8c7cdfc.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151796 138bc75d-0d04-0410-961f-82ee72b054a4
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 2b41c67702d..9c9707c1cfa 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 |