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

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.