[fpc-devel]BUG in BASEGO32 snapshot 18:18:52 Fri 17/11/00 (322)

[Jonas Maebe]

>GraphiX is currently a quite good "Bug-Finder for FPC", not a graphics
>library ...
>I'm not happy about that ...
>
>VAR x,y:dword;
>
>BEGIN
>  x:=1000;
>  y:=((x DIV 1000) SHL 28)+   { $10000000 }
>     ((x DIV 1000) SHL 24)+   { $01000000 }
>     ((x DIV 1000) SHL 20);   { $00100000 }
>  writeln('the result is ',y);
>  writeln('but it should be 286261248 = $11100000');

Fixed. It was also buggy in the fixes branch btw, I introduced that bug 
while fixing something else.


Jonas