paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 00:24:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed duplicate field names in variant record parts

Browse Source 
git-svn-id: trunk@28822 -
This commit is contained in:
Jonas Maebe 2014-10-15 10:08:43 +00:00
parent fb18eac0f3
commit 5b39b20a3d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbf/tw9039c.pp
View File

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

2
tests/webtbs/tw23212.pp
View File

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