Explorar o código

* changed one typecast too many in r14180

git-svn-id: trunk@14183 -
Jonas Maebe %!s(int64=15) %!d(string=hai) anos
pai
achega
b9f07ff1fb
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      tests/test/units/math/tmask.inc

+ 1 - 1
tests/test/units/math/tmask.inc

@@ -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