mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:27:59 +02:00
* support Objective-C classes and protocols with -gw3 (mantis #36250)
git-svn-id: trunk@48834 -
This commit is contained in:
parent
803779002d
commit
9c831677ff
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -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
|
||||
|
@ -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
15
tests/webtbs/tw36250.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user