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

* fix the internal error of #40639; however as the test code in question will only compile correctly with the next commit no test is added yet

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-02-18 19:29:48 +01:00
parent 1dbde8a79d
commit 5e05630713
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecobj.pas
View File

@ -774,6 +774,9 @@ implementation
Internalerror(2011021103);
consume(_FOR);
{ set extendeddef to non-Nil so that potential checks for it won't trigger
access violations }
current_objectdef.extendeddef:=generrordef;
single_type(hdef,[stoParseClassParent]);
if not assigned(hdef) or (hdef.typ=errordef) then
begin
@ -837,9 +840,7 @@ implementation
end;
if assigned(hdef) then
current_objectdef.extendeddef:=hdef
else
current_objectdef.extendeddef:=generrordef;
current_objectdef.extendeddef:=hdef;
end;
procedure parse_guid;