mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 18:29:27 +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/tsscanf.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/uprec6.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