paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 14:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: resolver: fixed inteface constraints, iisue #37624

Browse Source 
git-svn-id: trunk@46902 -
This commit is contained in:
Mattias Gaertner 2020-09-19 23:41:36 +00:00
parent 2c372071fd
commit 85a11c8204
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-passrc/src/pasresolver.pp
View File

@ -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);