paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation after r14177

Browse Source 
git-svn-id: trunk@14180 -
This commit is contained in:
Jonas Maebe 2009-11-15 11:17:37 +00:00
parent d267bb3280
commit ef66a2aec5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/units/math/tmask.inc
View File

@ -18,9 +18,9 @@ if not caught then
writeln('Masking exceptions');
writeln(integer(SetExceptionMask([exDenormalized,exInvalidOp,exOverflow,exPrecision,exUnderflow,exZeroDivide]))); //Returns 61, as expected
writeln(byte(SetExceptionMask([exDenormalized,exInvalidOp,exOverflow,exPrecision,exUnderflow,exZeroDivide]))); //Returns 61, as expected
writeln(integer(GetExceptionMask)); //Returns 4 - unexpected???
writeln(integer([exZeroDivide])); //Returns 4
writeln(byte([exZeroDivide])); //Returns 4
caught := false;
try
@ -39,7 +39,7 @@ if caught then
writeln(integer(SetExceptionMask([exDenormalized,exInvalidOp,exOverflow,exPrecision,exUnderflow]))); //Returns 61, as expected
writeln(integer(GetExceptionMask)); //Returns 4 - unexpected???
writeln(integer([exZeroDivide])); //Returns 4
writeln(byte([exZeroDivide])); //Returns 4
caught := false;