paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:29:31 +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 begin
if target_info.endian = endian_big then if target_info.endian = endian_big then
swap64(value); 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; tmpref := ref;
inc(tmpref.offset,4); 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; end;
@ -271,8 +271,8 @@ unit cg64f32;
procedure tcg64f32.a_load64_const_reg(list : TAsmList;value : int64;reg : tregister64); procedure tcg64f32.a_load64_const_reg(list : TAsmList;value : int64;reg : tregister64);
begin begin
cg.a_load_const_reg(list,OS_32,tcgint(lo(value)),reg.reglo); cg.a_load_const_reg(list,OS_32,longint(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(hi(value)),reg.reghi);
end; end;
@ -359,9 +359,9 @@ unit cg64f32;
swap64(a); swap64(a);
tmpsref := sref; tmpsref := sref;
tmpsref.bitlen := 32; 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); 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; end;
@ -537,7 +537,7 @@ unit cg64f32;
LOC_CREGISTER : LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reglo,reg); cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reglo,reg);
LOC_CONSTANT : 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 else
internalerror(200203244); internalerror(200203244);
end; end;
@ -554,7 +554,7 @@ unit cg64f32;
LOC_CREGISTER : LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reghi,reg); cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reghi,reg);
LOC_CONSTANT : 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 else
internalerror(200203244); internalerror(200203244);
end; end;
@ -675,15 +675,15 @@ unit cg64f32;
begin begin
{ Keep this order of first lo before hi to have { Keep this order of first lo before hi to have
the correct push order for m68k } 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,longint(lo(value)),tmploclo);
cg.a_load_const_cgpara(list,OS_32,tcgint(hi(value)),tmplochi); cg.a_load_const_cgpara(list,OS_32,longint(hi(value)),tmplochi);
end end
else else
begin begin
{ Keep this order of first hi before lo to have { Keep this order of first hi before lo to have
the correct push order for i386 } 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,longint(hi(value)),tmplochi);
cg.a_load_const_cgpara(list,OS_32,tcgint(lo(value)),tmploclo); cg.a_load_const_cgpara(list,OS_32,longint(lo(value)),tmploclo);
end; end;
tmploclo.done; tmploclo.done;
tmplochi.done; tmplochi.done;