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

* added SysResetFPU, which is required for MorphOS

Browse Source 
git-svn-id: trunk@1279 -
This commit is contained in:
Károly Balogh 2005-10-03 22:49:44 +00:00
parent 28381b1287
commit ccc29a13f3
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/morphos/system.pp
View File

@ -303,6 +303,7 @@ end;
begin begin
SysResetFPU;
IsConsole := TRUE; IsConsole := TRUE;
IsLibrary := FALSE; IsLibrary := FALSE;
StackLength := InitialStkLen; StackLength := InitialStkLen;

14
rtl/powerpc/powerpc.inc
View File

@ -1147,3 +1147,17 @@ asm
end; end;
{$IFDEF MORPHOS}
{ this is only required for MorphOS }
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
procedure SysResetFPU;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
var tmp: array[0..1] of dword;
asm
{ setting fpu to round to nearest mode }
li r3,0
stw r3,8(r1)
stw r3,12(r1)
lfd f1,8(r1)
mtfsf 7,f1
end;
{$ENDIF}