Баг shr

[SeZuka]

Обнаружил следующую странность:

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

program Project1;

var
   i: integer;

begin
  i := 55;
  WriteLn(66 shr 32);
  WriteLn(i shr 32);
end.

Результат:
0
55

То есть с константой ведет себя нормально, а с переменной для второго аргумента берется остаток от деления на 32, и соответственно для 32 получаем сдвиг вправо на 0, для 33 на 1 и т.д.
Проверьте у себя.
FPC 2.6.2

[Vadim]

SeZuka
Не могу сказать баг это или фича, но в данном случае могу посоветовать ставить после shr тоже переменную.

[Kemet]

В операциях сдвига x86 в операнде количества сдвигов учитываются только 5-ть младших битов. Поэтому 32 ничего никуда не сдвигает. В остальных случаях - результат зависит от состояния этих самых 5-ти бит.
Что касается константных выражений, насколько я помню(могу ошибаться), в FPC целые константы - 64-х битные.
Потому такие результаты

[ev]

2 SeZuka
просьба попробовать назвать тему в соответствии с п. 2.3 правил форума
и возможно надо купить новую клавиатуру (чтобы не дублировались символы вопроса)

[SeZuka]

Не могу сказать баг это или фича, но в данном случае могу посоветовать ставить после shr тоже переменную.

Как раз с переменной и обнаружил. Был такой код:

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

a := b shr (32 - c);

При c=0 ожидалось что будет a=0, но получилось a=b.

[zub]

туры в египет

Было веселой шуткой? или SeZuka технологичный бот ищущий баги в fpc и подмешивающий рекламу в багрепорты?

[Vadim]

a := b shr (32 - c);

Не так...
Лучше так:

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

d:=32-c;
a:=b shr d;

[SeZuka]

туры в египет

Было веселой шуткой? или SeZuka технологичный бот ищущий баги в fpc и подмешивающий рекламу в багрепорты?

Это модератор изменил название темы, на такое, первоначальное название "Баг???" его чем-то не устроило, согласен что не сильно информативное, но не писать же целиком сообщение в названии темы.

[Максим]

Найти ответ на вопрос о смысле жизни, Вселенной и всего такого можно здесь:
http://bugs.freepascal.org/view.php?id=24815

Чтобы оно вело себя с переменной так, как вы желаете, нужно привести переменную i к типу int64:

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

WriteLn(int64(i) shr 32);

[SeZuka]

Максим, спасибо, все стало ясно.