diff options
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/elab-vhdl_files.adb | 5 | ||||
-rw-r--r-- | src/synth/elab-vhdl_values.ads | 4 |
2 files changed, 5 insertions, 4 deletions
diff --git a/src/synth/elab-vhdl_files.adb b/src/synth/elab-vhdl_files.adb index aec343170..a1fb471f1 100644 --- a/src/synth/elab-vhdl_files.adb +++ b/src/synth/elab-vhdl_files.adb @@ -25,6 +25,7 @@ with Vhdl.Utils; use Vhdl.Utils; with Grt.Types; use Grt.Types; with Grt.Vhdl_Types; use Grt.Vhdl_Types; +with Grt.Files; with Grt.Files_Operations; use Grt.Files_Operations; with Grt.Stdio; @@ -224,9 +225,9 @@ package body Elab.Vhdl_Files is else case Get_Mode (Decl) is when Iir_In_Mode => - File_Mode := Read_Mode; + File_Mode := Grt.Files.Read_Mode; when Iir_Out_Mode => - File_Mode := Write_Mode; + File_Mode := Grt.Files.Write_Mode; when others => raise Internal_Error; end case; diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index 0e72fd128..adf11ae8e 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -21,7 +21,7 @@ with Ada.Unchecked_Deallocation; with Types; use Types; with Areapools; use Areapools; -with Grt.Files_Operations; +with Grt.Files; with Vhdl.Nodes; use Vhdl.Nodes; @@ -76,7 +76,7 @@ package Elab.Vhdl_Values is type Protected_Index is new Uns32; No_Protected_Index : constant Protected_Index := 0; - subtype File_Index is Grt.Files_Operations.Ghdl_File_Index; + subtype File_Index is Grt.Files.Ghdl_File_Index; type Signal_Index_Type is new Uns32; No_Signal_Index : constant Signal_Index_Type := 0; |