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

* take "varags" into account when checking for the correct number of

Browse Source 
formal parameters of an Objective-C method

git-svn-id: trunk@15430 -
This commit is contained in:
Jonas Maebe 2010-06-13 19:35:41 +00:00
parent 4847103436
commit 8c1a63fb80
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

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

2
compiler/symdef.pas
View File

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

15
tests/test/tobjc16a.pp Normal file
View File

@ -0,0 +1,15 @@
{ %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.