paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed webtbs/tw20874b for non-x86 32 bit targets: tcgobj methods (by

Browse Source 
default) cannot deal with 64 bit locations on 32 bit platforms

git-svn-id: trunk@19919 -
This commit is contained in:
Jonas Maebe 2011-12-30 11:58:49 +00:00
parent 5defdf86ba
commit d0ba14ecab
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgld.pas
View File

@ -954,7 +954,20 @@ implementation
{$endif cpu32bitalu} {$endif cpu32bitalu}
cg.g_flags2reg(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.register); cg.g_flags2reg(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.register);
LOC_REFERENCE: LOC_REFERENCE:
cg.g_flags2ref(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.reference); { i386 has a hack in its code generator so that it can
deal with 64 bit locations in this parcticular case }
{$if defined(cpu32bitalu) and not defined(x86)}
if left.location.size in [OS_S64,OS_64] then
begin
r64.reglo:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
r64.reghi:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
cg.g_flags2reg(current_asmdata.CurrAsmList,OS_32,right.location.resflags,r64.reglo);
cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_32,0,r64.reghi);
cg64.a_load64_reg_ref(current_asmdata.CurrAsmList,r64,left.location.reference);
end
else
{$endif cpu32bitalu}
cg.g_flags2ref(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.reference);
LOC_SUBSETREG,LOC_SUBSETREF: LOC_SUBSETREG,LOC_SUBSETREF:
begin begin
r:=cg.getintregister(current_asmdata.CurrAsmList,left.location.size); r:=cg.getintregister(current_asmdata.CurrAsmList,left.location.size);