mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:08:18 +02:00
099134b545
left (mantis #37878) o can happen if use_generic_mul32to64 returns false git-svn-id: trunk@47142 -
9 lines
107 B
ObjectPascal
9 lines
107 B
ObjectPascal
{$mode objfpc}
|
|
var i64: int64; w: word;
|
|
begin
|
|
{$Q+}
|
|
w := 4096;
|
|
i64 := 8191;
|
|
i64 := i64 - 2*int64(w);
|
|
end.
|