Return to _prof.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / crt

Annotation of coherent/b/lib/libc/crt/_prof.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * libc/crt/_prof.c
        !             3:  * Runtime profiling.
        !             4:  */
        !             5: 
        !             6: #include <stdio.h>
        !             7: #include <unistd.h>
        !             8: #include <sys/types.h>
        !             9: 
        !            10: #if    _I386
        !            11: extern _start();
        !            12: extern __end_text();
        !            13: #define        BTEXT   _start
        !            14: #define        ETEXT   __end_text
        !            15: #else
        !            16: extern etext();
        !            17: #define        BTEXT   (caddr_t)1
        !            18: #define        ETEXT   etext
        !            19: #endif
        !            20: 
        !            21: /*
        !            22:  * The profiling runtime start-off mcrts0.s
        !            23:  * enables profiling by calling _profon() before calling main().
        !            24:  */
        !            25: _profon()
        !            26: {
        !            27: #ifndef        Z8001
        !            28:        register unsigned       bufl;
        !            29:        register short          *buf;
        !            30:        static char             emsg[]  = "No room for profil buffer\n";
        !            31: 
        !            32:        bufl = ((unsigned)ETEXT - (unsigned)BTEXT) / 2;
        !            33:        buf = (short *)sbrk(bufl * sizeof (short));
        !            34:        if (buf == NULL) {
        !            35:                write(STDERR_FILENO, emsg, sizeof emsg);
        !            36:                abort();
        !            37:        }
        !            38:        monitor((caddr_t)BTEXT, (caddr_t)ETEXT, buf, bufl);
        !            39: #else
        !            40:        monitor((caddr_t)1);            /* dummy call to start things off */
        !            41: #endif
        !            42: }
        !            43: 
        !            44: /*
        !            45:  * The profiling runtime start-off mcrts0.s
        !            46:  * disables profiling by calling _profoff() at _exit.
        !            47:  * It turns off profiling and writes out the final profiling information.
        !            48:  */
        !            49: _profoff()
        !            50: {
        !            51:        monitor(NULL);
        !            52: }
        !            53: 
        !            54: /* end of libc/crt/_prof.c */

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