|
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: 752 (0x2f0)
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 Balpa2 is
-- THIS TEST EVALUATES THE CODE EFFICIENCY OF A SIMPLE LOOP STATEMENT.
-- THE TEST CONSISTS OF A LOOP STATEMENT THAT ENCLOSES A CAMOUFLAGED
-- ASSIGNMENT TO THE GLOBAL VARIABLE, RESULTING IN A SINGLE EXECUTION
-- OF THE LOOP. THE NOISE VERSION REMOVES THE LOOP AND EXIT STATEMENTS
-- IN ORDER FOR THE CODE EFFICIENCY METRICS TO BE DERIVED.
begin
Start ("BALPA2", "SIMPLE LOOP STATEMENT, 10000 REPS.");
for Lcv in 1 .. 10000 loop
loop
-- ONLY EXECUTED ONCE
Let (Global, Ident (Zero));
exit when Global = Zero; -- CONDITION IS TRUE
end loop;
end loop;
Stop;
end Balpa2;