DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1e059dc6d⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Find_Inline_Candidates, seg_00436c

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

--| @SUMMARY This procedure display all subprograms the meet the following
--|          criteria:
--|
--| 1) Their total number of statements in their body does not exceed Max_Stmts
--|
--| 2) Their total number of call sites does not exceed Max_Calls
--|
--| 3) Their total number of local declarations that generate elaboration code
--|    does not exceed Max_Local_Variables_And_Subprograms.  Declarations that
--|    generate elaboration code include:
--|
--|                     Variable declarations
--|                     Subprogram and subprogram body declarations
--|                     Task and task body declarations
--|                     Generic Instantiations
--|
--|    Local package declarations are traversed recursively.
--|
--| 4) The total of (Num_stmts + Num_Decls) * Num_Calls does not
--|    exceed Max_Combo
--|
--| The intent of thuis analysis is to identify subprograms that are
--| candidate for inlining.
--|
with Abstract_Document;
package Find_Inline_Candidates is
    procedure Add (Units : String := "";
                   Max_Stmts : Positive := 5;
                   Max_Calls : Positive := 1000;
                   Max_Local_Variables_And_Subprograms : Positive := 10;
                   Max_Combo : Positive := 1000;
                   To_Document : in out Abstract_Document.Handle;
                   Response : String := "<PROFILE>");

    procedure Display (Units : String := "";
                       Max_Stmts : Positive := 5;
                       Max_Calls : Positive := 1000;
                       Max_Local_Variables_And_Subprograms : Positive := 10;
                       Max_Combo : Positive := 1000;
                       To_Preview_Object : String := "Inline_Info";
                       Response : String := "<PROFILE>");
end Find_Inline_Candidates;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1a rec1=00 rec2=01 rec3=02e
        [0x01] rec0=12 rec1=00 rec2=02 rec3=000
    tail 0x2170014c2815c62d1a461 0x42a00088462061e03