diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 11:32:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 11:32:44 +0100 |
| commit | 457c5df44bb8524134ce27184f206368aa5c8e21 (patch) | |
| tree | 4aab5110df376caf9a50bb92412077d06203f096 /gcc/ada/makeutl.adb | |
| parent | 1b6897ce5df7413135001c2a1383238394411e67 (diff) | |
| download | gcc-457c5df44bb8524134ce27184f206368aa5c8e21.zip gcc-457c5df44bb8524134ce27184f206368aa5c8e21.tar.gz gcc-457c5df44bb8524134ce27184f206368aa5c8e21.tar.bz2 | |
[multiple changes]
2012-01-30 Vincent Pucci <pucci@adacore.com>
* sem_dim.adb (Expand_Put_Call_With_Dimension_Symbol): Minor
code clean up.
* s-diflio.ads: Minor change.
2012-01-30 Javier Miranda <miranda@adacore.com>
* exp_ch9.adb (Build_Dispatching_Requeue): Add missing call
to Get_Entry_Index. Required to generate code which provides
the correct value of Entry_Index in the target entry.
2012-01-30 Nicolas Roche <roche@adacore.com>
* system-vxworks-ppc.ads: Add pragma Linker_Options -crtbe to
fix issue with zcx on VxWorks5.
2012-01-30 Pascal Obry <obry@adacore.com>
* prj.ads, prj.adb (For_Every_Project_Imported): Remove
In_Aggregate_Lib.
(For_Every_Project_Imported_Context): New generic routine with
a context parameter.
* prj-nmsc.adb: Revert to use For_Every_Project_Imported Avoid
distributed complexity.
* prj-env.adb, prj-conf.adb, makeutl.adb, gnatcmd.adb: Ditto.
From-SVN: r183702
Diffstat (limited to 'gcc/ada/makeutl.adb')
| -rw-r--r-- | gcc/ada/makeutl.adb | 34 |
1 files changed, 14 insertions, 20 deletions
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index df4bd2c..413fb6a 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2012, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -692,10 +692,9 @@ package body Makeutl is is procedure Recursive_Add - (Project : Project_Id; - Tree : Project_Tree_Ref; - In_Aggregate_Lib : Boolean; - Extended : in out Boolean); + (Project : Project_Id; + Tree : Project_Tree_Ref; + Extended : in out Boolean); -- Add all the source directories of a project to the path only if -- this project has not been visited. Calls itself recursively for -- projects being extended, and imported projects. @@ -732,13 +731,10 @@ package body Makeutl is ------------------- procedure Recursive_Add - (Project : Project_Id; - Tree : Project_Tree_Ref; - In_Aggregate_Lib : Boolean; - Extended : in out Boolean) + (Project : Project_Id; + Tree : Project_Tree_Ref; + Extended : in out Boolean) is - pragma Unreferenced (In_Aggregate_Lib); - Current : String_List_Id; Dir : String_Element; OK : Boolean := False; @@ -1234,10 +1230,9 @@ package body Makeutl is In_Tree : Project_Tree_Ref) return String_List is procedure Recursive_Add - (Proj : Project_Id; - In_Tree : Project_Tree_Ref; - In_Aggregate_Lib : Boolean; - Dummy : in out Boolean); + (Proj : Project_Id; + In_Tree : Project_Tree_Ref; + Dummy : in out Boolean); -- The recursive routine used to add linker options ------------------- @@ -1245,12 +1240,11 @@ package body Makeutl is ------------------- procedure Recursive_Add - (Proj : Project_Id; - In_Tree : Project_Tree_Ref; - In_Aggregate_Lib : Boolean; - Dummy : in out Boolean) + (Proj : Project_Id; + In_Tree : Project_Tree_Ref; + Dummy : in out Boolean) is - pragma Unreferenced (Dummy, In_Aggregate_Lib); + pragma Unreferenced (Dummy); Linker_Package : Package_Id; Options : Variable_Value; |