paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* nil method pointers can be kept in registers

Browse Source 
git-svn-id: trunk@22340 -
This commit is contained in:
florian 2012-09-06 15:11:54 +00:00
parent d6b548ce13
commit 4d4561923e
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgcnv.pas
View File

@ -526,12 +526,11 @@ interface
exit;
{$endif}
{$endif}
tg.gethltemp(current_asmdata.currasmlist,methodpointertype,methodpointertype.size,tt_normal,r);
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),0);
location.reference:=r;
cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
inc(r.offset,sizeof(puint));
cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
location_reset(location,LOC_REGISTER,def_cgsize(resultdef));
location.registerhi:=cg.getaddressregister(current_asmdata.currasmlist);
cg.a_load_const_reg(current_asmdata.currasmlist,OS_ADDR,0,location.registerhi);
location.register:=cg.getaddressregister(current_asmdata.currasmlist);
cg.a_load_const_reg(current_asmdata.currasmlist,OS_ADDR,0,location.register);
end;
procedure tcgtypeconvnode.second_bool_to_int;