* fixed support for forward-declared objcprotocols

  + test (also for warning about missing constructor)

git-svn-id: branches/objc@13633 -

.gitattributes

@@ -8221,6 +8221,7 @@ tests/test/tobjc10.pp svneol=native#text/plain
 tests/test/tobjc11.pp svneol=native#text/plain
 tests/test/tobjc12.pp svneol=native#text/plain
 tests/test/tobjc13.pp svneol=native#text/plain
+tests/test/tobjc14.pp svneol=native#text/plain
 tests/test/tobjc2.pp svneol=native#text/plain
 tests/test/tobjc3.pp svneol=native#text/plain
 tests/test/tobjc4.pp svneol=native#text/plain

compiler/pdecl.pas

@@ -389,7 +389,8 @@ implementation
                  if ((token=_CLASS) or
                      (token=_INTERFACE) or
                      (token=_DISPINTERFACE) or
-                     (token=_OBJCCLASS)) and
+                     (token=_OBJCCLASS) or
+                     (token=_OBJCPROTOCOL)) and
                     (assigned(ttypesym(sym).typedef)) and
                     is_class_or_interface_or_dispinterface_or_objc(ttypesym(sym).typedef) and
                     (oo_is_forward in tobjectdef(ttypesym(sym).typedef).objectoptions) then

tests/test/tobjc14.pp

@@ -0,0 +1,21 @@
+{ %OPT=-Sew -vw }
+{ %norun }
+
+{$mode objfpc}
+{$modeswitch objectivec1}
+
+{ test forward-declared objcprotocol }
+{ make sure no warning is given about the absense of any constructors }
+
+type
+  ta = objcprotocol;
+
+  tb = objcclass
+    a: ta;
+  end; external name 'NSObject';
+
+  ta = objcprotocol
+  end; external name 'NSObject';
+
+begin
+end.