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/ghdldrv | |
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/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdllocal.adb | 6 | ||||
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 10 | ||||
-rw-r--r-- | src/ghdldrv/ghdlxml.adb | 2 |
3 files changed, 9 insertions, 9 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 1b34af41e..88c887418 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -1201,7 +1201,7 @@ package body Ghdllocal is File := Get_Design_File_Chain (Lib); while File /= Null_Iir loop Next_File := Get_Chain (File); - Fe := Load_Source_File (Get_Design_File_Directory (File), + Fe := Read_Source_File (Get_Design_File_Directory (File), Get_Design_File_Filename (File)); if Fe = No_Source_File_Entry then -- FIXME: should remove all the design file from the library. @@ -1327,7 +1327,7 @@ package body Ghdllocal is File := Get_Design_File_Chain (Libraries.Work_Library); while File /= Null_Iir loop Next_File := Get_Chain (File); - Fe := Load_Source_File (Get_Design_File_Directory (File), + Fe := Read_Source_File (Get_Design_File_Directory (File), Get_Design_File_Filename (File)); if Fe = No_Source_File_Entry then -- FIXME: should remove all the design file from @@ -1408,7 +1408,7 @@ package body Ghdllocal is Fe : Source_File_Entry; begin -- 2) file has been modified. - Fe := Load_Source_File (Get_Design_File_Directory (File), + Fe := Read_Source_File (Get_Design_File_Directory (File), Get_Design_File_Filename (File)); if not Is_Eq (Get_File_Checksum (Fe), Get_File_Checksum (File)) diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 9aac16824..97689082a 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -886,7 +886,7 @@ package body Ghdlprint is for I in Args'Range loop -- Load the file. Id := Get_Identifier (Args (I).all); - Fe := Files_Map.Load_Source_File (Local_Id, Id); + Fe := Files_Map.Read_Source_File (Local_Id, Id); if Fe = No_Source_File_Entry then Error ("cannot open file " & Args (I).all); raise Compile_Error; @@ -1080,7 +1080,7 @@ package body Ghdlprint is for I in Args'Range loop -- Load the file. Id := Get_Identifier (Args (I).all); - Fe := Files_Map.Load_Source_File (Local_Id, Id); + Fe := Files_Map.Read_Source_File (Local_Id, Id); if Fe = No_Source_File_Entry then Error ("cannot open file " & Args (I).all); raise Compile_Error; @@ -1206,7 +1206,7 @@ package body Ghdlprint is for I in Files'Range loop Id := Get_Identifier (Files (I).all); - Fe := Files_Map.Load_Source_File (Local_Id, Id); + Fe := Files_Map.Read_Source_File (Local_Id, Id); if Fe = No_Source_File_Entry then Error ("cannot open file " & Files (I).all); raise Compile_Error; @@ -1350,7 +1350,7 @@ package body Ghdlprint is -- Parse all files. for I in Files'Range loop Id := Get_Identifier (Files_Name (I).all); - File := Files_Map.Load_Source_File (Libraries.Local_Directory, Id); + File := Files_Map.Read_Source_File (Libraries.Local_Directory, Id); if File = No_Source_File_Entry then Error ("cannot open " & Image (Id)); return; @@ -1583,7 +1583,7 @@ package body Ghdlprint is -- Parse all files. for I in Files'Range loop Id := Get_Identifier (Files_Name (I).all); - File := Load_Source_File (Libraries.Local_Directory, Id); + File := Read_Source_File (Libraries.Local_Directory, Id); if File = No_Source_File_Entry then Error ("cannot open " & Image (Id)); return; diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 96356ddf2..de2e383ba 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -491,7 +491,7 @@ package body Ghdlxml is -- Parse all files. for I in Files'Range loop Id := Get_Identifier (Files_Name (I).all); - File := Load_Source_File (Libraries.Local_Directory, Id); + File := Read_Source_File (Libraries.Local_Directory, Id); if File = No_Source_File_Entry then Error ("cannot open " & Image (Id)); return; |