TestBit BUG

[yo2lio]

This program not working when data is declared short and bit is 7.

Code: Select all

program test;

var data2 : byte;
    
procedure xxx(data : short; var data1 : byte);
begin
  if Testbit(data,7) = 1 then data1 := 1
  else data1 := 0;
end;

begin
  xxx(-80,data2); // Bit 7 from data is set
end.

Work around :

Code: Select all

program test;

var data2 : byte;
    
procedure xxx(data : short; var data1 : byte);
var buf : byte;
begin
  buf := data;
  if Testbit(buf,7) = 1 then data1 := 1
  else data1 := 0;
end;

begin
  xxx(-80,data2); // Bit 7 from data is set
end.

[zristic]

Thanks, we will check/fix it.

[zristic]

Fixed, thanks.