From 5cca7983165388e266c37e6697cc451f8917a928 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Tue, 5 Jan 2010 19:52:53 +0000 Subject: [PATCH] * fix crashes when compiling with -gt git-svn-id: trunk@14548 - --- compiler/pexpr.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index d2740a2c83..2c9e0fc46b 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -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;