array for all tasks

array for all tasks

[Ratson Janiv]

Hi,
I have a task with 3entries.
The first entry set an array size:
accept Start(Array_Size:Natural);
declare

Arr_Checks : Arr2(1..Array_Size);

begin ...

The other 2 tasks need to use this array.
how do I implement that, so the other tasks will also know and may use the
array?
10x?

Re: array for all tasks

[Martin Dowie]

"Ratson Janiv" <janiv@013.net.il> wrote in message
news:3fe43a4c$1@news.barak.net.il...
> Hi,
> I have a task with 3entries.
> The first entry set an array size:
> accept Start(Array_Size:Natural);
> declare
>
> Arr_Checks : Arr2(1..Array_Size);
>
> begin ...
>
> The other 2 tasks need to use this array.
> how do I implement that, so the other tasks will also know and may use the
> array?
> 10x?

Sounds like you need a protected type/object rather than a task to ensure
data protection. Using a task for this sort of thing (while possible, as per
Ada83) is inefficient.

Re: array for all tasks

[Martin Krischik]

Ratson Janiv wrote:

> Hi,

> I have a task with 3entries.
> The first entry set an array size:
> accept Start(Array_Size:Natural);
> declare
> 
> Arr_Checks : Arr2(1..Array_Size);
> 
> begin ...
> 
> The other 2 tasks need to use this array.
> how do I implement that, so the other tasks will also know and may use the
> array?

Arr_Checks'Length
Arr_Checks'First
Arr_Checks'Last

But do read about protected object before continuing. As other posters
pointed out protected objects might be better. I certanly would use a
protected object. You might also look at how I have solved a similar
problem:

http://adacl.sourceforge.net/html
______Include__AdaCL-Queue-Protect__adb.htm
http://adacl.sourceforge.net/html/______Include__AdaCL-Queue-Tasked__adb.htm

With Regards

Martin
-- 
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com