mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 08:08:13 +02:00
25 lines
411 B
ObjectPascal
25 lines
411 B
ObjectPascal
{ %target=darwin }
|
|
{ %cpu=powerpc,i386 }
|
|
|
|
{ Written by Jonas Maebe in 2009, released into the public domain }
|
|
|
|
{$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.
|