Explorar o código

* fixed check for objc-methods passed to selector()

git-svn-id: trunk@12871 -
Jonas Maebe %!s(int64=16) %!d(string=hai) anos
pai
achega
b1c32d899b
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/nobjc.pas

+ 1 - 1
compiler/nobjc.pas

@@ -121,7 +121,7 @@ function tobjcselectornode.pass_typecheck: tnode;
       loadn:
       loadn:
         begin
         begin
           if (left.resultdef.typ=procdef) and
           if (left.resultdef.typ=procdef) and
-             (po_objc in tprocdef(procdef).procoptions) then
+             (po_objc in tprocdef(left.resultdef).procoptions) then
             begin
             begin
               { ok }
               { ok }
             end
             end