* support Objective-C classes and protocols with -gw3 (mantis #36250)

git-svn-id: trunk@48834 -
This commit is contained in:
Jonas Maebe 2021-02-27 21:44:53 +00:00
parent 803779002d
commit 9c831677ff
3 changed files with 22 additions and 0 deletions

1
.gitattributes vendored
View File

@ -18526,6 +18526,7 @@ tests/webtbs/tw36196.pp svneol=native#text/pascal
tests/webtbs/tw3621.pp svneol=native#text/plain
tests/webtbs/tw36212.pp svneol=native#text/pascal
tests/webtbs/tw36215.pp svneol=native#text/pascal
tests/webtbs/tw36250.pp svneol=native#text/plain
tests/webtbs/tw3628.pp svneol=native#text/plain
tests/webtbs/tw3634.pp svneol=native#text/plain
tests/webtbs/tw36381.pp svneol=native#text/plain

View File

@ -4521,6 +4521,12 @@ implementation
begin
case def.objecttype of
odt_objcclass,
odt_objcprotocol:
begin
inherited;
exit
end;
odt_cppclass,
odt_object:
begin

15
tests/webtbs/tw36250.pp Normal file
View File

@ -0,0 +1,15 @@
{ %norun }
{ %target=darwin,ios,iphonesim}
{ %opt=-gw3 }
{$mode objfpc}{$h+}
{$ModeSwitch objectivec2}
function NSStringToString(ns: NSString): String;
begin
Result := '';
end;
begin
WriteLn(NSStringToString(nil));
end.