diff options
Diffstat (limited to 'gcc/ada/mlib-utl.adb')
| -rw-r--r-- | gcc/ada/mlib-utl.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index 5b4f1f0fe46..36b465d27cb 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.3 $ +-- $Revision$ -- -- --- Copyright (C) 2001, Ada Core Technologies, Inc. -- +-- Copyright (C) 2002, Ada Core Technologies, 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- -- @@ -140,8 +140,7 @@ package body MLib.Utl is procedure Gcc (Output_File : String; Objects : Argument_List; - Options : Argument_List; - Base_File : String := "") + Options : Argument_List) is Arguments : OS_Lib.Argument_List (1 .. 7 + Objects'Length + Options'Length); @@ -163,6 +162,7 @@ package body MLib.Utl is A := A + 1; Arguments (A) := Out_Opt; + A := A + 1; Arguments (A) := Out_V; |