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

* fixed a_load64_const_reg() for big endian systems

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-28 15:57:15 +00:00
parent b11d7a19f3
commit 6bd0424826
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg64f32.pas
View File

@ -173,8 +173,6 @@ 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 = endian_big then
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);
end; end;
@ -392,7 +390,6 @@ unit cg64f32;
cg.free_scratch_reg(list,tempreg.reghi); cg.free_scratch_reg(list,tempreg.reghi);
end; end;
procedure tcg64f32.a_param64_reg(list : taasmoutput;reg : tregister64;const locpara : tparalocation); procedure tcg64f32.a_param64_reg(list : taasmoutput;reg : tregister64;const locpara : tparalocation);
begin begin
{$warning FIX ME} {$warning FIX ME}
@ -620,7 +617,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.21 2002-07-20 11:57:52 florian Revision 1.22 2002-07-28 15:57:15 jonas
* fixed a_load64_const_reg() for big endian systems
Revision 1.21 2002/07/20 11:57:52 florian
* types.pas renamed to defbase.pas because D6 contains a types * types.pas renamed to defbase.pas because D6 contains a types
unit so this would conflicts if D6 programms are compiled unit so this would conflicts if D6 programms are compiled
+ Willamette/SSE2 instructions to assembler added + Willamette/SSE2 instructions to assembler added