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

* fix compilation when object type cast checking is on

Browse Source 
git-svn-id: trunk@17236 -
This commit is contained in:
florian 2011-04-03 10:50:34 +00:00
parent cb3043b3a2
commit 07c9a772bf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ptype.pas
View File

@ -443,7 +443,7 @@ implementation
function try_parse_structdef_nested_type(out def: tdef; basedef: tabstractrecorddef; isfowarddef: boolean): boolean;
var
structdef : tabstractrecorddef;
structdef : tdef;
structdefstack : tfpobjectlist;
begin
{ use of current parsed object:
@ -452,7 +452,7 @@ implementation
structdefstack:=nil;
while assigned(structdef) and (structdef.typ in [objectdef,recorddef]) do
begin
if (structdef.objname^=pattern) then
if (tabstractrecorddef(structdef).objname^=pattern) then
begin
consume(_ID);
def:=structdef;
@ -470,7 +470,7 @@ implementation
result:=true;
exit;
end;
structdef:=tabstractrecorddef(structdef.owner.defowner);
structdef:=tdef(tabstractrecorddef(structdef).owner.defowner);
end;
result:=false;
end;