paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tests forgotten to commit earlier

Browse Source 
git-svn-id: branches/objc@13678 -
This commit is contained in:
Jonas Maebe 2009-09-08 16:03:05 +00:00
parent 3b1e285f70
commit cd24bb4df6
3 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -8221,6 +8221,8 @@ tests/test/tobjc10.pp svneol=native#text/plain
tests/test/tobjc11.pp svneol=native#text/plain
tests/test/tobjc12.pp svneol=native#text/plain
tests/test/tobjc13.pp svneol=native#text/plain
tests/test/tobjc13a.pp svneol=native#text/plain
tests/test/tobjc13b.pp svneol=native#text/plain
tests/test/tobjc14.pp svneol=native#text/plain
tests/test/tobjc15.pp svneol=native#text/plain
tests/test/tobjc16.pp svneol=native#text/plain

19
tests/test/tobjc13a.pp Normal file
View File

@ -0,0 +1,19 @@
{ %fail }
{ %target=darwin }
{ %cpu=powerpc,i386 }
{ %norun }
{$mode objfpc}
{$modeswitch objectivec1}
type
ta = objcclass(NSObject)
procedure test2(l: longint); varargs; message 'class:';
end;
procedure ta.test2(l: longint);
begin
end;
begin
end.

19
tests/test/tobjc13b.pp Normal file
View File

@ -0,0 +1,19 @@
{ %fail }
{ %target=darwin }
{ %cpu=powerpc,i386 }
{ %norun }
{$mode objfpc}
{$modeswitch objectivec1}
type
ta = objcclass(NSObject)
procedure test(l: longint; a: array of const); message 'class:';
end;
procedure ta.test(l: longint; a: array of const);
begin
end;
begin
end.