Return to step.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / process

Annotation of 43BSDReno/pgrm/pascal/pdx/process/step.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  */
                      6: 
                      7: #ifndef lint
                      8: static char sccsid[] = "@(#)step.c     5.2 (Berkeley) 4/7/87";
                      9: #endif not lint
                     10: /*
                     11:  * Continue execution up to the next source line.
                     12:  *
                     13:  * We call "nextaddr" from the machine module to figure out
                     14:  * what the object address is that corresponds to the next source line.
                     15:  * If nextaddr returns -1, then the end of the program has been reached.
                     16:  *
                     17:  * There are two ways to define the next source line depending on what
                     18:  * is desired when a procedure or function call is encountered.  Step
                     19:  * stops at the beginning of the procedure or call; next skips over it.
                     20:  */
                     21: 
                     22: #include "defs.h"
                     23: #include "process.h"
                     24: #include "machine.h"
                     25: #include "breakpoint.h"
                     26: #include "source.h"
                     27: #include "mappings.h"
                     28: #include "process.rep"
                     29: 
                     30: /*
                     31:  * Stepc is what is called when the step command is given.
                     32:  * It has to play with the "isstopped" information.
                     33:  */
                     34: 
                     35: stepc()
                     36: {
                     37:     if (!isstopped) {
                     38:        error("can't continue execution");
                     39:     }
                     40:     isstopped = FALSE;
                     41:     dostep(FALSE);
                     42:     isstopped = TRUE;
                     43: }
                     44: 
                     45: next()
                     46: {
                     47:     if (!isstopped) {
                     48:        error("can't continue execution");
                     49:     }
                     50:     isstopped = FALSE;
                     51:     dostep(TRUE);
                     52:     isstopped = TRUE;
                     53: }
                     54: 
                     55: step()
                     56: {
                     57:     dostep(FALSE);
                     58: }
                     59: 
                     60: /*
                     61:  * Resume execution up to the given address.  It is assumed that
                     62:  * no breakpoints exist between the current address and the one
                     63:  * we're stepping to.  This saves us from setting all the breakpoints.
                     64:  */
                     65: 
                     66: stepto(addr)
                     67: ADDRESS addr;
                     68: {
                     69:     setbp(addr);
                     70:     resume();
                     71:     unsetbp(addr);
                     72:     if (!isbperr()) {
                     73:        printstatus();
                     74:     }
                     75: }
                     76: 
                     77: LOCAL dostep(isnext)
                     78: BOOLEAN isnext;
                     79: {
                     80:     register ADDRESS addr;
                     81:     register LINENO line;
                     82: 
                     83:     addr = pc;
                     84:     do {
                     85:        addr = nextaddr(addr, isnext);
                     86:        line = linelookup(addr);
                     87:     } while (line == 0 && !ss_instructions);
                     88:     stepto(addr);
                     89:     curline = line;
                     90: }

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