usr/share/fpcsrc/3.2.0/tests/test/opt/tcmov.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / opt / tcmov.pp

var
   l1,l2 : longint;
   w1,w2 : word;
   b1,b2 : byte;
   b : boolean;

begin
   if b then
     w1:=w2;
   if b then
     w1:=w2;
   if b then
     begin
        w1:=w2;
        l1:=l2;
     end;
   if b then
     w1:=w2
   else
     w2:=w1;
   {
   if b then
     begin
        w1:=w2;
        l1:=l2;
        b1:=b2;
     end;
   }
end.