Subversion Repositories openrisc

package body Dse_Step is

   procedure Do_Step (This : in out Counter) is

   begin

      This.Value := This.Value + This.Step;

   end;

   procedure Step_From (Start : in My_Counter) is

      Lc : My_Counter := Start;

   begin

      while Nsteps > 0 loop

         Do_Step (Lc);

         Nsteps := Nsteps - 1;

      end loop;

      Mv := Lc.Value;

   end;

end;