Return to mcount.s CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / lisp

Annotation of 40BSD/cmd/lisp/mcount.s, revision 1.1

1.1     ! root        1:        .asciz  "@(#)mcount.s   34.1    10/3/80"
        !             2: # count subroutine called during profiling
        !             3: 
        !             4: .globl mcount
        !             5: .globl _mcount
        !             6: .comm  _countbase,4
        !             7: 
        !             8: _mcount:
        !             9: mcount:
        !            10:        movl    (r0),r1
        !            11:        beql    init
        !            12: incr:
        !            13:        incl    (r1)
        !            14: return:
        !            15:        rsb
        !            16: init:
        !            17:        movl    _countbase,r1
        !            18:        beql    return
        !            19:        addl2   $8,_countbase
        !            20:        movl    (sp),(r1)+
        !            21:        movl    r1,(r0)
        !            22:        brb     incr

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