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

* fixed detection of an objcprotocols descending from a forward-defined

Browse Source 
objcprotocol

git-svn-id: trunk@30169 -
This commit is contained in:
Jonas Maebe 2015-03-12 19:37:43 +00:00
parent f0984fb628
commit 2dcd42d4f1
3 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12027,6 +12027,7 @@ tests/test/tobjc4.pp svneol=native#text/plain
tests/test/tobjc40.pp svneol=native#text/plain
tests/test/tobjc41.pp svneol=native#text/plain
tests/test/tobjc42.pp svneol=native#text/plain
tests/test/tobjc43.pp svneol=native#text/plain
tests/test/tobjc4a.pp svneol=native#text/plain
tests/test/tobjc5.pp svneol=native#text/plain
tests/test/tobjc5a.pp svneol=native#text/plain

6
compiler/pdecobj.pas
View File

@ -679,9 +679,6 @@ implementation
Message1(sym_e_formal_class_not_resolved,childof.objrealname^);
end;
{ remove forward flag, is resolved }
exclude(current_structdef.objectoptions,oo_is_forward);
if hasparentdefined then
begin
if current_objectdef.objecttype in [odt_class,odt_objcclass,odt_objcprotocol,odt_javaclass,odt_interfacejava] then
@ -695,6 +692,9 @@ implementation
end;
consume(_RKLAMMER);
end;
{ remove forward flag, is resolved }
exclude(current_structdef.objectoptions,oo_is_forward);
end;
procedure parse_extended_type(helpertype:thelpertype);

11
tests/test/tobjc43.pp Normal file
View File

@ -0,0 +1,11 @@
{ %target=darwin }
{ %fail }
{$modeswitch objectivec2}
type
prot = objcprotocol(prot)
end;
begin
end.