mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 05:49:23 +02:00
* forgot to commit previously
git-svn-id: branches/objc@13766 -
This commit is contained in:
parent
6f3bace0f3
commit
ef39dff478
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -8944,6 +8944,7 @@ tests/test/units/sysutils/tfloattostr.pp svneol=native#text/plain
|
|||||||
tests/test/units/sysutils/tlocale.pp svneol=native#text/plain
|
tests/test/units/sysutils/tlocale.pp svneol=native#text/plain
|
||||||
tests/test/units/sysutils/tsscanf.pp svneol=native#text/plain
|
tests/test/units/sysutils/tsscanf.pp svneol=native#text/plain
|
||||||
tests/test/units/sysutils/tstrtobool.pp svneol=native#text/plain
|
tests/test/units/sysutils/tstrtobool.pp svneol=native#text/plain
|
||||||
|
tests/test/uobjc7.pp svneol=native#text/plain
|
||||||
tests/test/uobjcl1.pp svneol=native#text/plain
|
tests/test/uobjcl1.pp svneol=native#text/plain
|
||||||
tests/test/uprec6.pp svneol=native#text/plain
|
tests/test/uprec6.pp svneol=native#text/plain
|
||||||
tests/test/uprec7.pp svneol=native#text/plain
|
tests/test/uprec7.pp svneol=native#text/plain
|
||||||
|
22
tests/test/uobjc7.pp
Normal file
22
tests/test/uobjc7.pp
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
{ %target=darwin }
|
||||||
|
{ %cpu=powerpc,i386 }
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
{$modeswitch objectivec1}
|
||||||
|
|
||||||
|
unit uobjc7;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
type
|
||||||
|
tobjcprot = objcprotocol
|
||||||
|
procedure isrequired; message 'isrequired';
|
||||||
|
optional
|
||||||
|
procedure isoptional; message 'isoptional';
|
||||||
|
required
|
||||||
|
procedure alsorequired; message 'alsorequired';
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user