diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-30 18:27:15 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-30 18:27:15 +0100 |
commit | c16b1428ade6fb56d285767c1e7774454c800e54 (patch) | |
tree | dd2ea175d5a370a0a30a19caa92b394ee778f7e7 | |
parent | 9525af450ca384c9a081297f7ce63a30af944b09 (diff) | |
download | ghdl-c16b1428ade6fb56d285767c1e7774454c800e54.tar.gz ghdl-c16b1428ade6fb56d285767c1e7774454c800e54.tar.bz2 ghdl-c16b1428ade6fb56d285767c1e7774454c800e54.zip |
netlists-rename: add comments
-rw-r--r-- | src/synth/netlists-rename.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/netlists-rename.adb b/src/synth/netlists-rename.adb index 7b0c8e5f9..0ad0bc9a5 100644 --- a/src/synth/netlists-rename.adb +++ b/src/synth/netlists-rename.adb @@ -31,9 +31,11 @@ package body Netlists.Rename is Res : String (1 .. 12); Len : Positive; begin + -- Only user names can clash. if Get_Sname_Kind (Name) /= Sname_User then return Name; end if; + -- If prefixed, it cannot clash with a reserved identifier. if Get_Sname_Prefix (Name) /= No_Sname then return Name; end if; |