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

- reverted r15430, it was wrong (variadic parameters don't require an extra

Browse Source 
colon in the selector)

git-svn-id: trunk@15432 -
This commit is contained in:
Jonas Maebe 2010-06-13 19:45:45 +00:00
parent 4e9fc5fadb
commit 935cd9eb8c
3 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9266,7 +9266,6 @@ 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
tests/test/tobjc16a.pp svneol=native#text/plain
tests/test/tobjc17.pp svneol=native#text/plain
tests/test/tobjc18.pp svneol=native#text/plain
tests/test/tobjc19.pp svneol=native#text/plain

2
compiler/symdef.pas
View File

@ -4848,8 +4848,6 @@ implementation
if not(vo_is_hidden_para in tparavarsym(pd.paras[i]).varoptions) and
not is_array_of_const(tparavarsym(pd.paras[i]).vardef) then
dec(paracount);
{ varargs parameter }
dec(paracount,ord(po_varargs in tprocdef(def).procoptions));
if (paracount<>0) then
MessagePos(pd.fileinfo,sym_e_objc_para_mismatch);

15
tests/test/tobjc16a.pp
View File

@ -1,15 +0,0 @@
{ %norun }
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }
{ Written by Jonas Maebe in 2010, released into the public domain }
{$modeswitch objectivec1}
type
ta = objcclass
procedure test(a: longint); varargs; message 'test:a:';
end; external name 'NSObject';
begin
end.