paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 12:49:41 +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 begin
asm asm
rfs r0 rfs r0
orr r0,r0,#0x1f0000 and r0,r0,#0xffe0ffff
orr r0,r0,#0x00020000
wfs r0 wfs r0
end; end;
end; end;
@ -122,7 +123,10 @@ end;
{ {
$Log$ $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 + assembler implementation of fpc_mul_qword
* fpu exceptions are now generated * fpu exceptions are now generated