DataMuseum.dk

top - metrics - download

    Length: 4303 (0x10cf)
    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

with Instrument;
use Instrument;

procedure Tpgtd2 is

    G1 : Boolean := True;
    G2 : Boolean := False;
    G3 : Boolean := False;
    G4 : Boolean := False;
    G5 : Boolean := False;
    G6 : Boolean := False;
    G7 : Boolean := False;
    G8 : Boolean := False;
    G9 : Boolean := False;
    G10 : Boolean := False;
    G11 : Boolean := False;
    G12 : Boolean := False;
    G13 : Boolean := False;
    G14 : Boolean := False;
    G15 : Boolean := False;
    G16 : Boolean := False;
    G17 : Boolean := False;
    G18 : Boolean := False;
    G19 : Boolean := False;
    G20 : Boolean := False;
    task Head is
        entry Give;
    end Head;
    task Link1 is
        entry Give;
        entry S2;
        entry S3;
        entry S4;
        entry S5;
        entry S6;
        entry S7;
        entry S8;
        entry S9;
        entry S10;
        entry S11;
        entry S12;
        entry S13;
        entry S14;
        entry S15;
        entry S16;
        entry S17;
        entry S18;
        entry S19;
        entry S20;
    end Link1;
    task body Head is
    begin
        Start ("TPGTD2", "Task Perf., Guard Test, 20 guards (test)");
        for I in 1 .. 1000 loop
            Link1.Give;
            accept Give do
                null;
            end Give;
        end loop;
        Stop;
        abort Link1;
    end Head;
    task body Link1 is
    begin
        loop
            select
                when G2 =>
                    accept S2 do
                        null;
                    end S2;
            or
                when G3 =>
                    accept S3 do
                        null;
                    end S3;
            or
                when G4 =>
                    accept S4 do
                        null;
                    end S4;
            or
                when G5 =>
                    accept S5 do
                        null;
                    end S5;
            or
                when G6 =>
                    accept S6 do
                        null;
                    end S6;
            or
                when G7 =>
                    accept S7 do
                        null;
                    end S7;
            or
                when G8 =>
                    accept S8 do
                        null;
                    end S8;
            or
                when G9 =>
                    accept S9 do
                        null;
                    end S9;
            or
                when G10 =>
                    accept S10 do
                        null;
                    end S10;
            or
                when G11 =>
                    accept S11 do
                        null;
                    end S11;
            or
                when G12 =>
                    accept S12 do
                        null;
                    end S12;
            or
                when G13 =>
                    accept S13 do
                        null;
                    end S13;
            or
                when G14 =>
                    accept S14 do
                        null;
                    end S14;
            or
                when G15 =>
                    accept S15 do
                        null;
                    end S15;
            or
                when G16 =>
                    accept S16 do
                        null;
                    end S16;
            or
                when G17 =>
                    accept S17 do
                        null;
                    end S17;
            or
                when G18 =>
                    accept S18 do
                        null;
                    end S18;
            or
                when G19 =>
                    accept S19 do
                        null;
                    end S19;
            or
                when G20 =>
                    accept S20 do
                        null;
                    end S20;
            or
                when G1 =>
                    accept Give do
                        null;
                    end Give;
            end select;
            Head.Give;
        end loop;
    end Link1;
begin
    null;
end Tpgtd2;