Re: Ada tasking question

["Steve" <nospam_steved94@comcast.net>]

"Stefan Bellon" <sbellon@sbellon.de> wrote in message 
news:20070419004345.171ee93e@cube.tz.axivion.com...
> Jeffrey R. Carter wrote:
>
[snip]
> Yes, in fact I already implemented it this way before I saw your
> posting. :-)
>
>   protected Bucket_Jobs is
>      procedure Init (Index : in Integer);
>      entry Next (Index : out Integer);
>   private
>      Current : Integer;
>   end Bucket_Jobs;
>
>   protected body Bucket_Jobs is
>      procedure Init (Index : in Integer) is
>      begin
>         Current := Index;
>      end Init;
>
>      entry Next (Index : out Integer) when True is
>      begin
>         Index := Current;
>         Current := Current + 1;
>      end Next;
>   end Bucket_Jobs;
>

If you don't mind sacraficing portability, some systems have an "Interlocked 
Increment" function that is a very lightweight option for implementing this 
functionality.  On x86 architecture it basically maps to a hardware 
instruction that locks the bus while incrementing and returns the result.

Regards,
Steve
(The Duck)

>
> -- 
> Stefan Bellon