diff options
Diffstat (limited to 'src/libraries.adb')
-rw-r--r-- | src/libraries.adb | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 5e009d344..6b1570d5a 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -53,6 +53,20 @@ package body Libraries is Report_Msg (Msgid_Error, Library, No_Source_Coord, Msg); end Error_Lib_Msg; + procedure Create_Virtual_Locations + is + use Files_Map; + Library_Source_File : Source_File_Entry; + Command_Source_File : Source_File_Entry; + begin + Library_Source_File := Create_Virtual_Source_File + (Get_Identifier ("*libraries*")); + Command_Source_File := Create_Virtual_Source_File + (Get_Identifier ("*command line*")); + Command_Line_Location := File_To_Location (Command_Source_File); + Library_Location := File_To_Location (Library_Source_File); + end Create_Virtual_Locations; + -- Initialize paths table. -- Set the local path. procedure Init_Paths is @@ -63,6 +77,8 @@ package body Libraries is Local_Directory := Name_Nil; Work_Directory := Name_Nil; + + Create_Virtual_Locations; end Init_Paths; function Path_To_Id (Path : String) return Name_Id is @@ -613,20 +629,6 @@ package body Libraries is return True; end Load_Library; - procedure Create_Virtual_Locations - is - use Files_Map; - Library_Source_File : Source_File_Entry; - Command_Source_File : Source_File_Entry; - begin - Library_Source_File := Create_Virtual_Source_File - (Get_Identifier ("*libraries*")); - Command_Source_File := Create_Virtual_Source_File - (Get_Identifier ("*command line*")); - Command_Line_Location := File_To_Location (Command_Source_File); - Library_Location := File_To_Location (Library_Source_File); - end Create_Virtual_Locations; - -- Note: the scanner shouldn't be in use, since this procedure uses it. procedure Load_Std_Library (Build_Standard : Boolean := True) is @@ -639,7 +641,6 @@ package body Libraries is end if; Flags.Create_Flag_String; - Create_Virtual_Locations; Vhdl.Std_Package.Create_First_Nodes; |