算术按位右移“a shr b”,带有存储在变量中的有符号整数 – 错误的结果！内部Delphi的错误？

我有一个问题(或更可能是一个错误报告)关于位移位行为在Delphi(测试在Borland德尔福7)。

目标：对任意数字执行“算术”向右移位。

这意味着符号位必须被扩展 – 如果数字的最高有效位被设置，二进制数将从1开始填充，而不是0。

因此，在算术移位之后的数字“-1”必须保持相同的数(所有位= 1)，但是“逻辑移位”(其总是用零填充数)必须给出最大正整数(最大正有符号整数，要正确)

我测试它只在32位系统(Windows);此外，我需要它明确地工作与32位整数。

看起来在Delphi中有一个内部错误，当源数字存储在一个变量中时为“shr”。

我的示例代码：

program bug;

{$APPTYPE CONSOLE}

var
I:Integer;
C:Cardinal;

begin
I := -1;  // we’ll need that later
C := $FFFFFFFF;

(这只是开始)。接下来，让我们尝试一些“shr”：

Writeln('0) ',-1 shr 1 );
Writeln('1) ',$FFFFFFFF shr 1 );

“-1”是等价于“$ FFFFFFFF”的签名。似乎“shr”行为(算术或逻辑)是基于源数字是有符号还是不是(整数或基数)的事实。

输出为：

0) -1
1) 2147483647

非常正确。然后我需要尝试手动将这些数字转换为整数或红雀：

Writeln('2) ',Integer(-1) shr 1 );
Writeln('3) ',Integer($FFFFFFFF) shr 1 );
Writeln('4) ',Cardinal(-1) shr 1 );
Writeln('5) ',Cardinal($FFFFFFFF) shr 1 );

结果：

2) -1
3) -1
4) 2147483647
5) 2147483647

仍然正确。所以，我认为如果我需要算术移位，我可以把任何东西转换为“整数”;或者当我想要逻辑移位时转换为“基数”。可是等等！带变量的示例(如上所述)：

Writeln('6) ',I shr 1 );
Writeln('7) ',C shr 1 );

突然：

6) 2147483647
7) 2147483647

不正确。我的“I”是一个有符号整数，我期待算术移位！所以，也许铸造可以帮助？

Writeln('8) ',Integer(I) shr 1 );
Writeln('9) ',Cardinal(I) shr 1 );
Writeln('A) ',Integer(C) shr 1 );
Writeln('B) ',Cardinal(C) shr 1 );

不，还是一样的…

8) 2147483647
9) 2147483647
A) 2147483647
B) 2147483647

如果我尝试创建一个函数“a shr b”并使用它，情况会更糟：

// Simple shift right with signed integers
function shrI(a,b:Integer):Integer;
begin
Result := a shr b;
end;

// Simple shift right with unsigned integers
function shrC(a,b:Cardinal):Cardinal;
begin
Result := a shr b;
end;

现在：

Writeln('C) ',shrI(-1,1) );
Writeln('D) ',shrC($FFFFFFFF,1) );

– 它停止工作，即使使用常量表达式：(这是有道理的，因为数字再次存储在函数内的变量)

C) 2147483647
D) 2147483647

因为我需要进行正确的算术移位，我写了这些公式来做这个(将“a”右移“b”位)。首先是逻辑转移：

(a shr b) and ((1 shl (32-b))-1)

我只需要按位，结果与“32 – b”(从右)清除“b”左位，如果“shr”失败，我做了算术移位(没有例子说明这一点，但只是为了当然)。然后算术移位：

(a shr b) or (( 0-((a shr 31) and 1)) shl (32-b))

我需要按位或结果从左边的“b”，但只有当最高有效位被设置;首先我使用“(a shr 31)和1”符号位，然后否定这个数字以获得“-1”(或$ FFFFFFFF – 所有位= 1)，如果源为负，否则为0否则“0-x”而不是“-x”，因为在我的C端口在某些情况下bcc32 C编译器报告绑定以取消无符号整数的警告);最后我把它移到“32 – b”左边，所以我得到了我想要的，即使“shr”失败，并给出零。我做了两个版本的每个函数来处理整数和红衣主教(也可以共享名称和“超载”他们为我，但在这里我不会这样做，以保持示例清晰)：

// Logical shift right with signed integers
function srlI(a,b:Integer):Integer;
begin
Result := (a shr b) and ((1 shl (32-b))-1);
end;

// Arithmetic shift right with signed integers
function sraI(a,b:Integer):Integer;
begin
Result := (a shr b) or (( 0-((a shr 31) and 1)) shl (32-b));
end;

// Logical shift right with unsigned integers
function srlC(a,b:Cardinal):Cardinal;
begin
Result := (a shr b) and ((1 shl (32-b))-1);
end;

// Arithmetic shift right with unsigned integers
function sraC(a,b:Cardinal):Cardinal;
begin
Result := (a shr b) or (( 0-((a shr 31) and 1)) shl (32-b));
end;

测试：

