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

* fixed a_load_reg_ref_unaligned() so it doesn't destroy the source

Browse Source 
register anymore

git-svn-id: trunk@7426 -
This commit is contained in:
Jonas Maebe 2007-05-23 11:45:26 +00:00
parent 528eb2ec50
commit 1e10424c6b
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/cgobj.pas
View File

@ -2138,37 +2138,40 @@ implementation
case FromSize of case FromSize of
OS_16,OS_S16: OS_16,OS_S16:
begin begin
tmpreg:=getintregister(list,OS_16);
a_load_reg_reg(list,fromsize,OS_16,register,tmpreg);
if target_info.endian=endian_big then if target_info.endian=endian_big then
inc(tmpref.offset); inc(tmpref.offset);
register:=makeregsize(list,register,OS_8); tmpreg:=makeregsize(list,tmpreg,OS_8);
a_load_reg_ref(list,OS_8,OS_8,register,tmpref); a_load_reg_ref(list,OS_8,OS_8,tmpreg,tmpref);
register:=makeregsize(list,register,OS_16); tmpreg:=makeregsize(list,tmpreg,OS_16);
a_op_const_reg(list,OP_SHR,OS_16,8,register); a_op_const_reg(list,OP_SHR,OS_16,8,tmpreg);
if target_info.endian=endian_big then if target_info.endian=endian_big then
dec(tmpref.offset) dec(tmpref.offset)
else else
inc(tmpref.offset); inc(tmpref.offset);
register:=makeregsize(list,register,OS_8); tmpreg:=makeregsize(list,tmpreg,OS_8);
a_load_reg_ref(list,OS_8,OS_8,register,tmpref); a_load_reg_ref(list,OS_8,OS_8,tmpreg,tmpref);
register:=makeregsize(list,register,OS_16);
end; end;
OS_32,OS_S32: OS_32,OS_S32:
begin begin
tmpreg:=getintregister(list,OS_32);
a_load_reg_reg(list,fromsize,OS_32,register,tmpreg);
if target_info.endian=endian_big then if target_info.endian=endian_big then
inc(tmpref.offset,3); inc(tmpref.offset,3);
register:=makeregsize(list,register,OS_8); tmpreg:=makeregsize(list,tmpreg,OS_8);
a_load_reg_ref(list,OS_8,OS_8,register,tmpref); a_load_reg_ref(list,OS_8,OS_8,tmpreg,tmpref);
register:=makeregsize(list,register,OS_32); tmpreg:=makeregsize(list,tmpreg,OS_32);
for i:=1 to 3 do for i:=1 to 3 do
begin begin
a_op_const_reg(list,OP_SHR,OS_32,8,register); a_op_const_reg(list,OP_SHR,OS_32,8,tmpreg);
if target_info.endian=endian_big then if target_info.endian=endian_big then
dec(tmpref.offset) dec(tmpref.offset)
else else
inc(tmpref.offset); inc(tmpref.offset);
register:=makeregsize(list,register,OS_8); tmpreg:=makeregsize(list,tmpreg,OS_8);
a_load_reg_ref(list,OS_8,OS_8,register,tmpref); a_load_reg_ref(list,OS_8,OS_8,tmpreg,tmpref);
register:=makeregsize(list,register,OS_32); tmpreg:=makeregsize(list,tmpreg,OS_32);
end; end;
end end
else else