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

* fix crashes when compiling with -gt

Browse Source 
git-svn-id: trunk@14548 -
This commit is contained in:
Jonas Maebe 2010-01-05 19:52:53 +00:00
parent 556afdca51
commit 5cca798316
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -1379,6 +1379,7 @@ implementation
{ check if we are reading a field of an object/class/ }
{ record. is_member_read() will deal with withsymtables }
{ if needed. }
p1:=nil;
if is_member_read(srsym,srsymtable,p1,hdef) then
begin
{ if the field was originally found in an }
@ -1563,6 +1564,7 @@ implementation
procsym :
begin
p1:=nil;
{ check if it's a method/class method }
if is_member_read(srsym,srsymtable,p1,hdef) then
begin
@ -1583,6 +1585,7 @@ implementation
propertysym :
begin
p1:=nil;
{ property of a class/object? }
if is_member_read(srsym,srsymtable,p1,hdef) then
begin
@ -1599,7 +1602,6 @@ implementation
else
{ no method pointer }
begin
p1:=nil;
handle_propertysym(tpropertysym(srsym),srsymtable,p1);
end;
end;