diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-05 20:41:43 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-05 20:41:43 +0200 |
commit | f3927d7bcc1540f8ea194b04b302260b03112de6 (patch) | |
tree | 61e9eda4d786d339e37bb8a0d04d714167cfe50f /src/files_map.adb | |
parent | dad47583a6781fcfb3fdba82c36892331fc4bffd (diff) | |
download | ghdl-f3927d7bcc1540f8ea194b04b302260b03112de6.tar.gz ghdl-f3927d7bcc1540f8ea194b04b302260b03112de6.tar.bz2 ghdl-f3927d7bcc1540f8ea194b04b302260b03112de6.zip |
files_map: rename Load_Source_File to Read_Source_File.
Diffstat (limited to 'src/files_map.adb')
-rw-r--r-- | src/files_map.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/files_map.adb b/src/files_map.adb index 198c272d5..7d7676c81 100644 --- a/src/files_map.adb +++ b/src/files_map.adb @@ -791,7 +791,7 @@ package body Files_Map is -- Return an entry for a filename. -- Load the filename if necessary. - function Load_Source_File (Directory : Name_Id; Name: Name_Id) + function Read_Source_File (Directory : Name_Id; Name: Name_Id) return Source_File_Entry is use GNAT.OS_Lib; @@ -839,7 +839,7 @@ package body Files_Map is Buffer (Source_Ptr_Org + Length + 1) := EOT; Close (Fd); - -- Load_Source_File call must follow its Create_Source_File. + -- Read_Source_File call must follow its Create_Source_File. pragma Assert (Source_Files.Table (Res).First_Location = Next_Location); -- Compute the SHA1. @@ -871,7 +871,7 @@ package body Files_Map is Source_Files.Table (Res).File_Length := Integer (Length); return Res; - end Load_Source_File; + end Read_Source_File; procedure Free_Source_File (File : Source_File_Entry) is |