mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
ed03286be5
also because "div -1" is not handled correctly by the div-to-mul/shift
transformation on x86 (mantis #28702)
git-svn-id: trunk@32619 -
9 lines
137 B
ObjectPascal
9 lines
137 B
ObjectPascal
var
|
|
l: longint;
|
|
begin
|
|
l:=5;
|
|
{ dummy random to prevent constant propagation }
|
|
if ((l+random(1))div -1)<>-5 then
|
|
halt(1);
|
|
end.
|