[fpc-pascal]Double-precision recursion
Jonas
jonas at zeus.rug.ac.be
Fri Mar 30 11:30:01 CEST 2001
On Friday, March 30, 2001, at 12:16 AM, Rich Pasco wrote:
> Runtime error 207 a catch-all for various FPU exceptions, such as
> divide-by-zero, numerical overflow, and FPU stack overflow.
That is incorrect (from the unix system unit):
if (FpuState and $7f) <> 0 then
begin
{ first check the more precise options }
if (FpuState and FPU_DivisionByZero)<>0 then
res:=200
else if (FpuState and FPU_Overflow)<>0 then
res:=205
else if (FpuState and FPU_Underflow)<>0 then
res:=206
else if (FpuState and FPU_Denormal)<>0 then
res:=216
else if (FpuState and (FPU_StackOverflow or FPU_StackUnderflow))<
res:=207
else if (FpuState and FPU_Invalid)<>0 then
res:=216
else
res:=207; {'Coprocessor Error'}
end;
Jonas
More information about the fpc-pascal
mailing list