From 07c9a772bf7d24422572c45ca8b7248b0653bee4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 3 Apr 2011 10:50:34 +0000
Subject: [PATCH] * fix compilation when object type cast checking is on

git-svn-id: trunk@17236 -
---
 compiler/ptype.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/ptype.pas b/compiler/ptype.pas
index 8e8c69081e..e15137527e 100644
--- a/compiler/ptype.pas
+++ b/compiler/ptype.pas
@@ -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;