diff options
Diffstat (limited to 'gcc/ada/lib-load.adb')
-rw-r--r-- | gcc/ada/lib-load.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index f439926b4cb..d928b79a3a9 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, 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- -- @@ -224,7 +224,8 @@ package body Lib.Load is Source_Index => No_Source_File, Unit_File_Name => Get_File_Name (Spec_Name, Subunit => False), Unit_Name => Spec_Name, - Version => 0); + Version => 0, + OA_Setting => 'O'); Set_Comes_From_Source_Default (Save_CS); Set_Error_Posted (Cunit_Entity); @@ -327,7 +328,8 @@ package body Lib.Load is Source_Index => Main_Source_File, Unit_File_Name => Fname, Unit_Name => No_Unit_Name, - Version => Version); + Version => Version, + OA_Setting => 'O'); end if; end Load_Main_Source; @@ -647,7 +649,8 @@ package body Lib.Load is Source_Index => Src_Ind, Unit_File_Name => Fname, Unit_Name => Uname_Actual, - Version => Source_Checksum (Src_Ind)); + Version => Source_Checksum (Src_Ind), + OA_Setting => 'O'); -- Parse the new unit |