Return to fixbps.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx / breakpoint

Annotation of 42BSD/ucb/pascal/pdx/breakpoint/fixbps.c, revision 1.1

1.1     ! root        1: /* Copyright (c) 1982 Regents of the University of California */
        !             2: 
        !             3: static char sccsid[] = "@(#)fixbps.c 1.1 1/18/82";
        !             4: 
        !             5: /*
        !             6:  * fix up breakpoint information before continuing execution
        !             7:  *
        !             8:  * It's necessary to destroy breakpoints that were created temporarily
        !             9:  * and still exist because the program terminated abnormally.
        !            10:  */
        !            11: 
        !            12: #include "defs.h"
        !            13: #include "breakpoint.h"
        !            14: #include "bp.rep"
        !            15: 
        !            16: fixbps()
        !            17: {
        !            18:        register BPINFO *p, *last, *next;
        !            19: 
        !            20:        last = NIL;
        !            21:        p = bphead;
        !            22:        while (p != NIL) {
        !            23:                next = p->bpnext;
        !            24:                switch(p->bptype) {
        !            25:                        case ALL_OFF:
        !            26:                                if (p->bpline >= 0) {
        !            27:                                        --tracing;
        !            28:                                } else {
        !            29:                                        --inst_tracing;
        !            30:                                }
        !            31:                                if (p->bpcond != NIL) {
        !            32:                                        delcond(TRPRINT, p->bpcond);
        !            33:                                }
        !            34:                                goto delete;
        !            35: 
        !            36:                        case STOP_OFF:
        !            37:                                var_tracing--;
        !            38:                                delcond(TRSTOP, p->bpcond);
        !            39:                                goto delete;
        !            40: 
        !            41:                        case TERM_OFF:
        !            42:                                --var_tracing;
        !            43:                                delvar(TRPRINT, p->bpnode, p->bpcond);
        !            44:                                goto delete;
        !            45: 
        !            46:                        case CALL:
        !            47:                        case RETURN:
        !            48:                        case BLOCK_OFF:
        !            49:                        case CALLPROC:
        !            50:                        case END_BP:
        !            51: 
        !            52:                        delete:
        !            53:                                if (last == NIL) {
        !            54:                                        bphead = next;
        !            55:                                } else {
        !            56:                                        last->bpnext = next;
        !            57:                                }
        !            58:                                dispose(p);
        !            59:                                break;
        !            60: 
        !            61:                        default:
        !            62:                                last = p;
        !            63:                                break;
        !            64:                }
        !            65:                p = next;
        !            66:        }
        !            67:        tracing = 0;
        !            68:        var_tracing = 0;
        !            69:        inst_tracing = 0;
        !            70:        trfree();
        !            71:        condfree();
        !            72: }

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