mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 22:07:56 +02:00
23 lines
478 B
ObjectPascal
23 lines
478 B
ObjectPascal
unit uw2738;
|
|
|
|
{$mode Delphi}
|
|
interface
|
|
|
|
Type
|
|
T8087Exception = (emInvalidOp, emDenormalizedOperand, emZeroDivide, emOverflow,
|
|
emUnderflow, emPrecision);
|
|
T8087Exceptions = set of T8087Exception;
|
|
|
|
|
|
function SetMasked8087Exceptions(Exceptions: T8087Exceptions; ClearBefore: Boolean = True): T8087Exceptions;
|
|
|
|
implementation
|
|
|
|
function SetMasked8087Exceptions(Exceptions: T8087Exceptions; ClearBefore: Boolean): T8087Exceptions;
|
|
|
|
begin
|
|
writeln('blaat called me');
|
|
end;
|
|
|
|
end.
|