paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:31:49 +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

21
compiler/pdecvar.pas
View File

@ -1982,16 +1982,19 @@ implementation
{ including a field declaration? }
fieldvs:=nil;
sorg:=orgpattern;
hs:=pattern;
searchsym(hs,srsym,srsymtable);
if not(assigned(srsym) and (srsym.typ in [typesym,unitsym])) then
if token=_ID then
begin
consume(_ID);
consume(_COLON);
fieldvs:=cfieldvarsym.create(sorg,vs_value,generrordef,[]);
variantdesc^^.variantselector:=fieldvs;
symtablestack.top.insertsym(fieldvs);
sorg:=orgpattern;
hs:=pattern;
searchsym(hs,srsym,srsymtable);
if not(assigned(srsym) and (srsym.typ in [typesym,unitsym])) then
begin
consume(_ID);
consume(_COLON);
fieldvs:=cfieldvarsym.create(sorg,vs_value,generrordef,[]);
variantdesc^^.variantselector:=fieldvs;
symtablestack.top.insertsym(fieldvs);
end;
end;
read_anon_type(casetype,true);
block_type:=bt_var;

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.