Return to profile.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / cps

Annotation of researchv10no/cmd/sml/src/cps/profile.sml, revision 1.1

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: (* This should be duplicated in runtime/prof.h *)
        !             3: 
        !             4: structure Profile =
        !             5: struct
        !             6:   val ARRAYS =         0
        !             7:   val ARRAYSIZE =      1
        !             8:   val STRINGS =                2
        !             9:   val STRINGSIZE =     3
        !            10:   val REFCELLS =       4
        !            11:   val REFLISTS =       5
        !            12:   val CLOSURES =       6
        !            13:   val CLOSURESLOTS =   11
        !            14:   val CLOSUREOVFL =    (CLOSURES + CLOSURESLOTS)
        !            15:   val KCLOSURES =      (CLOSUREOVFL + 1)
        !            16:   val KCLOSURESLOTS =  11
        !            17:   val KCLOSUREOVFL =   (KCLOSURES + KCLOSURESLOTS)
        !            18:   val CCLOSURES =      (KCLOSUREOVFL + 1)
        !            19:   val CCLOSURESLOTS =  11
        !            20:   val CCLOSUREOVFL =   (CCLOSURES + CCLOSURESLOTS)
        !            21:   val LINKS =          (CCLOSUREOVFL + 1)
        !            22:   val LINKSLOTS =      11
        !            23:   val LINKOVFL =       (LINKS + LINKSLOTS)
        !            24:   val SPLINKS =                (LINKOVFL + 1)
        !            25:   val SPLINKSLOTS =    11
        !            26:   val SPLINKOVFL =     (SPLINKS + SPLINKSLOTS)
        !            27:   val RECORDS =                (SPLINKOVFL + 1)
        !            28:   val RECORDSLOTS =    11
        !            29:   val RECORDOVFL =     (RECORDS + RECORDSLOTS)
        !            30:   val SPILLS =         (RECORDOVFL + 1)
        !            31:   val SPILLSLOTS =     21
        !            32:   val SPILLOVFL =      (SPILLS + SPILLSLOTS)
        !            33:   val KNOWNCALLS =     (SPILLOVFL + 1)
        !            34:   val STDKCALLS =      (KNOWNCALLS + 1)
        !            35:   val STDCALLS =       (STDKCALLS + 1)
        !            36:   val CNTCALLS =       (STDCALLS + 1)
        !            37:   val ARITHOVH =       (CNTCALLS+1)
        !            38:   val ARITHSLOTS =     5
        !            39:   val PROFSIZE =       (ARITHOVH+ARITHSLOTS)
        !            40: end
        !            41: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.