fpcsrc/tests/test/tobjc30a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }

{ Written by Jonas Maebe in 2009, released into the Public Domain }

{$mode objfpc}
{$modeswitch objectivec1}

type
  { should succeed because both methods have the same selector }
  ta = objcclass(NSObject)
    function proc1(para: longint): longint; message 'proc1:';
  end;

  tb = objcclass(NSObject)
    function proc1(para: longint): longint; message 'proc1:';
  end;

function ta.proc1(para: longint): longint;
begin
  writeln(para);
  proc1:=para;
end;

function tb.proc1(para: longint): longint;
begin
  writeln(para);
  proc1:=para;
end;

var
  a: id;
begin
  a:=ta.alloc.init;
  a.proc1(5);
end.