paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 05:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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 -
This commit is contained in:
Jonas Maebe 2012-03-29 20:54:47 +00:00
parent dabcfc2806
commit 8525a30d9f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/objcutil.pas
View File

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