diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 15:13:04 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 15:13:04 +0200 |
commit | f1c80977503ef50a812c3545c9b902fd65c086eb (patch) | |
tree | 05e7930e1c95e146a56c96c5b0caef56ec0f883c /gcc/ada/gnatbind.adb | |
parent | ced8450b58d295f31cf70f31812008f8c5f497bc (diff) | |
download | gcc-f1c80977503ef50a812c3545c9b902fd65c086eb.zip gcc-f1c80977503ef50a812c3545c9b902fd65c086eb.tar.gz gcc-f1c80977503ef50a812c3545c9b902fd65c086eb.tar.bz2 |
[multiple changes]
2013-04-24 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Process_Convention): Move Stdcall tests to
Set_Convention_From_Pragma so that they are applied to each
entry of a homonym set.
(Process_Convention): Don't try to set convention if already set.
2013-04-24 Robert Dewar <dewar@adacore.com>
* gnatbind.adb: Minor reformatting.
2013-04-24 Vincent Celier <celier@adacore.com>
* clean.adb (Gnatclean): Add the default project search
directories in the project search path after scanning the
switches on the command line.
(Initialize): Do not put the default project search directories in the
project search path.
* gnatcmd.adb (GNATcmd): Add the default project search
directories in the project search path after scanning the switches
on the command line.
* make.adb (Initialize): Add the default project search
directories in the project search path after scanning the switches
on the command line.
2013-04-24 Yannick Moy <moy@adacore.com>
* restrict.ads (Restriction_Warnings): Initialize with all False value.
2013-04-24 Robert Dewar <dewar@adacore.com>
* checks.ads, checks.adb (Predicate_Checks_Suppressed): New function.
* exp_util.ads, exp_util.adb (Make_Predicate_Check): Check setting of
Predicate_Check.
* snames.ads-tmpl (Name_Predicate_Check): New check name.
* types.ads (Predicate_Check): New definition.
* gnat_rm.texi: Add documentation for Predicate_Check.
From-SVN: r198226
Diffstat (limited to 'gcc/ada/gnatbind.adb')
-rw-r--r-- | gcc/ada/gnatbind.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index 30f6141..52591c4 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -494,13 +494,14 @@ procedure Gnatbind is procedure Generic_Scan_Bind_Args is Next_Arg : Positive := 1; + begin - -- Use low level argument routines to avoid dragging in the secondary - -- stack + -- Use low level argument routines to avoid dragging in secondary stack while Next_Arg < Arg_Count loop declare Next_Argv : String (1 .. Len_Arg (Next_Arg)); + begin Fill_Arg (Next_Argv'Address, Next_Arg); @@ -531,6 +532,10 @@ procedure Gnatbind is end loop; end Generic_Scan_Bind_Args; + --------------- + -- Write_Arg -- + --------------- + procedure Write_Arg (S : String) is begin Write_Str (" " & S); @@ -545,7 +550,6 @@ procedure Gnatbind is -- Start of processing for Gnatbind begin - -- Set default for Shared_Libgnat option declare |