* use tdef.unique_id_str to generate the unique internal name for anonymous record defs as using the count of the deflist is no longer correct

git-svn-id: trunk@43616 -
This commit is contained in:
svenbarth 2019-11-30 17:40:27 +00:00
parent d8c81744d3
commit 06c1a17d13

View File

@ -4801,7 +4801,7 @@ implementation
pname:=@n
else
begin
name:='$InternalRec'+tostr(current_module.deflist.count);
name:='$InternalRec'+unique_id_str;
pname:=@name;
end;
oldsymtablestack:=symtablestack;