瀏覽代碼

* changed one typecast too many in r14180

git-svn-id: trunk@14183 -
Jonas Maebe 15 年之前
父節點
當前提交
b9f07ff1fb
共有 1 個文件被更改,包括 1 次插入1 次删除
  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