浏览代码

- removed overflow, so the test also works with constant propagation and -Co

git-svn-id: trunk@33201 -
Jonas Maebe 9 年之前
父节点
当前提交
70cd8f6e59
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/webtbs/tw29620.pp

+ 2 - 2
tests/webtbs/tw29620.pp

@@ -1,12 +1,12 @@
 var x:uint64;
     y:longword;
 begin
- y:=123;
+ y:=12;
  x:=y*uint64(10116239910488455739);
  if x<>8365656051540097625 then
    halt(1);
  x:=y*uint64($8000000000000000);
- if x<>(uint64(123) shl 63) then
+ if x<>(uint64(12) shl 63) then
    halt(2);
 end.