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

* m68k: do not generate unnecessary unaligned load sequences for byte loads into registers, this fixes tcnvint1 test on plain 68000

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-08 01:26:13 +01:00
parent c42b8c43bd
commit 8f083f6342
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/m68k/cgcpu.pas
View File

@ -930,7 +930,13 @@ unit cgcpu;
opsize: topsize; opsize: topsize;
needsext: boolean; needsext: boolean;
begin begin
if needs_unaligned(ref.alignment,fromsize) then needsext:=tcgsize2size[fromsize]<tcgsize2size[tosize];
if needsext then
size:=fromsize
else
size:=tosize;
if needs_unaligned(ref.alignment,size) then
begin begin
//list.concat(tai_comment.create(strpnew('a_load_ref_reg calling unaligned'))); //list.concat(tai_comment.create(strpnew('a_load_ref_reg calling unaligned')));
a_load_ref_reg_unaligned(list,fromsize,tosize,ref,register); a_load_ref_reg_unaligned(list,fromsize,tosize,ref,register);
@ -940,11 +946,6 @@ unit cgcpu;
href:=ref; href:=ref;
fixref(list,href,false); fixref(list,href,false);
needsext:=tcgsize2size[fromsize]<tcgsize2size[tosize];
if needsext then
size:=fromsize
else
size:=tosize;
opsize:=TCGSize2OpSize[size]; opsize:=TCGSize2OpSize[size];
if isaddressregister(register) and not (opsize in [S_L]) then if isaddressregister(register) and not (opsize in [S_L]) then
hreg:=getintregister(list,OS_ADDR) hreg:=getintregister(list,OS_ADDR)