Баг?

[Mirage]

Только что засабмитил баг (еле нашел как).
И тут подумал - может он уже починен давно? У меня FPC 2.0.2.

Код: Выделить всё

program test;
var a, b: Boolean; s: Single;
begin
  a := False; b := True;
  s := 0.1;
  writeln((Ord(a)-Ord(b)) * s);
end.


Выдает 4.2949673590000000E+0008, вместо -0.1.

На более свежих тоже так?

[Илья Аввакумов]

У меня тоже FPC 2.0.2, но выдает
-1.000000015E-01

[Mirage]

Категорически странно... Сейчас на 1.9.8 проверил - тоже работает как надо. Пришло время качать новый билд...

[@lex]

Прикольно! А может попробовать попрописывать разные {$mode ???} или какие-нибудь ещё настройки компилятора поменять.
У меня тоже всё нормально: -1.000000015E-01
Это в версии 2.0.2, а 2.0.4 скачал, но ещё не устанавливал...

[Mirage]

На самом деле у меня была большая путаница в FPC версиях на винте. Этот 2.0.2 я обновил когда-то через SVN и видимо он стал 2.1.1. О чем честно пишет. Так что глюк на самом деле в 2.1.1.
Но воспроизвести его на 2.1.1 тоже не смогли, хотя у меня стабильно воспроизводится.

Но в 2.0.4 его уже нет, так что неважно.