diff options
Diffstat (limited to 'compiler/pexpr.pas')
| -rw-r--r-- | compiler/pexpr.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index b4438306e2..c3c8e36339 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -1451,7 +1451,7 @@ implementation { e.g., "with classinstance do field := 5"), then } { let do_member_read handle it } if (srsym.owner.symtabletype in [ObjectSymtable,recordsymtable]) then - do_member_read(tobjectdef(hdef),getaddr,srsym,p1,again,[]) + do_member_read(tabstractrecorddef(hdef),getaddr,srsym,p1,again,[]) else { otherwise it's a regular record subscript } p1:=csubscriptnode.create(srsym,p1); @@ -1507,7 +1507,7 @@ implementation if assigned(srsym) then check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg); consume(_ID); - do_member_read(tobjectdef(hdef),false,srsym,p1,again,[]); + do_member_read(tabstractrecorddef(hdef),false,srsym,p1,again,[]); end else begin @@ -1522,7 +1522,7 @@ implementation begin check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg); consume(_ID); - do_member_read(tobjectdef(hdef),getaddr,srsym,p1,again,[]); + do_member_read(tabstractrecorddef(hdef),getaddr,srsym,p1,again,[]); end else Message1(sym_e_id_no_member,orgpattern); @@ -1547,7 +1547,7 @@ implementation begin check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg); consume(_ID); - do_member_read(tobjectdef(hdef),getaddr,srsym,p1,again,[]); + do_member_read(tabstractrecorddef(hdef),getaddr,srsym,p1,again,[]); end else begin @@ -1597,7 +1597,7 @@ implementation { not srsymtable.symtabletype since that can be } { withsymtable as well } if (srsym.owner.symtabletype in [ObjectSymtable,recordsymtable]) then - do_member_read(tobjectdef(hdef),getaddr,srsym,p1,again,[]) + do_member_read(tabstractrecorddef(hdef),getaddr,srsym,p1,again,[]) else { no procsyms in records (yet) } internalerror(2007012006); @@ -1630,7 +1630,7 @@ implementation { not srsymtable.symtabletype since that can be } { withsymtable as well } if (srsym.owner.symtabletype in [ObjectSymtable,recordsymtable]) then - do_member_read(tobjectdef(hdef),getaddr,srsym,p1,again,[]) + do_member_read(tabstractrecorddef(hdef),getaddr,srsym,p1,again,[]) else { no propertysyms in records (yet) } internalerror(2009111510); |