17 lines
185 B
ObjectPascal
17 lines
185 B
ObjectPascal
unit frxFPUMask;
|
|
|
|
interface
|
|
|
|
uses Math;
|
|
|
|
{$I frx.inc}
|
|
var
|
|
OriginalExceptionMask: TFPUExceptionMask;
|
|
|
|
implementation
|
|
|
|
initialization
|
|
OriginalExceptionMask := GetExceptionMask;
|
|
|
|
end.
|