diff options
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/synth-vhdl_insts.adb | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/synth/synth-vhdl_insts.adb b/src/synth/synth-vhdl_insts.adb index c60b1b1a5..1297c71b9 100644 --- a/src/synth/synth-vhdl_insts.adb +++ b/src/synth/synth-vhdl_insts.adb @@ -20,7 +20,6 @@ with GNAT.SHA1; with Types; use Types; with Types_Utils; use Types_Utils; -with Files_Map; with Name_Table; with Libraries; with Hash; use Hash; @@ -208,23 +207,6 @@ package body Synth.Vhdl_Insts is end case; end Hash_Const; - function Get_Source_Identifier (Decl : Node) return Name_Id - is - use Files_Map; - use Name_Table; - Loc : constant Location_Type := Get_Location (Decl); - Len : constant Natural := Get_Name_Length (Get_Identifier (Decl)); - subtype Ident_Str is String (1 .. Len); - File : Source_File_Entry; - Pos : Source_Ptr; - Buf : File_Buffer_Acc; - begin - Location_To_File_Pos (Loc, File, Pos); - Buf := Get_File_Source (File); - return Get_Identifier - (Ident_Str (Buf (Pos .. Pos + Source_Ptr (Len - 1)))); - end Get_Source_Identifier; - function Create_Module_Name (Params : Inst_Params) return Sname is use GNAT.SHA1; |