DataMuseum.dk

top - metrics - download

    Length: 1680 (0x690)
    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
-- test the effect of an 'in' parameter size on task performance
-- task head is the controller
-- tasks link are the chain of tasks

with Instrument;
use Instrument;

procedure Taipa2 is

    type Param_Type is array (1 .. 1) of Integer;
    task Head is
        --         entry give;                    -- included in control version
        entry Give (P : in Param_Type);   -- included in test version
    end Head;
    task Link1 is
        --  entry give;                    -- included in control version
        entry Give (P : in Param_Type);   -- included in test version
    end Link1;
    task body Head is
        P : Param_Type;
    begin
        Start ("TAIPA2", "Task Perf. w/1 elem. Array 'in' Param. (test)");
        for I in 1 .. 10000 loop
            --    link1.give;    -- included in control version
            Link1.Give (P); -- included in test version
            accept
--                                give         -- included in control version
                  Give (P : in Param_Type)  -- inc in test version
                do
                null;
            end Give;
        end loop;
        Stop;
        abort Link1;
    end Head;
    task body Link1 is
        P : Param_Type;
    begin
        loop
            accept
--                                  give          -- included in control version
                  Give (P : in Param_Type)  -- inc in test ver
                do
                null;
            end Give;
            --    head.give;        -- included in control version
            Head.Give (P);     -- included in test version
        end loop;
    end Link1;
begin
    null;
end Taipa2;