fpcsrc/tests/test/opt/tcmov.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

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.