Return to mon.c CVS log

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

Annotation of researchv9/libc/gen/mon.c, revision 1.1.1.1

1.1       root        1: int *_mcbase;
                      2: int _setmonexit = 1;
                      3: 
                      4: _monexit()
                      5: {
                      6:        monitor((char *)0, (char *)0, (int *)0, 0, 0);
                      7: }
                      8: 
                      9: monitor(lowpc, highpc, buf, bufsiz, cntsiz)
                     10: char *lowpc, *highpc;
                     11: int *buf, bufsiz;
                     12: {
                     13:        register o;
                     14:        static *sbuf, ssiz;
                     15:        struct phdr {
                     16:                int *lpc;
                     17:                int *hpc;
                     18:                int ncnt;
                     19:        };
                     20:        struct cnt {
                     21:                int *pc;
                     22:                long ncall;
                     23:        };
                     24: 
                     25:        if (lowpc == 0) {
                     26:                profil((short *)0, 0, 0, 0);
                     27:                o = creat("mon.out", 0666);
                     28:                write(o, sbuf, ssiz);
                     29:                close(o);
                     30:                return;
                     31:        }
                     32:        if(_setmonexit){
                     33:                _setmonexit = 0;
                     34:                onexit(_monexit);
                     35:        }
                     36:        sbuf = buf;
                     37:        ssiz = bufsiz;
                     38:        buf[0] = (int)lowpc;
                     39:        buf[1] = (int)highpc;
                     40:        buf[2] = cntsiz;
                     41:        _mcbase = (int *) (((int)buf) + sizeof(struct phdr));
                     42:        buf = (int *) (((int)_mcbase) + (o = cntsiz*sizeof(struct cnt)));
                     43:        bufsiz -= o + sizeof(struct phdr);
                     44:        memset((char *)_mcbase, 0, o);  /* clear counts */
                     45:        if (bufsiz<=0)
                     46:                return;
                     47:        o = bufsiz*65536.0/(highpc - lowpc);
                     48:        profil(buf, bufsiz, lowpc, o);
                     49: }

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