* g-comlin.ads: Update comments. Add new paramter Add_Before.

From-SVN: r139292

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b868744fae0df68939e0fba1940e11e815da8cbf..e23cb12db2ce7769297b9a99d5b30a7a50e77606 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-20  Arnaud Charlet  <charlet@adacore.com>
+
+       * g-comlin.ads: Update comments.
+
 2008-08-20  Ed Schonberg  <schonberg@adacore.com>
 
        * sem_ch8.adb (Analyze_Subprogram_Renaming): Inherit Is_Imported flag.

diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads
index 41cdfb8e36d4a5f32b0ebf2fd825d21435bea9ba..12a9888cbc763e8cbb65006c8ec4750af5550e0e 100644 (file)
--- a/gcc/ada/g-comlin.ads
+++ b/gcc/ada/g-comlin.ads
@@ -576,11 +576,12 @@ package GNAT.Command_Line is
    --  This function can be used to reset Cmd by passing an empty string.
 
    procedure Add_Switch
-     (Cmd       : in out Command_Line;
-      Switch    : String;
-      Parameter : String    := "";
-      Separator : Character := ' ';
-      Section   : String    := "");
+     (Cmd        : in out Command_Line;
+      Switch     : String;
+      Parameter  : String    := "";
+      Separator  : Character := ' ';
+      Section    : String    := "";
+      Add_Before : Boolean   := False);
    --  Add a new switch to the command line, and combine/group it with existing
    --  switches if possible. Nothing is done if the switch already exists with
    --  the same parameter.
@@ -608,14 +609,18 @@ package GNAT.Command_Line is
    --  the switch is correctly placed in the command line, and the section
    --  added if not already present. For example, to add the -g switch into the
    --  -cargs section, you need to call (Cmd, "-g", Section => "-cargs")
+   --
+   --  Add_Before allows insertion of the switch at the begining of the command
+   --  line.
 
    procedure Add_Switch
-     (Cmd       : in out Command_Line;
-      Switch    : String;
-      Parameter : String    := "";
-      Separator : Character := ' ';
-      Section   : String    := "";
-      Success   : out Boolean);
+     (Cmd        : in out Command_Line;
+      Switch     : String;
+      Parameter  : String    := "";
+      Separator  : Character := ' ';
+      Section    : String    := "";
+      Add_Before : Boolean   := False;
+      Success    : out Boolean);
    --  Same as above, returning the status of
    --  the operation