From 85a11c82041e47d847e5ad97b0c428b989a55f8f Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Sat, 19 Sep 2020 23:41:36 +0000
Subject: [PATCH] fcl-passrc: resolver: fixed inteface constraints, iisue
#37624
git-svn-id: trunk@46902 -
---
packages/fcl-passrc/src/pasresolver.pp | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp
index 8efe2b1463..b0cdd942e9 100644
--- a/packages/fcl-passrc/src/pasresolver.pp
+++ b/packages/fcl-passrc/src/pasresolver.pp
@@ -6711,11 +6711,14 @@ begin
end;
okInterface:
begin
- // there can be multiple interfacetype constraint
- if not (LastType is TPasClassType) then
- RaiseCannotBeTogether(20190720211236,LastType.Name,MemberType.Name);
- if TPasClassType(LastType).ObjKind<>okInterface then
- RaiseCannotBeTogether(20190720211304,LastType.Name,MemberType.Name);
+ if LastType<>nil then
+ begin
+ // there can be multiple interfacetype constraint
+ if not (LastType is TPasClassType) then
+ RaiseCannotBeTogether(20190720211236,LastType.Name,MemberType.Name);
+ if TPasClassType(LastType).ObjKind<>okInterface then
+ RaiseCannotBeTogether(20190720211304,LastType.Name,MemberType.Name);
+ end;
end
else
RaiseXIsNotAValidConstraint(20190720210919,MemberType.Name);