Subversion Repositories eco32

#include <stdio.h>

#include <stdlib.h>

#ifndef EXPORT

#define EXPORT

#endif

static char rcsid[] = "$Id: bbexit.c,v 1.6 2001/06/15 20:58:40 drh Exp $";

EXPORT struct callsite {

        char *file, *name;

        union coordinate {

                struct { unsigned int index:6,x:10,y:16; } be;

                struct { unsigned int y:16,x:10,index:6; } le;

                unsigned int coord;

        } u;

} *_caller, **_callerp = &_caller;

EXPORT void _setcallerp(struct callsite **p) {

        _callerp = p;

}

static struct _bbdata {

        struct _bbdata *link;

        int npoints, *counts;

        union coordinate *coords;

        char **files;

        struct func {

                struct func *link;

                struct caller {

                        struct caller *link;

                        struct callsite *caller;

                        int count;

                } *callers;

                char *name;

                union coordinate src;

        } *funcs;

} tail, *_bblist = &tail;

static void unpack(unsigned int coord, int *index, int *x, int *y) {

        static union { int x; char endian; } little = { 1 };

        union coordinate u;

        u.coord = coord;

        if (little.endian) {

                *index = u.le.index;

                *x = u.le.x;

                *y = u.le.y;

        } else {

                *index = u.be.index;

                *x = u.be.x;

                *y = u.be.y;

        }

}

static void profout(struct _bbdata *p, FILE *fp) {

        int i, index, x, y;

        struct func *f;

        struct caller *q;

        for (i = 0; p->files[i]; i++)

                ;

        fprintf(fp, "%d\n", i);

        for (i = 0; p->files[i]; i++)

                fprintf(fp, "%s\n", p->files[i]);

        for (i = 0, f = p->funcs; f; i++, f = f->link)

                if (q = f->callers)

                        for (i--; q; q = q->link)

                                i++;

        fprintf(fp, "%d\n", i);

        for (f = p->funcs; f; f = f->link) {

                int n = 0;

                for (q = f->callers; q; n += q->count, q = q->link) {

                        unpack(f->src.coord, &index, &x, &y);

                        fprintf(fp, "%s %d %d %d %d", f->name, index, x, y, q->count);

                        if (q->caller) {

                                unpack(q->caller->u.coord, &index, &x, &y);

                                fprintf(fp, " %s %s %d %d\n", q->caller->name, q->caller->file, x, y);

                        } else

                                fprintf(fp, " ? ? 0 0\n");

                }

                if (n == 0) {

                        unpack(f->src.coord, &index, &x, &y);

                        fprintf(fp, "%s %d %d %d 0 ? ? 0 0\n", f->name, index, x, y);

                }

        }

        fprintf(fp, "%d\n", p->npoints);

        for (i = 0; i < p->npoints; i++) {

                unpack(p->coords[i].coord, &index, &x, &y);

                fprintf(fp, "%d %d %d %d\n", index, x, y, p->counts[i]);

        }

}

static void bbexit(void) {

        FILE *fp;

        if (_bblist != &tail && (fp = fopen("prof.out", "a"))) {

                for ( ; _bblist != &tail; _bblist = _bblist->link)

                        profout(_bblist, fp);

                fclose(fp);

        }

}

EXPORT void _epilogue(struct func *callee) {

        *_callerp = 0;

}

EXPORT void _prologue(struct func *callee, struct _bbdata *yylink) {

        static struct caller callers[4096];

        static int next;

        struct caller *p;

        if (!yylink->link) {

                yylink->link = _bblist;

                _bblist = yylink;

                if (next == 0)

                        atexit(bbexit);

        }

        for (p = callee->callers; p; p = p->link)

                if (p->caller == *_callerp) {

                        p->count++;

                        break;

                }

        if (!p && next < sizeof callers/sizeof callers[0]) {

                p = &callers[next++];

                p->caller = *_callerp;

                p->count = 1;

                p->link = callee->callers;

                callee->callers = p;

        }

        *_callerp = 0;

}