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

+ correct setting of FPU exception mask

Browse Source
This commit is contained in:
florian 2005-01-04 16:46:38 +00:00
parent 717e3c76c2
commit 28a1c72885
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/arm/arm.inc
View File

@ -22,7 +22,8 @@ procedure fpc_cpuinit;
begin
asm
rfs r0
orr r0,r0,#0x1f0000
and r0,r0,#0xffe0ffff
orr r0,r0,#0x00020000
wfs r0
end;
end;
@ -122,7 +123,10 @@ end;
{
$Log$
Revision 1.7 2004-03-23 21:03:10 florian
Revision 1.8 2005-01-04 16:46:38 florian
+ correct setting of FPU exception mask
Revision 1.7 2004/03/23 21:03:10 florian
+ assembler implementation of fpc_mul_qword
* fpu exceptions are now generated