diff options
Diffstat (limited to 'src/libraries.adb')
-rw-r--r-- | src/libraries.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index d4e809b63..c1d06c7eb 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1642,8 +1642,7 @@ package body Libraries is return Libraries_Chain; end Get_Libraries_Chain; - function Decode_Work_Option - (Opt : String; Immediate : Boolean; Load_Lib : Boolean) return Boolean + function Decode_Work_Option (Opt : String) return Boolean is pragma Assert (Opt'First = 1); Name : String (1 .. Opt'Last - 8 + 1); @@ -1655,9 +1654,6 @@ package body Libraries is return False; end if; Libraries.Work_Library_Name := Get_Identifier (Name); - if Immediate then - Libraries.Load_Work_Library (not Load_Lib); - end if; return True; end Decode_Work_Option; end Libraries; |