Return to monitor.c CVS log

Up to [MW Coherent from dump] / coherent / d / lib / libc / gen

Annotation of coherent/d/lib/libc/gen/monitor.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Monitor is an interface to the profil system call and to the
        !             3:  * program prof.  It starts the profil if `low' is non-NULL and
        !             4:  * otherwise dumps out the statistics information and turns off
        !             5:  * profileing.  The region of memory profiled is from `low' to
        !             6:  * `high', not includeing `high'.  `buff' is an array of `blen'
        !             7:  * shorts into which the profileing will take place.
        !             8:  * note that on the z8001, only stack monitoring and call counting
        !             9:  * are supported.
        !            10:  */
        !            11: #include "mon.h"
        !            12: 
        !            13: 
        !            14: #define MODE   0666                    /* mon.out creation mode */
        !            15: 
        !            16: 
        !            17: /*
        !            18:  * Note that the list pointed to by m_flst is never empty.  It always has
        !            19:  * a dummy entry on the end which has m_link field NULL.
        !            20:  */
        !            21: static struct m_flst   dummy[];
        !            22: struct m_flst          *_fnclst        = dummy;
        !            23: struct m_hdr   _mhdr;
        !            24: static short           *baddr;         /* buffer address */
        !            25: 
        !            26: #ifndef        Z8001
        !            27: monitor(low, high, buff, blen)
        !            28: vaddr_t        low,
        !            29:        high;
        !            30: short  buff[];
        !            31: int    blen;
        !            32: #else
        !            33: monitor(low)
        !            34: vaddr_t        low;
        !            35: #endif
        !            36: {
        !            37:        if (low == (vaddr_t)0) {
        !            38:                endmon();
        !            39:                return;
        !            40:        }
        !            41: #ifndef        Z8001
        !            42:        baddr = buff;
        !            43:        if (blen >= (high-low)/2) {
        !            44:                blen = (high-low)/2;
        !            45:                _mhdr.m_scale = (unsigned)-1;
        !            46:        } else
        !            47:                _mhdr.m_scale = ((long)blen << 17) / (high-low);
        !            48:        _mhdr.m_nbins = blen;
        !            49:        _mhdr.m_lowpc = low;
        !            50:        /* Without getting incredibly involved, this will do */
        !            51:        _mhdr.m_lowsp = ((vaddr_t)&blen) + sizeof(blen);
        !            52: #else
        !            53:        _mhdr.m_lowsp = 0xFFFEL;
        !            54: #endif
        !            55:        _mhdr.m_hisp = _mhdr.m_lowsp;
        !            56: #ifndef        Z8001
        !            57:        profil(buff, blen * sizeof *buff, low, _mhdr.m_scale);
        !            58: #endif
        !            59: }
        !            60: 
        !            61: 
        !            62: static endmon()
        !            63: {
        !            64:        register int    fd,
        !            65:                        cnt;
        !            66:        register struct m_flst  *flp;
        !            67: 
        !            68: #ifndef        Z8001
        !            69:        profil(NULL, 0, 0, 0);
        !            70: #endif
        !            71:        for (flp = _fnclst, cnt = 0; flp != dummy; flp = flp->m_link)
        !            72:                ++cnt;
        !            73:        _mhdr.m_nfuncs = cnt;
        !            74:        if ((fd=creat("mon.out", MODE)) < 0)
        !            75:                return;
        !            76:        write(fd, &_mhdr, sizeof _mhdr);
        !            77:        for (flp = _fnclst; flp != dummy; flp = flp->m_link)
        !            78:                write(fd, &flp->m_data, sizeof flp->m_data);
        !            79: #ifndef        Z8001
        !            80:        write(fd, baddr, _mhdr.m_nbins * sizeof *baddr);
        !            81: #endif
        !            82:        close(fd);
        !            83: }

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