diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-12 18:40:25 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-13 18:50:56 +0100 |
commit | c07a252a7ee56b92d8fee29e943f56c95bba3e73 (patch) | |
tree | a65f681bd24d6138b911057cefd65204ce8848ae | |
parent | 923ee4b7def1e71e8fc7bf4e4a58b17c350651d1 (diff) | |
download | ghdl-c07a252a7ee56b92d8fee29e943f56c95bba3e73.tar.gz ghdl-c07a252a7ee56b92d8fee29e943f56c95bba3e73.tar.bz2 ghdl-c07a252a7ee56b92d8fee29e943f56c95bba3e73.zip |
libraries: use Get_Design_File_Source to get the file.
-rw-r--r-- | src/libraries.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index da48239f3..e6f091e0f 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1036,11 +1036,9 @@ package body Libraries is -- Set file time stamp. declare - File : Source_File_Entry; - Pos : Source_Ptr; + File : constant Source_File_Entry := + Get_Design_File_Source (Get_Design_File (Unit)); begin - Files_Map.Location_To_File_Pos (Get_Location (New_Library_Unit), - File, Pos); New_Lib_Checksum := Files_Map.Get_File_Checksum (File); File_Name := Files_Map.Get_File_Name (File); if GNAT.OS_Lib.Is_Absolute_Path (Image (File_Name)) then |