PPT Slide
procedure SHIPS is
task type SHIP ;
type SHIP_PTR is access SHIP ;
type ELEMENT . . . . . ;
type FLEET is access ELEMENT ;
type ELEMENT is
record
INDEX : INTEGER ;
S : SHIP_PTR ;
NEXT : FLEET ;
end record ;
HEAD, C : FLEET := null ;
task body SHIP is separate ;
begin
for K in 1 . . . 100 loop
C := new ELEMENT (K, new SHIP, C) ;
HEAD := C ;
end loop
exit when all tasks complete
end SHIPS
DYNAMIC LIST OF PROCESSES
Previous slide
Next slide
Back to first slide
View graphic version