Writeln('E) ',sraI(-1,1) );
Writeln('F) ',srlI(-1,1) );
Writeln('G) ',sraC($FFFFFFFF,1) );
Writeln('H) ',srlC($FFFFFFFF,1) );

并得到完美的结果：

E) -1
F) 2147483647
G) 4294967295
H) 2147483647

(G-case仍然是正确的，因为“4294967295”是“-1”的无符号版本)

使用变量的最终检查：

Writeln('K) ',sraI(I,1) );
Writeln('L) ',srlI(I,1) );
Writeln('M) ',sraC(C,1) );
Writeln('N) ',srlC(C,1) );

完善：

K) -1
L) 2147483647
M) 4294967295
N) 2147483647

对于这个bug，我也试图改变第二个数字(移位量)到一个变量和/或尝试不同的铸造它 – 相同的bug存在，看起来像它不与第二个参数相关。并试图把结果(整数或基数)之前输出没有改善任何东西。

为了确保我不只是一个有错误的人，我试图运行我的整个例子在http://codeforces.com/(有一个注册用户可以编译和执行一段代码在不同的语言和服务器端的编译器)看到输出。

“Delphi 7”编译器给了我什么我有 – bug存在。替代选项，“Free Pascal 2”显示更多错误的输出：

0) 9223372036854775807
1) 2147483647
2) 9223372036854775807
3) 9223372036854775807
4) 2147483647
5) 2147483647
6) 2147483647
7) 2147483647
8) 2147483647
9) 2147483647
A) 2147483647
B) 2147483647
C) 2147483647
D) 2147483647
E) -1
F) 2147483647
G) 4294967295
H) 2147483647
K) -1
L) 2147483647
M) 4294967295
N) 2147483647

在情况0-2-3(有“-1”，“Integer(-1)”和“Integer($ FFFFFFFF)”不记得)中奇怪“9223372036854775807”。

这里是我在Delphi的整个例子：

program bug;

{$APPTYPE CONSOLE}

// Simple shift right with signed integers
function shrI(a,b:Cardinal):Cardinal;
begin
Result := a shr b;
end;

// Logical shift right with signed integers
function srlI(a,b:Cardinal):Cardinal;
begin
Result := (a shr b) or (( 0-((a shr 31) and 1)) shl (32-b));
end;

var
I:Integer;
C:Cardinal;

begin
I := -1;
C := $FFFFFFFF;

Writeln('0) ',$FFFFFFFF shr 1 );
// 0) -1           - correct
// 1) 2147483647   - correct

Writeln('2) ',Integer($FFFFFFFF) shr 1 );
// 2) -1           - correct
// 3) -1           - correct

Writeln('4) ',Cardinal($FFFFFFFF) shr 1 );
// 4) 2147483647   - correct
// 5) 2147483647   - correct

Writeln('6) ',C shr 1 );
// 6) 2147483647   - INCORRECT!
// 7) 2147483647   - correct

Writeln('8) ',Cardinal(I) shr 1 );
// 8) 2147483647   - INCORRECT!
// 9) 2147483647   - correct

Writeln('A) ',Cardinal(C) shr 1 );
// A) 2147483647   - INCORRECT!
// B) 2147483647   - correct

Writeln('C) ',1) );
// C) 2147483647   - INCORRECT!
// D) 2147483647   - correct

Writeln('E) ',1) );
// E) -1           - correct
// F) 2147483647   - correct

Writeln('G) ',1) );
// G) 4294967295   - correct
// H) 2147483647   - correct

Writeln('K) ',1) );
// K) -1           - correct
// L) 2147483647   - correct

Writeln('M) ',1) );
// M) 4294967295   - correct
// N) 2147483647   - correct

end.

然后我是curios，这个bug也存在于C吗？我写了一个端口到C和使用(Borland！)bcc32.exe来编译它。

结果：

0) -1
1) 2147483647
2) -1
3) -1
4) 2147483647
5) 2147483647
6) -1
7) 2147483647
8) -1
9) 2147483647
A) -1
B) 2147483647
C) -1
D) 2147483647
E) -1
F) 2147483647
G) 4294967295
H) 2147483647
K) -1
L) 2147483647
M) 4294967295
N) 2147483647

一切都好。这里是C版本，以防万一还想看看：

#include <iostream>
using namespace std;

// Simple shift right with signed integers
int shrI(int a,int b){
return a >> b;
}

// Simple shift right with unsigned integers
unsigned int shrC(unsigned int a,unsigned int b){
return a >> b;
}

// Logical shift right with signed integers
int srlI(int a,int b){
return (a >> b) & ((1 << (32-b))-1);
}

// Arithmetic shift right with signed integers
int sraI(int a,int b){
return (a >> b) | (( 0-((a >> 31) & 1)) << (32-b));
}

// Logical shift right with unsigned integers
unsigned int srlC(unsigned int a,unsigned int b){
return (a >> b) & ((1 << (32-b))-1);
}

// Arithmetic shift right with unsigned integers
unsigned int sraC(unsigned int a,unsigned int b){
return (a >> b) | (( 0-((a >> 31) & 1)) << (32-b));
}

