From c657042f0fc142c75ed293e75189723c477000f6 Mon Sep 17 00:00:00 2001 From: Mattias Gaertner Date: Wed, 6 Feb 2019 15:20:35 +0000 Subject: [PATCH] fcl-passrc: adv record: allow static only for class procedure/function git-svn-id: trunk@41238 - --- packages/fcl-passrc/src/pasresolver.pp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index 3c1e8fb5fc..822ea1a74d 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/packages/fcl-passrc/src/pasresolver.pp @@ -5940,6 +5940,9 @@ begin RaiseMsg(20181218195552,nInvalidXModifierY,sInvalidXModifierY,['record '+GetElementTypeName(Proc),'abstract'],Proc); if Proc.IsForward then RaiseMsg(20181218195514,nInvalidXModifierY,sInvalidXModifierY,['record '+GetElementTypeName(Proc),'forward'],Proc); + if Proc.IsStatic then + if (Proc.ClassType<>TPasClassProcedure) and (Proc.ClassType<>TPasClassFunction) then + RaiseMsg(20190206150922,nInvalidXModifierY,sInvalidXModifierY,[GetElementTypeName(Proc),'static'],Proc); if IsClassMethod(Proc) then begin if not Proc.IsStatic then