[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