Преглед на файлове

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