MikroPascal and MikroBasic BIT LOGICAL OPERATION

[yo2lio]

Hello,

This code don't work in MikroPascal and MikroBasic but work OK in MC :

Code: Select all

program Test_mp8_1_Bit_Logical_Operation;
      
var d1,d2 : byte;

begin
  d1 := %00000011;
  d2 := %00000000;
  nop;
  if (d1.1 <> d2.1) and (d1.1 = 1) then d2.7 := 1;
end.

For first bit program works OK :

Code: Select all

  if (d1.0 <> d2.0) and (d1.0 = 1) then d2.7 := 1;

Tested also in MC and works :

Code: Select all

unsigned short d1;
unsigned short d2;

void main(){
  d1 = 0b00000011;
  d2 = 0b00000000;
  asm {nop}
  if ((d1.F1 != d2.F1) & (d1.F1 = 1)) d2.F7 = 1;
}

[zristic]

Thanks, we will check it out.

[zristic]

Problem detected and fixed.
Thanks.