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

* handle implementing objcprotocols that are defined as formal external

Browse Source 
in the current scope, but whose full definition is available elsewhere

git-svn-id: trunk@17171 -
This commit is contained in:
Jonas Maebe 2011-03-23 22:23:08 +00:00
parent fdd99ec16c
commit c0423b6a78
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecobj.pas
View File

@ -280,12 +280,13 @@ implementation
procedure handleImplementedProtocol(intfdef : tobjectdef);
begin
intfdef:=find_real_objcclass_definition(intfdef,false);
if not is_objcprotocol(intfdef) then
begin
Message1(type_e_protocol_type_expected,intfdef.typename);
exit;
end;
if (oo_is_forward in intfdef.objectoptions) then
if ([oo_is_forward,oo_is_formal] * intfdef.objectoptions <> []) then
begin
Message1(parser_e_forward_protocol_declaration_must_be_resolved,intfdef.objrealname^);
exit;