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 bug where in const init no typecheck for symbol was performed

Browse Source
This commit is contained in:
Frederic Kehrein 2024-10-03 19:30:13 +02:00 committed by Michael Van Canneyt
parent 3e7d58bce7
commit a188322e76
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngtcon.pas
View File

@ -1682,7 +1682,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
consume(_ID);
consume(_COLON);
recsym := tsym(def.symtable.Find(s));
if not assigned(recsym) then
if not assigned(recsym) or (recsym.typ<>fieldvarsym) then
begin
Message1(sym_e_illegal_field,sorg);
error := true;

16
tests/test/trecinit1.pp Normal file
View File

@ -0,0 +1,16 @@
{ %FAIL }
program trecinit1;
{$mode delphi}
{$ModeSwitch advancedrecords}
type
TTestRec = record
A: Integer;
property B: Integer read A;
end;
const
rec: TTestRec = (A:42; B:32);
begin
end.