* fix crashes when compiling with -gt

git-svn-id: trunk@14548 -

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;