From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 20 Aug 2008 13:28:58 +0000 (+0000)
Subject: * g-comlin.ads: Update comments. Add new paramter Add_Before.
X-Git-Tag: releases/gcc-4.4.0~3042
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f4857d6e2ad2a7e1f1f002ee551676d46b2eeac2;p=thirdparty%2Fgcc.git

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

From-SVN: r139292
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b868744fae0d..e23cb12db2ce 100644
--- 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 41cdfb8e36d4..12a9888cbc76 100644
--- 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