Ver Fonte

- reverted r15430, it was wrong (variadic parameters don't require an extra
colon in the selector)

git-svn-id: trunk@15432 -

Jonas Maebe há 15 anos atrás
pai
commit
935cd9eb8c
3 ficheiros alterados com 0 adições e 18 exclusões
  1. 0 1
      .gitattributes
  2. 0 2
      compiler/symdef.pas
  3. 0 15
      tests/test/tobjc16a.pp

+ 0 - 1
.gitattributes

@@ -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

+ 0 - 2
compiler/symdef.pas

@@ -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);
 

+ 0 - 15
tests/test/tobjc16a.pp

@@ -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.