DataMuseum.dk

top - download

    Length: 2844 (0xb1c)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
package Perf is

    type Alongs is array (1 .. 8000) of Longint;
    type Plongs is access Alongs;
    type Aints is array (1 .. 8000) of Mac_Types.Integer;
    type Pints is access Aints;
    type Hints is access Pints;

    type Tperfglobals is
        record
            Startrom : Longint;
            Romhits : Longint;
            Misses : Longint;
            Segarray : Plongs;
            Sizearray : Plongs;
            Idarray : Hints;
            Basearray : Plongs;
            Samples : Plongs;
            Buffsize : Longint;
            Timeinterval : Mac_Types.Integer;
            Bucketsize : Mac_Types.Integer;
            Log2bucksize : Mac_Types.Integer;
            Pcoffset : Mac_Types.Integer;
            Nummeasure : Mac_Types.Integer;
            Firstcode : Mac_Types.Integer;
            Takingsamples : Boolean;
            Measurerom : Boolean;
            Measurecode : Boolean;
            Ramseg : Mac_Types.Integer;
            Rambase : Longint;
            Measurerambucketsize : Mac_Types.Integer;
            Measureramlog2bucksize : Mac_Types.Integer;
            Romversion : Mac_Types.Integer;
            Vrefnum : Mac_Types.Integer;
            Volumeselected : Boolean;
            Rptfilename : Str255;
            Rptfilecreator : Str255;
            Rptfiletype : Str255;
            Getrestype : Restype;
        end record;
    type Tp2perfglobals is access Tperfglobals;
    type Vartp2perfglobals is access Tp2perfglobals;

    function Initperf (Theperfglobals : Vartp2perfglobals;
                       Timercount : Mac_Types.Integer;
                       Codeandrombucketsize : Mac_Types.Integer;
                       Dorom : Boolean;
                       Doappcode : Boolean;
                       Appcodetype : Str255;
                       Romid : Mac_Types.Integer;
                       Romname : Str255;
                       Doram : Boolean;
                       Ramlow : Longint;
                       Ramhigh : Longint;
                       Rambucketsize : Mac_Types.Integer) return Boolean;
    pragma Interface (Mpwpascal, Initperf, "INITPERF");

    procedure Termperf (Theperfglobals : Tp2perfglobals);
    pragma Interface (Mpwpascal, Termperf, "TERMPERF");

    function Perfcontrol (Theperfglobals : Tp2perfglobals; Turnon : Boolean)
                         return Boolean;
    pragma Interface (Mpwpascal, Perfcontrol, "PERFCONTROL");

    function Perfdump (Theperfglobals : Tp2perfglobals;
                       Reportfile : Str255;
                       Dohistogram : Boolean;
                       Rptfilecolumns : Mac_Types.Integer)
                      return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Perfdump, "PERFDUMP");

end Perf;