--- Merging r33201 into '.':

U    tests/webtbs/tw29620.pp
--- Recording mergeinfo for merge of r33201 into '.':
 U   .
--- Merging r33204 into '.':
G    tests/webtbs/tw29620.pp
--- Recording mergeinfo for merge of r33204 into '.':
 G   .

git-svn-id: branches/fixes_3_0@33586 -

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
+ if x<>10714414483604159172 then
    halt(1);
  x:=y*uint64($8000000000000000);
- if x<>(uint64(123) shl 63) then
+ if x<>(uint64(12) shl 63) then
    halt(2);
 end.