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

* replaced tcgint(lo(x)) with longint(lo(x)) and tcgint(hi(x)) with longint(hi(x)) in cg64f32.pas, which should fix some of the const sign expansion regressions on some 32-bit architectures

Browse Source 
git-svn-id: trunk@24351 -
This commit is contained in:
nickysn 2013-04-28 07:42:56 +00:00
parent 527c407b62
commit 40ab132efa
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/cg64f32.pas
View File

@ -219,10 +219,10 @@ unit cg64f32;
begin
if target_info.endian = endian_big then
swap64(value);
cg.a_load_const_ref(list,OS_32,tcgint(lo(value)),ref);
cg.a_load_const_ref(list,OS_32,longint(lo(value)),ref);
tmpref := ref;
inc(tmpref.offset,4);
cg.a_load_const_ref(list,OS_32,tcgint(hi(value)),tmpref);
cg.a_load_const_ref(list,OS_32,longint(hi(value)),tmpref);
end;
@ -271,8 +271,8 @@ unit cg64f32;
procedure tcg64f32.a_load64_const_reg(list : TAsmList;value : int64;reg : tregister64);
begin
cg.a_load_const_reg(list,OS_32,tcgint(lo(value)),reg.reglo);
cg.a_load_const_reg(list,OS_32,tcgint(hi(value)),reg.reghi);
cg.a_load_const_reg(list,OS_32,longint(lo(value)),reg.reglo);
cg.a_load_const_reg(list,OS_32,longint(hi(value)),reg.reghi);
end;
@ -359,9 +359,9 @@ unit cg64f32;
swap64(a);
tmpsref := sref;
tmpsref.bitlen := 32;
hlcg.a_load_const_subsetref(list,u32inttype,tcgint(lo(a)),tmpsref);
hlcg.a_load_const_subsetref(list,u32inttype,longint(lo(a)),tmpsref);
inc(tmpsref.ref.offset,4);
hlcg.a_load_const_subsetref(list,u32inttype,tcgint(hi(a)),tmpsref);
hlcg.a_load_const_subsetref(list,u32inttype,longint(hi(a)),tmpsref);
end;
@ -537,7 +537,7 @@ unit cg64f32;
LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reglo,reg);
LOC_CONSTANT :
cg.a_load_const_reg(list,OS_32,tcgint(lo(l.value64)),reg);
cg.a_load_const_reg(list,OS_32,longint(lo(l.value64)),reg);
else
internalerror(200203244);
end;
@ -554,7 +554,7 @@ unit cg64f32;
LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reghi,reg);
LOC_CONSTANT :
cg.a_load_const_reg(list,OS_32,tcgint(hi(l.value64)),reg);
cg.a_load_const_reg(list,OS_32,longint(hi(l.value64)),reg);
else
internalerror(200203244);
end;
@ -675,15 +675,15 @@ unit cg64f32;
begin
{ Keep this order of first lo before hi to have
the correct push order for m68k }
cg.a_load_const_cgpara(list,OS_32,tcgint(lo(value)),tmploclo);
cg.a_load_const_cgpara(list,OS_32,tcgint(hi(value)),tmplochi);
cg.a_load_const_cgpara(list,OS_32,longint(lo(value)),tmploclo);
cg.a_load_const_cgpara(list,OS_32,longint(hi(value)),tmplochi);
end
else
begin
{ Keep this order of first hi before lo to have
the correct push order for i386 }
cg.a_load_const_cgpara(list,OS_32,tcgint(hi(value)),tmplochi);
cg.a_load_const_cgpara(list,OS_32,tcgint(lo(value)),tmploclo);
cg.a_load_const_cgpara(list,OS_32,longint(hi(value)),tmplochi);
cg.a_load_const_cgpara(list,OS_32,longint(lo(value)),tmploclo);
end;
tmploclo.done;
tmplochi.done;