paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed number of colons in (fake) message names

Browse Source 
git-svn-id: branches/objc@13677 -
This commit is contained in:
Jonas Maebe 2009-09-08 16:00:15 +00:00
parent 0549f79555
commit 3b1e285f70
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tobjc13.pp
View File

@ -7,8 +7,8 @@
type type
ta = objcclass(NSObject) ta = objcclass(NSObject)
procedure test(l: longint; a: array of const); message 'class'; procedure test(l: longint; a: array of const); message 'class:';
procedure test2(l: longint); varargs; message 'class'; procedure test2(l: longint); varargs; message 'class:';
end; external name 'NSObject'; end; external name 'NSObject';
begin begin