DataMuseum.dk

top - metrics - download

    Length: 4111 (0x100f)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

-- ada tasking tester
-- task head is the controller
-- tasks link are the chain of tasks
-- tasks idle are the standby tasks

with Instrument;
use Instrument;

procedure Tpitc1 is
    Dummy : Integer;

    task Head is
        entry Give;
    end Head;
    task Link1 is
        entry Give;
    end Link1;
    task Idle1 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle1;
    task Idle2 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle2;
    task Idle3 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle3;
    task Idle4 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle4;
    task Idle5 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle5;
    task Idle11 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle11;
    task Idle12 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle12;
    task Idle13 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle13;
    task Idle14 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle14;
    task Idle15 is
        entry Init;
        --  entry never;               -- included in test version
    end Idle15;
    task body Head is
    begin
        Start ("TPITC1", "Task Performance w/10 Idle Tasks (control)");
        Idle1.Init;
        Idle2.Init;
        Idle3.Init;
        Idle4.Init;
        Idle5.Init;
        Idle11.Init;
        Idle12.Init;
        Idle13.Init;
        Idle14.Init;
        Idle15.Init;
        Dummy := 0;
        for I in 1 .. 1000 loop
            Dummy := Dummy + 1;
            Link1.Give;
            accept Give do
                null;
            end Give;
        end loop;
        Stop;
        abort Link1, Idle1, Idle2, Idle3, Idle4, Idle5,
              Idle11, Idle12, Idle13, Idle14, Idle15;
    end Head;
    task body Link1 is
    begin
        loop
            accept Give do
                null;
            end Give;
            Head.Give;
        end loop;
    end Link1;
    task body Idle1 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle1;
    task body Idle2 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle2;
    task body Idle3 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle3;
    task body Idle4 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle4;
    task body Idle5 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle5;
    task body Idle11 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle11;
    task body Idle12 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle12;
    task body Idle13 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle13;
    task body Idle14 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle14;
    task body Idle15 is
    begin
        accept Init do
            null;
        end Init;
        --   accept never do null; end never;   -- inc in test ver
    end Idle15;
begin
    null;
end Tpitc1;