paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-29 19:48:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed order of fpustate checking to first check the more

Browse Source 
specific states
This commit is contained in:
peter 2000-05-11 17:55:13 +00:00
parent 5f179d94fb
commit d3da3ecba4
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/syslinux.pp
View File

@ -755,16 +755,19 @@ begin
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
if (FpuState and $7f) <> 0 then if (FpuState and $7f) <> 0 then
begin begin
if (FpuState and FPU_Invalid)<>0 then { first check te more precise options }
res:=216 if (FpuState and FPU_DivisionByZero)<>0 then
else if (FpuState and FPU_Denormal)<>0 then
res:=216
else if (FpuState and FPU_DivisionByZero)<>0 then
res:=200 res:=200
else if (FpuState and FPU_Overflow)<>0 then else if (FpuState and FPU_Overflow)<>0 then
res:=205 res:=205
else if (FpuState and FPU_Underflow)<>0 then else if (FpuState and FPU_Underflow)<>0 then
res:=206 res:=206
else if (FpuState and FPU_Denormal)<>0 then
res:=216
else if (FpuState and (FPU_StackOverflow or FPU_StackUnderflow))<>0 then
res:=207
else if (FpuState and FPU_Invalid)<>0 then
res:=216
else else
res:=207; {'Coprocessor Error'} res:=207; {'Coprocessor Error'}
end; end;
@ -876,7 +879,11 @@ End.
{ {
$Log$ $Log$
Revision 1.46 2000-05-08 14:27:36 peter Revision 1.47 2000-05-11 17:55:13 peter
* changed order of fpustate checking to first check the more
specific states
Revision 1.46 2000/05/08 14:27:36 peter
* released newsignal * released newsignal
* newsignal gives now better backtraces using the sigcontext eip/ebp * newsignal gives now better backtraces using the sigcontext eip/ebp
fields fields