From d612918bb219bcb51ae209e6b6f59ca922df3fb2 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Fri, 4 Mar 2005 09:56:35 +0000 Subject: [PATCH] * fixed Lazarus compilation --- compiler/pexpr.pas | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index 324e315af0..33c1cf1e1e 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -1933,11 +1933,14 @@ implementation not from self } if sym.typ in [procsym,propertysym] then begin - htype.setdef(classh); - if (po_classmethod in current_procinfo.procdef.procoptions) or - (po_staticmethod in current_procinfo.procdef.procoptions) then - htype.setdef(tclassrefdef.create(htype)); - p1:=ctypenode.create(htype); + if (sym.typ = procsym) then + begin + htype.setdef(classh); + if (po_classmethod in current_procinfo.procdef.procoptions) or + (po_staticmethod in current_procinfo.procdef.procoptions) then + htype.setdef(tclassrefdef.create(htype)); + p1:=ctypenode.create(htype); + end; end else begin @@ -2532,7 +2535,10 @@ implementation end. { $Log$ - Revision 1.183 2005-03-04 07:46:36 jonas + Revision 1.184 2005-03-04 09:56:35 jonas + * fixed Lazarus compilation + + Revision 1.183 2005/03/04 07:46:36 jonas * properties can also be inherited/overridden Revision 1.182 2005/03/03 19:58:14 jonas