Тут на днях столкнулся и подзатупил, посему родился утренний квиз

Question

Тут на днях столкнулся и подзатупил, посему родился утренний квиз

для вас: почему значения равны и как исправить?
var a: Integer := 1 shl 1;
var b: Int64 := 1 shl 33;

if (a <> b) then
ShowMessage('Good.')
else
ShowMessage('Something''s wrong.');

#lazarus #programming #russian

0

27.07.2022

3 ответов

23 просмотра

Александр (Rouse_) Багель

Я когда статью по реализации собственного отладчика писал, там флаги регистровые описывал и наткнулся на вот такое: const DR_SIZE_DWORD = 3; DR7_SIZE_DR3_D = DR_SIZE_DWORD shl 30; // должно быть $C0000000 Под Delphi7 там было какое-то левое число :)

0

27.07.2022

zamtmn

Александр (Rouse_) Багель
Я когда статью по реализации собственного отладчик...

Это все неоднозначно

0

27.07.2022