Return to mon.c CVS log

Up to [Research Unix] / researchv8dc / libc / gen

Annotation of researchv8dc/libc/gen/mon.c, revision 1.1

1.1     ! root        1: /* @(#)mon.c   4.1 (Berkeley) 12/21/80 */
        !             2: monitor(lowpc, highpc, buf, bufsiz, cntsiz)
        !             3: char *lowpc, *highpc;
        !             4: int *buf, bufsiz;
        !             5: {
        !             6:        register o;
        !             7:        static *sbuf, ssiz;
        !             8:        struct phdr {
        !             9:                int *lpc;
        !            10:                int *hpc;
        !            11:                int ncnt;
        !            12:        };
        !            13:        struct cnt {
        !            14:                int *pc;
        !            15:                long ncall;
        !            16:        };
        !            17: 
        !            18:        if (lowpc == 0) {
        !            19:                profil(0, 0, 0, 0);
        !            20:                o = creat("mon.out", 0666);
        !            21:                write(o, sbuf, ssiz);
        !            22:                close(o);
        !            23:                return;
        !            24:        }
        !            25:        sbuf = buf;
        !            26:        ssiz = bufsiz;
        !            27:        buf[0] = (int)lowpc;
        !            28:        buf[1] = (int)highpc;
        !            29:        buf[2] = cntsiz;
        !            30:        o = sizeof(struct phdr) + cntsiz*sizeof(struct cnt);
        !            31:        buf = (int *) (((int)buf) + o);
        !            32:        bufsiz -= o;
        !            33:        if (bufsiz<=0)
        !            34:                return;
        !            35:        o = ((highpc - lowpc)>>1);
        !            36:        if(bufsiz < o)
        !            37:                o = ((float) bufsiz / o) * 32768;
        !            38:        else
        !            39:                o = 0177777;
        !            40:        profil(buf, bufsiz, lowpc, o);
        !            41: }

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