HELP : linked lists in ADA

[Richard.Clavelier@scinfo.u-nancy.fr (Richard Clavelier)]

  Hello,

We have to create a forward and backward linked list in Ada.

We have the following program (simplified here) :
---------------------------------------------------------------------------

task type CELL is
   entry X_IN (in_v : in INTEGER);
   entry Y_OUT;
end CELL;

type CELLULE is
record
  T : CELL;
end record;

type CELLPOINTER is access CELLULE;

task body CELL is
  forwardLink : CELLPOINTER;
  backwardLink : CELLPOINTER;
begin
[...]
	forwardLink := new CELLULE;
	  -- we should give the new cell a pointer to "this"
	-- backwardLink := a pointer to the previous cell
[...]
end CELL;
---------------------------------------------------------------------------

We have no problem for the forward link, but for the backward link, we
need to know the reference of the current
task ("Current" in Eiffel, "this" in C++), to be able to pass it to the task
that we create...

Does anyone know the solution ? HELP !!!

	Richard

PS: We don't want an object oriented solution.