Linked List within a record?

Linked List within a record?

[Alvin A Begaye]

Why won't this work

package MyList is new gen_linked_list( Integer, "=" );

type arggh is record
  ID          : Integer;
  IntList     : MyList.List;
end record;


when i compile i get. completion of nonlimited type cannot be limited.

is there a way to do this?


-- 
Alvin Al Begaye -*- (520)523-7875 -*- aab@pine.cse.nau.edu

Re: Linked List within a record?

[James A. Krzyzanowski]

Alvin A Begaye (aab@pine.cse.nau.edu) wrote:

: Why won't this work

: package MyList is new gen_linked_list( Integer, "=" );

: type arggh is record
:   ID          : Integer;
:   IntList     : MyList.List;
: end record;


: when i compile i get. completion of nonlimited type cannot be limited.

: is there a way to do this?

I'm assuming type List must be limited private which means that any type
that uses type List as a component must also be limited private.

type arggh is limited private;

private

  type arggh is ...

end;

--
Not necessarily the opinion of the company...
--
---------------------------------------------------------------------------
         James A. Krzyzanowski - Senior Software Engineer - AFATDS
Magnavox Electronic Systems Company * Fort Wayne, IN 46808 * (219) 429-6446
Internet: jakrzy@most.fw.hac.com * AOL: JimShiz@AOL.com * MOST: jakrzy@most
     "I'd rather be right than politically correct !!!" - Rush is Right
---------------------------------------------------------------------------

Re: Linked List within a record?

[Jerome Desquilbet]

Alvin A Begaye wrote:
> 
> Why won't this work
> 
> package MyList is new gen_linked_list( Integer, "=" );
> 
> type arggh is record
>   ID          : Integer;
>   IntList     : MyList.List;
> end record;
> 
> when i compile i get. completion of nonlimited type cannot be limited.
> 
> is there a way to do this?
> 
> --
> Alvin Al Begaye -*- (520)523-7875 -*- aab@pine.cse.nau.edu

I understand that your Gen_Linked_List generic package declares the
generic type Gen_Linked_List.List formal parameter as being limited
private. In that case, you can't use it as a record component type
(assignment issues). The only workaround is to use an access to this
type. Like this:

    type List_Access_Type is access MyList.List;
    type Hggra is
        record
            Id              : Integer;
            Int_List_Access : List_Access_Type;
        end record;

Of course, you'll have a manage your self allocations and deallocations
of objects of type List_Access_Type.

  Jerome.