* don't generate a classClass call for objc loadvmtaddrnodes generated

    for inherited calls (that is only required when not using them for
    dispatch purposes, and calling an inherited method is obviously
    a dispatch situation)

git-svn-id: trunk@20664 -

compiler/objcutil.pas

@@ -164,7 +164,8 @@ end;
             if not(oo_is_classhelper in tobjectdef(def).objectoptions) then
               result:=cloadvmtaddrnode.create(ctypenode.create(def))
             else
-              result:=cloadvmtaddrnode.create(ctypenode.create(tobjectdef(def).childof))
+              result:=cloadvmtaddrnode.create(ctypenode.create(tobjectdef(def).childof));
+            tloadvmtaddrnode(result).forcall:=true;
           end;
 
 {$if defined(onlymacosx10_6) or defined(arm) }