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

* changed one typecast too many in r14180

Browse Source 
git-svn-id: trunk@14183 -
This commit is contained in:
Jonas Maebe 2009-11-15 13:43:18 +00:00
parent 099ceb9574
commit b9f07ff1fb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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