grt-files_operations: use grt.files

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;