diff options
Diffstat (limited to 'gcc/ada/mlib-utl.adb')
| -rw-r--r-- | gcc/ada/mlib-utl.adb | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index f61386af3cc..4d21c2fa8ea 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -36,17 +36,18 @@ with GNAT; use GNAT; package body MLib.Utl is - Initialized : Boolean := False; + Initialized : Boolean := False; - Gcc_Name : constant String := "gcc"; - Gcc_Exec : OS_Lib.String_Access; + Gcc_Name : constant String := "gcc"; + Gcc_Exec : OS_Lib.String_Access; - Ar_Name : OS_Lib.String_Access; - Ar_Exec : OS_Lib.String_Access; - Ar_Options : OS_Lib.String_List_Access; + Ar_Name : OS_Lib.String_Access; + Ar_Exec : OS_Lib.String_Access; + Ar_Options : OS_Lib.String_List_Access; - Ranlib_Name : OS_Lib.String_Access; - Ranlib_Exec : OS_Lib.String_Access := null; + Ranlib_Name : OS_Lib.String_Access; + Ranlib_Exec : OS_Lib.String_Access := null; + Ranlib_Options : OS_Lib.String_List_Access := null; procedure Initialize; -- Look for the tools in the path and record the full path for each one @@ -116,7 +117,7 @@ package body MLib.Utl is OS_Lib.Spawn (Ranlib_Exec.all, - (1 => Arguments (Ar_Options'Length + 1)), + Ranlib_Options.all & (Arguments (Ar_Options'Length + 1)), Success); if not Success then @@ -284,6 +285,8 @@ package body MLib.Utl is Write_Line (Ranlib_Exec.all); end if; end if; + + Ranlib_Options := Archive_Indexer_Options; end if; end Initialize; |