Return to lamp.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz

Annotation of 42BSD/ucb/lisp/franz/lamp.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char *rcsid =
        !             3:    "$Header: /na/franz/franz/RCS/lamp.c,v 1.2 83/03/23 22:17:52 jkf Exp $";
        !             4: #endif
        !             5: 
        !             6: /*                                     -[Tue Mar 22 15:17:09 1983 by jkf]-
        !             7:  *     lamp.c                          $Locker:  $
        !             8:  * interface with unix profiling
        !             9:  *
        !            10:  * (c) copyright 1982, Regents of the University of California
        !            11:  */
        !            12: 
        !            13: #include "global.h"
        !            14: 
        !            15: #ifdef PROF
        !            16: 
        !            17: #define PBUFSZ 500000
        !            18: short pbuf[PBUFSZ];
        !            19: 
        !            20: /* data space for fasl to put counters */
        !            21: int mcounts[NMCOUNT];
        !            22: int mcountp = (int) mcounts;
        !            23: int doprof = TRUE;
        !            24: 
        !            25: lispval
        !            26: Lmonitor()
        !            27: {
        !            28:        extern etext, countbase;
        !            29: 
        !            30:        if (np==lbot) { monitor((int(*)())0); countbase = 0; }
        !            31:        else if (TYPE(lbot->val)==INT) 
        !            32:         { monitor((int (*)())2, (int (*)())lbot->val->i, pbuf,
        !            33:                                        PBUFSZ*(sizeof(short)), 7000); 
        !            34:           countbase = ((int)pbuf) +12; 
        !            35:        }
        !            36:        else {
        !            37:           monitor((int (*)())2, (int (*)())sbrk(0), pbuf,
        !            38:                                        PBUFSZ*(sizeof(short)), 7000); 
        !            39:           countbase = ((int)pbuf) + 12; }
        !            40:        return(tatom);
        !            41: }
        !            42: 
        !            43: 
        !            44: #else
        !            45: 
        !            46: /* if prof is not defined, create a dummy Lmonitor */
        !            47: 
        !            48: short  pbuf[8];
        !            49: 
        !            50: /* data space for fasl to put counters */
        !            51: int mcounts[1];
        !            52: int mcountp = (int) mcounts;
        !            53: int doprof = FALSE;
        !            54: 
        !            55: Lmonitor()
        !            56: {
        !            57:        error("Profiling not enabled",FALSE);
        !            58: }
        !            59: 
        !            60: 
        !            61: #endif

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