* fixed duplicate field names in variant record parts

git-svn-id: trunk@28822 -

tests/webtbf/tw9039c.pp

@@ -6,7 +6,7 @@ type
   tr = packed record
     l: longint;
     case byte of
-      0: (l: longint);
+      0: (x: longint);
       1: (e: ta);
   end;
 

tests/webtbs/tw23212.pp

@@ -10,7 +10,7 @@ Type
   End; { Record }
 
   TSomeRecord = Packed Record
-    Case A : Cardinal OF
+    Case x : Cardinal OF
       0 : (A : TSomeRec1);
   End; { Record }