synth: refactoring (synth.files_operations -> synth.vhdl_files)

6 files changed, 11 insertions, 11 deletions

diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb
index b9207e0a6..938860b0e 100644
--- a/src/synth/synth-decls.adb
+++ b/src/synth/synth-decls.adb
@@ -35,7 +35,7 @@ with Synth.Expr; use Synth.Expr;
 with Synth.Stmts;
 with Synth.Source; use Synth.Source;
 with Synth.Errors; use Synth.Errors;
-with Synth.Files_Operations;
+with Synth.Vhdl_Files;
 with Synth.Values; use Synth.Values;
 
 package body Synth.Decls is
@@ -1044,7 +1044,7 @@ package body Synth.Decls is
                Res : Valtyp;
                Obj_Typ : Type_Acc;
             begin
-               F := Synth.Files_Operations.Elaborate_File_Declaration
+               F := Synth.Vhdl_Files.Elaborate_File_Declaration
                  (Syn_Inst, Decl);
                Obj_Typ := Get_Subtype_Object (Syn_Inst, Get_Type (Decl));
                Res := Create_Value_File (Obj_Typ, F);
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index 250fbcf61..adb7332a6 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -50,7 +50,7 @@ with Synth.Decls; use Synth.Decls;
 with Synth.Expr; use Synth.Expr;
 with Synth.Source; use Synth.Source;
 with Synth.Debugger;
-with Synth.Files_Operations;
+with Synth.Vhdl_Files;
 with Synth.Errors;
 
 package body Synth.Insts is
@@ -1647,7 +1647,7 @@ package body Synth.Insts is
 
       --  Save the current architecture, so that files can be open using a
       --  path relative to the architecture filename.
-      Synth.Files_Operations.Set_Design_Unit (Arch);
+      Synth.Vhdl_Files.Set_Design_Unit (Arch);
 
       Synth_Dependencies (Root_Instance, Get_Design_Unit (Arch));
 
diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb
index dca886777..80ec64b76 100644
--- a/src/synth/synth-static_oper.adb
+++ b/src/synth/synth-static_oper.adb
@@ -32,7 +32,7 @@ with Synth.Expr; use Synth.Expr;
 with Synth.Vhdl_Oper;
 with Synth.Ieee.Std_Logic_1164; use Synth.Ieee.Std_Logic_1164;
 with Synth.Ieee.Numeric_Std; use Synth.Ieee.Numeric_Std;
-with Synth.Files_Operations;
+with Synth.Vhdl_Files;
 with Synth.Values; use Synth.Values;
 
 package body Synth.Static_Oper is
@@ -847,7 +847,7 @@ package body Synth.Static_Oper is
             declare
                Res : Boolean;
             begin
-               Res := Synth.Files_Operations.Endfile (Param1.Val.File, Expr);
+               Res := Synth.Vhdl_Files.Endfile (Param1.Val.File, Expr);
                return Create_Memory_U8 (Boolean'Pos (Res), Boolean_Type);
             end;
 
diff --git a/src/synth/synth-static_proc.adb b/src/synth/synth-static_proc.adb
index 44595b6a4..5dfe354cc 100644
--- a/src/synth/synth-static_proc.adb
+++ b/src/synth/synth-static_proc.adb
@@ -20,7 +20,7 @@ with Vhdl.Errors; use Vhdl.Errors;
 
 with Synth.Values; use Synth.Values;
 with Synth.Errors; use Synth.Errors;
-with Synth.Files_Operations; use Synth.Files_Operations;
+with Synth.Vhdl_Files; use Synth.Vhdl_Files;
 with Synth.Heap;
 
 package body Synth.Static_Proc is
diff --git a/src/synth/synth-files_operations.adb b/src/synth/synth-vhdl_files.adb
index 40c163976..e9015afaf 100644
--- a/src/synth/synth-files_operations.adb
+++ b/src/synth/synth-vhdl_files.adb
@@ -28,7 +28,7 @@ with Synth.Objtypes; use Synth.Objtypes;
 with Synth.Expr; use Synth.Expr;
 with Synth.Errors; use Synth.Errors;
 
-package body Synth.Files_Operations is
+package body Synth.Vhdl_Files is
 
    --  Variables to store the search path.
    Current_Unit : Node := Null_Node;
@@ -412,4 +412,4 @@ package body Synth.Files_Operations is
       File_Read_Value (File, (Value.Typ, Value.Val.Mem), Loc);
    end Synth_File_Read;
 
-end Synth.Files_Operations;
+end Synth.Vhdl_Files;
diff --git a/src/synth/synth-files_operations.ads b/src/synth/synth-vhdl_files.ads
index 8d95a7cec..1d373664e 100644
--- a/src/synth/synth-files_operations.ads
+++ b/src/synth/synth-vhdl_files.ads
@@ -22,7 +22,7 @@ with Synth.Source; use Synth.Source;
 with Synth.Values; use Synth.Values;
 with Synth.Vhdl_Context; use Synth.Vhdl_Context;
 
-package Synth.Files_Operations is
+package Synth.Vhdl_Files is
    --  Raised in case of un-recoverable error.
    File_Execution_Error : exception;
 
@@ -45,4 +45,4 @@ package Synth.Files_Operations is
 
    procedure Synth_File_Read
      (Syn_Inst : Synth_Instance_Acc; Imp : Node; Loc : Node);
-end Synth.Files_Operations;
+end Synth.Vhdl_Files;