On 04/05/2026 22:34, Ondrej Pokorny via fpc-devel wrote:
I tried to switch overflow checks off:
{$OVERFLOWCHECKS OFF}
But obviously it doesn't help (it's a different exception).
AFAIK:
You need to use SetExceptionMask, I think the below example should do:
procedure DisableFloatExceptions;
begin
if FloatExceptionLock = 0 then begin
EM := GetExceptionMask;
SetExceptionMask(EM + [exInvalidOp, exDenormalized, exZeroDivide,
exOverflow, exUnderflow, exPrecision]);
end;
inc(FloatExceptionLock);
end;
procedure EnableFloatExceptions;
begin
dec(FloatExceptionLock);
if FloatExceptionLock <= 0 then begin
FloatExceptionLock := 0;
ClearExceptions(False);
SetExceptionMask(EM);
end;
end;
_______________________________________________
fpc-devel maillist - [email protected]
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
