Re: Newbie: Code isn't executed

["Martin Dowie" <martin.dowie@baesystems.com>]

Thomas Ruschival wrote:
>    Total: Positive :=1000;
...
>       while Total > 0 loop
...
>          Total := Total-1;

Because Total is a Positive of range 1 .. Integer'Last, so it can never be 0
(it will raise an exception and dying silently...)

Total : Integer := 1000;

exception
   when others =>
      Put_Line ("Oops!");
end Susan;

would have stopped it being silent.

Also, sharing Total between the tasks is poor, it should be a protected
object.

And finally, what's wrong with Put_Line (instead of Put/New_Line pairs)?

Cheers

-- Martin