From 6c7ecaa1e1489395e1df86a97d19edff22e1871b Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 27 Jan 2023 08:16:42 +0100 Subject: src/grt: extract grt-files_lib from grt-files --- src/vhdl/translate/trans_foreign.adb | 4 ++-- src/vhdl/translate/trans_link.adb | 34 +++++++++++++++++----------------- 2 files changed, 19 insertions(+), 19 deletions(-) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans_foreign.adb b/src/vhdl/translate/trans_foreign.adb index 2fe6ea72f..433fe5c75 100644 --- a/src/vhdl/translate/trans_foreign.adb +++ b/src/vhdl/translate/trans_foreign.adb @@ -9,7 +9,7 @@ with Vhdl.Errors; use Vhdl.Errors; with Grt.Types; use Grt.Types; with Grt.Dynload; use Grt.Dynload; with Grt.Lib; -with Grt.Files; +with Grt.Files_Lib; package body Trans_Foreign is -- Elaboration mode. @@ -99,7 +99,7 @@ package body Trans_Foreign is Name_Table.Image (Get_Identifier (Decl)); begin if Name = "untruncated_text_read" then - Res := Grt.Files.Ghdl_Untruncated_Text_Read'Address; + Res := Grt.Files_Lib.Ghdl_Untruncated_Text_Read'Address; elsif Name = "textio_read_real" then Res := Grt.Lib.Textio_Read_Real'Address; elsif Name = "textio_write_real" then diff --git a/src/vhdl/translate/trans_link.adb b/src/vhdl/translate/trans_link.adb index 0ee71e8e4..42f02c2da 100644 --- a/src/vhdl/translate/trans_link.adb +++ b/src/vhdl/translate/trans_link.adb @@ -28,7 +28,7 @@ with Grt.Main; with Grt.Lib; with Grt.Processes; with Grt.Rtis; -with Grt.Files; +with Grt.Files_Lib; with Grt.Signals; with Grt.Vhdl_Types; use Grt.Vhdl_Types; with Grt.Images; @@ -347,39 +347,39 @@ package body Trans_Link is Grt.Processes.Ghdl_Protected_Fini'Address); Def (Trans_Decls.Ghdl_Text_File_Elaborate, - Grt.Files.Ghdl_Text_File_Elaborate'Address); + Grt.Files_Lib.Ghdl_Text_File_Elaborate'Address); Def (Trans_Decls.Ghdl_Text_File_Finalize, - Grt.Files.Ghdl_Text_File_Finalize'Address); + Grt.Files_Lib.Ghdl_Text_File_Finalize'Address); Def (Trans_Decls.Ghdl_Text_File_Open, - Grt.Files.Ghdl_Text_File_Open'Address); + Grt.Files_Lib.Ghdl_Text_File_Open'Address); Def (Trans_Decls.Ghdl_Text_File_Open_Status, - Grt.Files.Ghdl_Text_File_Open_Status'Address); + Grt.Files_Lib.Ghdl_Text_File_Open_Status'Address); Def (Trans_Decls.Ghdl_Text_Write, - Grt.Files.Ghdl_Text_Write'Address); + Grt.Files_Lib.Ghdl_Text_Write'Address); Def (Trans_Decls.Ghdl_Text_Read_Length, - Grt.Files.Ghdl_Text_Read_Length'Address); + Grt.Files_Lib.Ghdl_Text_Read_Length'Address); Def (Trans_Decls.Ghdl_Text_File_Close, - Grt.Files.Ghdl_Text_File_Close'Address); + Grt.Files_Lib.Ghdl_Text_File_Close'Address); Def (Trans_Decls.Ghdl_File_Elaborate, - Grt.Files.Ghdl_File_Elaborate'Address); + Grt.Files_Lib.Ghdl_File_Elaborate'Address); Def (Trans_Decls.Ghdl_File_Finalize, - Grt.Files.Ghdl_File_Finalize'Address); + Grt.Files_Lib.Ghdl_File_Finalize'Address); Def (Trans_Decls.Ghdl_File_Open, - Grt.Files.Ghdl_File_Open'Address); + Grt.Files_Lib.Ghdl_File_Open'Address); Def (Trans_Decls.Ghdl_File_Open_Status, - Grt.Files.Ghdl_File_Open_Status'Address); + Grt.Files_Lib.Ghdl_File_Open_Status'Address); Def (Trans_Decls.Ghdl_File_Close, - Grt.Files.Ghdl_File_Close'Address); + Grt.Files_Lib.Ghdl_File_Close'Address); Def (Trans_Decls.Ghdl_File_Flush, - Grt.Files.Ghdl_File_Flush'Address); + Grt.Files_Lib.Ghdl_File_Flush'Address); Def (Trans_Decls.Ghdl_Write_Scalar, - Grt.Files.Ghdl_Write_Scalar'Address); + Grt.Files_Lib.Ghdl_Write_Scalar'Address); Def (Trans_Decls.Ghdl_Read_Scalar, - Grt.Files.Ghdl_Read_Scalar'Address); + Grt.Files_Lib.Ghdl_Read_Scalar'Address); Def (Trans_Decls.Ghdl_File_Endfile, - Grt.Files.Ghdl_File_Endfile'Address); + Grt.Files_Lib.Ghdl_File_Endfile'Address); Def (Trans_Decls.Ghdl_Image_B1, Grt.Images.Ghdl_Image_B1'Address); -- cgit v1.2.3