shl - Bug in Delphi?

[scp]

Warum liefern diese zwei Bedingungen verschiedene Ergebnisse?

Delphi-Quellcode:

var
  edx : DWORD;
begin
  edx := $C1C3FBFF;
  if (edx and (1 shl 31)  ) = (1 shl 31)   then
    ShowMessage('shl: ja');
  if (edx and $80000000   ) = $80000000    then
    ShowMessage('hex: ja');
end;

(1 shl 31) entspricht doch $80000000 oder sehe ich da was falsch? Mit (1 shl 30) und $40000000 und allen anderen < 31 geht es doch auch.

[Christian Seehase]

Moin scp,

wenn Du es nicht ausdrücklich angibst, wird bei shl, wie bei fast allen anderen Operatoren, mit integer gearbeitet, also mit Vorzeichen.

So geht's:

Code:

if (edx and [color=red]DWORD[/color](1 shl 31)  ) = [color=red]DWORD[/color](1 shl 31)   then

Ausserdem hast Du wohl die Warnungen vom Compiler überlesen ;-)

[scp]

Doch so ein trivialer Fehler :-D Na dann belasse ich es bei dem $80000000, sieht eh besser aus.

[Christian Seehase]

Moin scp,

Zitat:

Zitat von scp

Na dann belasse ich es bei dem $80000000, sieht eh besser aus.

wenn es eh' immer ein fester Wert ist, dann ist es auch von der Performance her von Vorteil (wenn die Stelle öfter verwendet wird).