diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/synth/synth-decls.adb | 4 | ||||
-rw-r--r-- | src/synth/synth-insts.adb | 4 | ||||
-rw-r--r-- | src/synth/synth-static_oper.adb | 4 | ||||
-rw-r--r-- | src/synth/synth-static_proc.adb | 2 | ||||
-rw-r--r-- | src/synth/synth-vhdl_files.adb (renamed from src/synth/synth-files_operations.adb) | 4 | ||||
-rw-r--r-- | src/synth/synth-vhdl_files.ads (renamed from src/synth/synth-files_operations.ads) | 4 |
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; |