소스 검색

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