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

* some big-endian fixes

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-12 10:14:26 +00:00
parent 4f77082660
commit 936cfe106b
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cg64f32.pas
View File

@ -97,7 +97,7 @@ unit cg64f32;
tmpreg: tregister; tmpreg: tregister;
tmpref: treference; tmpref: treference;
begin begin
if target_info.endian=endian_big then if target_info.endian = endian_big then
begin begin
tmpreg:=reg.reglo; tmpreg:=reg.reglo;
reg.reglo:=reg.reghi; reg.reglo:=reg.reghi;
@ -114,7 +114,7 @@ unit cg64f32;
tmpvalue : DWord; tmpvalue : DWord;
tmpref: treference; tmpref: treference;
begin begin
if target_info.endian<>source_info.endian then if target_info.endian = endian_big then
swap_qword(value); swap_qword(value);
cg.a_load_const_ref(list,OS_32,lo(value),ref); cg.a_load_const_ref(list,OS_32,lo(value),ref);
tmpref := ref; tmpref := ref;
@ -173,7 +173,7 @@ unit cg64f32;
procedure tcg64f32.a_load64_const_reg(list : taasmoutput;value : qword;reg : tregister64); procedure tcg64f32.a_load64_const_reg(list : taasmoutput;value : qword;reg : tregister64);
begin begin
if target_info.endian<>source_info.endian then if target_info.endian = endian_big then
swap_qword(value); swap_qword(value);
cg.a_load_const_reg(list,OS_32,lo(value),reg.reglo); cg.a_load_const_reg(list,OS_32,lo(value),reg.reglo);
cg.a_load_const_reg(list,OS_32,hi(value),reg.reghi); cg.a_load_const_reg(list,OS_32,hi(value),reg.reghi);
@ -408,7 +408,7 @@ unit cg64f32;
procedure tcg64f32.a_param64_const(list : taasmoutput;value : qword;const locpara : tparalocation); procedure tcg64f32.a_param64_const(list : taasmoutput;value : qword;const locpara : tparalocation);
begin begin
{$warning FIX ME} {$warning FIX ME}
if target_info.endian<>source_info.endian then if target_info.endian = endian_big then
swap_qword(value); swap_qword(value);
cg.a_param_const(list,OS_32,hi(value),locpara); cg.a_param_const(list,OS_32,hi(value),locpara);
{ the nr+1 needs definitivly a fix FK } { the nr+1 needs definitivly a fix FK }
@ -620,7 +620,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.19 2002-07-11 07:23:17 jonas Revision 1.20 2002-07-12 10:14:26 jonas
* some big-endian fixes
Revision 1.19 2002/07/11 07:23:17 jonas
+ generic implementations of a_op64_ref_reg() and a_op64_const_ref() + generic implementations of a_op64_ref_reg() and a_op64_const_ref()
(only works for processors with >2 scratch registers) (only works for processors with >2 scratch registers)