From c3736810ac018b5aadb7d54c6f6c4c41d1c59344 Mon Sep 17 00:00:00 2001 From: Sven/Sarah Barth Date: Sun, 6 Feb 2022 21:44:59 +0100 Subject: [PATCH] * if an interface is declared inherit the invokable flag from the parent interface --- compiler/pdecobj.pas | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/compiler/pdecobj.pas b/compiler/pdecobj.pas index ddda3f45ec..62d275501a 100644 --- a/compiler/pdecobj.pas +++ b/compiler/pdecobj.pas @@ -1643,6 +1643,11 @@ implementation if is_objectpascal_helper(current_structdef) then parse_extended_type(helpertype); + if is_interface(current_objectdef) and + is_interface(current_objectdef.childof) and + (oo_is_invokable in tobjectdef(current_objectdef.childof).objectoptions) then + include(current_objectdef.objectoptions,oo_is_invokable); + { parse optional GUID for interfaces } parse_guid;