diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-29 16:07:51 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-29 16:07:51 +0100 |
commit | 1b5dea5805dd45dc628838b1435f5686b913e8df (patch) | |
tree | 077eee4e2da68a7d5e63c798edd9250084a3c022 /src/synth/netlists.adb | |
parent | e713a54f694e1bb205cb158f30fbbb6f1648909c (diff) | |
download | ghdl-1b5dea5805dd45dc628838b1435f5686b913e8df.tar.gz ghdl-1b5dea5805dd45dc628838b1435f5686b913e8df.tar.bz2 ghdl-1b5dea5805dd45dc628838b1435f5686b913e8df.zip |
synth: simplify New_Sname_Artificial (prefix is not used)
Diffstat (limited to 'src/synth/netlists.adb')
-rw-r--r-- | src/synth/netlists.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index 3a5b0b3dd..a6df63d92 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -43,10 +43,10 @@ package body Netlists is return Snames_Table.Last; end New_Sname_User; - function New_Sname_Artificial (Id : Name_Id; Prefix : Sname) return Sname is + function New_Sname_Artificial (Id : Name_Id) return Sname is begin Snames_Table.Append ((Kind => Sname_Artificial, - Prefix => Prefix, + Prefix => No_Sname, Suffix => Uns32 (Id))); return Snames_Table.Last; end New_Sname_Artificial; @@ -1541,8 +1541,7 @@ begin pragma Assert (Modules_Table.Last = No_Module); Modules_Table.Append ((Parent => No_Module, - Name => New_Sname_Artificial (Std_Names.Name_None, - No_Sname), + Name => New_Sname_Artificial (Std_Names.Name_None), Id => Id_Free, First_Port_Desc => No_Port_Desc_Idx, Nbr_Inputs => 0, |