port to tahoe by Nir peleg of CCI

[unix-history] / usr / src / usr.bin / pascal / pdx / process / step.c

diff --git a/usr/src/usr.bin/pascal/pdx/process/step.c b/usr/src/usr.bin/pascal/pdx/process/step.c
index 76ff85f..a787cd6 100644 (file)
--- a/usr/src/usr.bin/pascal/pdx/process/step.c
+++ b/usr/src/usr.bin/pascal/pdx/process/step.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)step.c     5.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)step.c     5.2 (Berkeley) %G%";

 #endif not lint
 /*
  * Continue execution up to the next source line.
 #endif not lint
 /*
  * Continue execution up to the next source line.


@@ -27,12 +27,6 @@ static char sccsid[] = "@(#)step.c   5.1 (Berkeley) %G%";
 #include "mappings.h"
 #include "process.rep"
 
 #include "mappings.h"
 #include "process.rep"
 

-#   if (isvax)
-#       include "machine/vaxops.h"
-
-       LOCAL ADDRESS getcall();
-#   endif
-

 /*
  * Stepc is what is called when the step command is given.
  * It has to play with the "isstopped" information.
 /*
  * Stepc is what is called when the step command is given.
  * It has to play with the "isstopped" information.


@@ -85,52 +79,12 @@ BOOLEAN isnext;
 {
     register ADDRESS addr;
     register LINENO line;
 {
     register ADDRESS addr;
     register LINENO line;

-    char *filename;

 
     addr = pc;
     do {
 
     addr = pc;
     do {

-#       if (isvaxpx)
-           addr = nextaddr(addr, isnext);
-#       else
-           if (isnext && (addr = getcall(addr)) != 0) {
-               stepto(addr);
-           } else {
-               pstep(process);
-               addr = process->pc;
-               pc = process->pc;
-               errnum = process->signo;
-               if (!isbperr()) {
-                   printstatus();
-               }
-           }
-#       endif
+       addr = nextaddr(addr, isnext);

        line = linelookup(addr);
     } while (line == 0 && !ss_instructions);
     stepto(addr);
     curline = line;
 }
        line = linelookup(addr);
     } while (line == 0 && !ss_instructions);
     stepto(addr);
     curline = line;
 }

-
-# if (isvax)
-
-/*
- * If the current address contains a call instruction, return the
- * address of the instruction where control will return.
- *
- * This function is intentionally dependent on a particular type
- * of calling sequence.
- */
-
-LOCAL ADDRESS getcall(addr)
-ADDRESS addr;
-{
-    VAXOP op;
-
-    iread(&op, addr, sizeof(addr));
-    if (op == O_CALLS) {
-       return(addr + 7);
-    } else {
-       return(0);
-    }
-}
-
-# endif