codeb/intelli_15.0

   1 struct x end;
   2
   3 method m1(size)
   4         var x:= size - (-10);
   5         x := (x * 0) - 20;
   6         var i:= 0;
   7         while not (i = size) do
   8                 if i < 1 then
   9                         (this - (i * -8)).x := (this - (i * -8)).x - (-20);
  10                 else
  11                                         (this - (i * -8)).x := (this - ((i - 1) * -8)).x or 128;
  12                                 end;
  13                                 i := i - -1;
  14         end;
  15         return x;
  16 end;
  17
  18 method m2(y)
  19         if 100 < y then
  20                         return 0;
  21                 end;
  22                 var x := -10;
  23                 while x < y do
  24                         x := x * -2;
  25                 end;
  26                 if y < 0 then
  27                         return -1 * x;
  28                 else
  29                         return 1 * x;
  30                 end;
  31 end;
  32