paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 16:41:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* set floating point precision and ieee compliance

Browse Source
This commit is contained in:
florian 2005-01-18 20:37:26 +00:00
parent 57a3738231
commit 8591d80cfc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/sparc/sparc.inc
View File

@ -42,7 +42,8 @@ procedure set_fsr(fsr : dword);assembler;
procedure fpc_cpuinit; procedure fpc_cpuinit;
begin begin
{ enable div by 0 and invalid operation fpu exceptions } { enable div by 0 and invalid operation fpu exceptions }
set_fsr(get_fsr or $09000000); { round towards zero; ieee compliant arithmetics }
set_fsr((get_fsr and $3fbfffff) or $09000000);
end; end;
@ -352,7 +353,10 @@ end;
{ {
$Log$ $Log$
Revision 1.16 2004-11-21 19:11:33 peter Revision 1.17 2005-01-18 20:37:26 florian
* set floating point precision and ieee compliance
Revision 1.16 2004/11/21 19:11:33 peter
* fix bootstrapping * fix bootstrapping
Revision 1.15 2004/11/21 15:35:23 peter Revision 1.15 2004/11/21 15:35:23 peter