Delphi, Asm, C, WinAPI, PHP, ..., FAQ Опции

[-=CHE@TER=-]

Delphi programs in API.
На английском.
Очень подробно всё описано, плюс есть исходные коды готовых юнитов.
Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял).

[-=CHE@TER=-]

Товарищи, объясните мне кто-нибудь такой феномен:

CODE

Program bitstest;
{$APPTYPE CONSOLE}
Var X: Cardinal;
Begin
  X:=123;
  X:=X ShR 32; // Должно быть 0...
  WriteLn(X); // Но остаётся 123 как и было!..
End.

X ShR 32 (X >> 32) должно быть 0, т.к. X переменная 32-х разрядная. Но дело в том, что эта операция не работает!
Если сделать X >> 31 - то всё ок, но 32 просто ничего не делает - X не изменяется!
Сейчас даже на FASM программу написал - такой же результат.
Это что за багофича такая?!..

Кстати, если на Си такое сделать, то результат не изменится, но будет предупреждение:
warning: right shift count >= width of type

Просто есть формула:
X:=X ShR (32 - BITS);
Которая при BITS = 0, должна давать 0, но из-за этого косяка получается фигня...

Кто-нибудь может объяснить почему так? Я ещё понимаю, когда сдвиг больше размера типа, но когда равно - должен же 0 быть?..

Добавлено:
Ну, трындец просто (взято отсюда):

most popular CPUs have only 5 bit shift counts

Офигеть!!!
И ещё (примерно оттуда же):

shift count from 0 up to the number of bits in the register-1

Слов нет - одни эмоции.

[Grom PE]

-=CHE@TER=-

Ну дык, процессор так работает, x shr y на самом деле x shr (y mod 32).
Надо обнулить переменную, так и пиши =)

Точнее, x shr (y and 11111b), что и составляет 5 бит маски.
Intel