paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use Object_getClass(obj) instead of obj._class to get the class of an

Browse Source 
Objective-C instance on AArch64, as the latter helper from the runtime
    is a plain function call rather than an expensive message dispatch,
    and moreover it also works for protocols (the "class" method is part
    of NSObject, and protocols do not support it since there is no single
    root class and hence they may represent an instance of a class that
    does not derive from NSObject)
   o also call it to get the "self" pointer when calling class methods for
     protocols on AArch64 (fixes tobjc22a and tobjc22b on Darwin/AArch64)
   o also call it to get the metaclass of a class on Darwin/AArch64 (fixes
     tobjc25)
  - removed special handling of getting the Objective-C (meta)class for
    non-type nodes on other Darwin platforms, as this is also correctly
    handled by the generic pass_generate_code

git-svn-id: trunk@30018 -
This commit is contained in:
Jonas Maebe 2015-02-26 21:49:08 +00:00
parent b7422716b2
commit 37c2d0e60d
1 changed files with 9 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/nmem.pas
View File

@ -248,36 +248,16 @@ implementation
include(current_procinfo.flags,pi_needs_got);
if left.nodetype<>typen then
begin
if is_objcclass(left.resultdef) and
(left.nodetype<>typen) then
if (target_info.system=system_aarch64_darwin) and
(is_objc_class_or_protocol(left.resultdef) or
is_objcclassref(left.resultdef)) then
begin
if target_info.system<>system_aarch64_darwin then
begin
{ don't use the ISA field name, assume this field is at offset
0 (just like gcc/clang) }
result:=ctypeconvnode.create_internal(left,voidpointertype);
result:=cderefnode.create(result);
inserttypeconv_internal(result,resultdef);
{ the ISA pointer is guaranteed to be aligned, while
dereferencing a void pointer is normally not aligned at
all }
result:=geninlinenode(in_aligned_x,false,result);
{ reused }
left:=nil;
end
else
begin
{ Darwin/AArch64, the isa field is opaque and we must call
_class to obtain the actual ISA pointer }
vs:=search_struct_member(tobjectdef(left.resultdef),'_CLASS');
if not assigned(vs) or
(tsym(vs).typ<>procsym) then
internalerror(2011041901);
result:=ccallnode.create(nil,tprocsym(vs),vs.owner,left,[]);
inserttypeconv_explicit(result,resultdef);
{ reused }
left:=nil;
end;
{ on Darwin/AArch64, the isa field is opaque and we must
call Object_getClass to obtain the actual ISA pointer }
result:=ccallnode.createinternfromunit('OBJC','OBJECT_GETCLASS',ccallparanode.create(left,nil));
inserttypeconv_explicit(result,resultdef);
{ reused }
left:=nil;
end
else if is_javaclass(left.resultdef) and
(left.nodetype<>typen) and