int I;
unsigned int C;

int main(){
I = -1;
C = 0xFFFFFFFF;

cout<<"0) "<<( -1 >> 1 )<<endl;
cout<<"1) "<<( 0xFFFFFFFF >> 1 )<<endl;
// 0) -1           - correct
// 1) 2147483647   - correct

cout<<"2) "<<( ((int)(-1)) >> 1 )<<endl;
cout<<"3) "<<( ((int)(0xFFFFFFFF)) >> 1 )<<endl;
// 2) -1           - correct
// 3) -1           - correct

cout<<"4) "<<( ((unsigned int)(-1)) >> 1 )<<endl;
cout<<"5) "<<( ((unsigned int)(0xFFFFFFFF)) >> 1 )<<endl;
// 4) 2147483647   - correct
// 5) 2147483647   - correct

cout<<"6) "<<( I >> 1 )<<endl;
cout<<"7) "<<( C >> 1 )<<endl;
// 6) -1           - correct
// 7) 2147483647   - correct

cout<<"8) "<<( ((int)(I)) >> 1 )<<endl;
cout<<"9) "<<( ((unsigned int)(I)) >> 1 )<<endl;
// 8) -1           - correct
// 9) 2147483647   - correct

cout<<"A) "<<( ((int)(C)) >> 1 )<<endl;
cout<<"B) "<<( ((unsigned int)(C)) >> 1 )<<endl;
// A) -1           - correct
// B) 2147483647   - correct

cout<<"C) "<<( shrI(-1,1) )<<endl;
cout<<"D) "<<( shrC(0xFFFFFFFF,1) )<<endl;
// C) -1           - correct
// D) 2147483647   - correct

cout<<"E) "<<( sraI(-1,1) )<<endl;
cout<<"F) "<<( srlI(-1,1) )<<endl;
// E) -1           - correct
// F) 2147483647   - correct

cout<<"G) "<<( sraC(0xFFFFFFFF,1) )<<endl;
cout<<"H) "<<( srlC(0xFFFFFFFF,1) )<<endl;
// G) 4294967295   - correct
// H) 2147483647   - correct

cout<<"K) "<<( sraI(I,1) )<<endl;
cout<<"L) "<<( srlI(I,1) )<<endl;
// K) -1           - correct
// L) 2147483647   - correct

cout<<"M) "<<( sraC(C,1) )<<endl;
cout<<"N) "<<( srlC(C,1) )<<endl;
// M) 4294967295   - correct
// N) 2147483647   - correct

}

在发布之前，我试图搜索这个问题，并没有发现任何提到这个bug。我也看了这里：What is the behaviour of shl and shr for non register sized operands?和这里：Arithmetic Shift Right rather than Logical Shift Right – 但有其他问题讨论(编译器内部转换任何类型到32位数字之前做实际的移位;或移位超过31位)，但不是我的错误。

但等等，这里是我的问题：http://galfar.vevb.net/wp/2009/shift-right-delphi-vs-c/！

有一句话：他们说 –

In Delphi the SHR is always a SHR operation: it never takes into account the sign.

但是我的例子表明，Delphi确实考虑到符号，但只有当源号是一个常量表达式，而不是一个变量。因此，“-10 shr 2”等于“-3”，但是当“x：= – 10”时，“x shr 2”等于“1073741821”。

所以我认为这是一个bug，而不是一个“行为”，“shr”总是逻辑。你看，不总是。
尝试启用/禁用任何编译器选项，如范围检查或优化没有更改任何内容。

此外，在这里我发布了如何绕过这个问题的例子，并有正确的算术移位权。我的主要问题是：我是对吗？

看起来在Delphi中左移总是好的(它从来不使用原始符号位，而不是“未定义”：对于有符号整数，它在转换之前表现为转换为基数，并将结果转换回整数 – 数字可能突然变为负数课程)。但现在我不知道，在Delphi中有没有其他类似的错误？这是我在Delphi 7中发现的第一个真正重要的错误。我喜欢Delphi超过C，因为我总是确保我的代码是每次做我想要的，没有调试测试每一个新的不寻常的代码，我即将写入(IMHO)。

P.S。这里有一些有用的链接，StackOverflow系统建议我，当我在打印这个问题之前输入我的标题。再次，有趣的信息，但不是关于这个bug：

Arithmetic bit-shift on a signed integer
Signed right shift = strange result?
Bitwise shift operators on signed types
Should you always use ‘int’ for numbers in C,even if they are non-negative?
Bitwise operation on signed integer
Verifying that C/C++++ signed right shift is arithmetic for a particular compiler?
Emulating variable bit-shift using only constant shifts?

P.P.S.非常感谢Stack Exchange Team在发布这篇文章方面的帮助。伙计们，你摇滚！

Writeln('0) ',-1 shr 1 );

var
  i: Integer;
....
i := -1;
Writeln(-1 shr 1);
Writeln( i shr 1);

2147483647
2147483647