Browse Source

* 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 -
svenbarth 5 years ago
parent
commit
06c1a17d13
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

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