5 type Cont
is new Ada
.Finalization
.Controlled
with null record;
12 type A_Queue_Element
is access Queue_Element
;
13 type Queue_Element
is record
15 Next
: A_Queue_Element
;
18 type Queue
is limited record
20 Front
: A_Queue_Element
;
21 Back
: A_Queue_Element
;
24 procedure Copy
(dest
: in out Queue
; src
: Queue
);