aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth')
-rw-r--r--src/synth/elab-vhdl_files.adb5
-rw-r--r--src/synth/elab-vhdl_values.ads4
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;