diff options
Diffstat (limited to 'gcc/ada/mlib-utl.adb')
-rw-r--r-- | gcc/ada/mlib-utl.adb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index 91c6b9c3e03..ab0689b9459 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005, AdaCore -- +-- Copyright (C) 2002-2006, AdaCore -- -- -- -- 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- -- @@ -60,10 +60,8 @@ package body MLib.Utl is Full_Output_File : constant String := Ext_To (Output_File, Archive_Ext); - Arguments : OS_Lib.Argument_List_Access; - - Success : Boolean; - + Arguments : OS_Lib.Argument_List_Access; + Success : Boolean; Line_Length : Natural := 0; begin @@ -128,8 +126,8 @@ package body MLib.Utl is -- Delete_File -- ----------------- - procedure Delete_File (Filename : in String) is - File : constant String := Filename & ASCII.Nul; + procedure Delete_File (Filename : String) is + File : constant String := Filename & ASCII.Nul; Success : Boolean; begin @@ -174,7 +172,8 @@ package body MLib.Utl is Lib_Opt : constant OS_Lib.String_Access := new String'(Dynamic_Option); - Driver : String_Access; + Driver : String_Access; + begin Utl.Initialize; |