paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 22:41:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed runerror for invalid operation

Browse Source
This commit is contained in:
florian 2004-08-08 09:36:09 +00:00
parent 1479624d73
commit 02310c99e2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/linux/i386/sighnd.inc
View File

@ -56,10 +56,8 @@ begin
res:=206
else if (FpuState and FPU_Denormal)<>0 then
res:=216
else if (FpuState and (FPU_StackOverflow or FPU_StackUnderflow))<>0 Then
else if (FpuState and (FPU_StackOverflow or FPU_StackUnderflow or FPU_Invalid))<>0 Then
res:=207
else if (FpuState and FPU_Invalid)<>0 then
res:=216
else
res:=207; {'Coprocessor Error'}
end;
@ -77,7 +75,10 @@ end;
{
$Log$
Revision 1.3 2004-02-05 01:16:12 florian
Revision 1.4 2004-08-08 09:36:09 florian
* fixed runerror for invalid operation
Revision 1.3 2004/02/05 01:16:12 florian
+ completed x86-64/linux system unit
Revision 1.2 2003/11/01 01:58:11 marco
@ -86,4 +87,3 @@ end;
Revision 1.1 2003/11/01 01:27:20 marco
* initial version from 1.0.x branch
}