|
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: 746 (0x2ea)
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⟧
with Ics, Instrument;
use Ics, Instrument;
procedure Whlpa2 is
-- THIS TEST EVALUATES THE CODE EFFICIENCY OF A LOOP STATEMENT WITH
-- THE WHILE ITERATION SCHEME.
-- THE CONSISTS OF A LOOP STATEMENT THAT ENCLOSES A CAMOUFLAGED ASSIGNME
-- TO THE GLOBAL VARIABLE, RESULTING IN A SINGLE EXECUTION OF THE LOOP.
-- THE NOISE VERSION REMOVES THE LOOP STATEMENT IN ORDER FOR THE CODE
-- EFFICIENCY METRICS TO BE DERIVED.
begin
Start ("WHLPA2", "WHILE LOOP STATEMENT EFFICIENCY, 10000 REPS.");
for Lcv in 1 .. 10000 loop
Let (Global, Ident (Zero));
while Global = Zero loop
-- ONLY EXECUTED ONCE
Let (Global, Ident (One));
end loop;
end loop;
Stop;
end Whlpa2;