paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 01:49:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixing trying to consume ID for anonymous switch field

Browse Source
This commit is contained in:
Frederic Kehrein 2023-09-29 00:31:00 +02:00
parent f1317e893d
commit ba55932929
2 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecvar.pas
View File

@ -1982,6 +1982,8 @@ implementation
{ including a field declaration? } { including a field declaration? }
fieldvs:=nil; fieldvs:=nil;
if token=_ID then
begin
sorg:=orgpattern; sorg:=orgpattern;
hs:=pattern; hs:=pattern;
searchsym(hs,srsym,srsymtable); searchsym(hs,srsym,srsymtable);
@ -1993,6 +1995,7 @@ implementation
variantdesc^^.variantselector:=fieldvs; variantdesc^^.variantselector:=fieldvs;
symtablestack.top.insertsym(fieldvs); symtablestack.top.insertsym(fieldvs);
end; end;
end;
read_anon_type(casetype,true); read_anon_type(casetype,true);
block_type:=bt_var; block_type:=bt_var;
if assigned(fieldvs) then if assigned(fieldvs) then

19
tests/test/tvrec1.pp Normal file
View File

@ -0,0 +1,19 @@
program tvrec1;
type
TTestRec = record
case (A, B) of
A: (I: Integer);
B: (D: Double);
end;
var
rec: TTestRec;
begin
if @rec.I=@rec.D then
begin
WriteLn('ok');
halt(0);
end;
halt(1);
end.