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

* support little endian in getFPSCR/setFPSCR

Browse Source 
git-svn-id: trunk@30211 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:11 +00:00
parent 3ab62dcfed
commit e3f451066b
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/powerpc64/mathu.inc
View File

@ -31,14 +31,22 @@ const
function getFPSCR : DWord; assembler; nostackframe;
asm
mffs f0
stfd f0, -12(r1)
lwz r3, -8(r1)
stfd f0, -16(r1)
{$ifdef FPC_BIG_ENDIAN}
lwz r3, -12(r1)
{$else}
lwz r3, -16(r1)
{$endif}
end;
procedure setFPSCR(newFPSCR : DWord); assembler; nostackframe;
asm
stw r3, -8(r1)
lfd f0, -12(r1)
{$ifdef FPC_BIG_ENDIAN}
stw r3, -12(r1)
{$else}
stw r3, -16(r1)
{$endif}
lfd f0, -16(r1)
mtfsf 255, f0
end;