|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1898 (0x76a)
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⟧
package body Task_Pack_5 is
task body T1 is
begin
loop
accept E1 do
Global := Global + A_One;
Remote;
end E1;
end loop;
end T1;
task body T2 is
begin
loop
accept E2 do
Global := Global + A_One;
Remote;
end E2;
end loop;
end T2;
task body T3 is
begin
loop
accept E3 do
Global := Global + A_One;
Remote;
end E3;
end loop;
end T3;
task body T4 is
begin
loop
accept E4 do
Global := Global + A_One;
Remote;
end E4;
end loop;
end T4;
task body T5 is
begin
loop
accept E5 do
Global := Global + A_One;
Remote;
end E5;
end loop;
end T5;
task body T6 is
begin
loop
accept E6 do
Global := Global + A_One;
Remote;
end E6;
end loop;
end T6;
task body T7 is
begin
loop
accept E7 do
Global := Global + A_One;
Remote;
end E7;
end loop;
end T7;
task body T8 is
begin
loop
accept E8 do
Global := Global + A_One;
Remote;
end E8;
end loop;
end T8;
task body T9 is
begin
loop
accept E9 do
Global := Global + A_One;
Remote;
end E9;
end loop;
end T9;
task body T10 is
begin
loop
accept E10 do
Global := Global + A_One;
Remote;
end E10;
end loop;
end T10;
end Task_Pack_5;