port to tahoe by Nir peleg of CCI

[unix-history] / usr / src / usr.bin / pascal / pdx / machine.h

diff --git a/usr/src/usr.bin/pascal/pdx/machine.h b/usr/src/usr.bin/pascal/pdx/machine.h
index 97be76f..61cb86a 100644 (file)
--- a/usr/src/usr.bin/pascal/pdx/machine.h
+++ b/usr/src/usr.bin/pascal/pdx/machine.h
@@ -1,6 +1,10 @@
-/* Copyright (c) 1982 Regents of the University of California */
-
-static char sccsid[] = "@(#)machine.h 1.1 %G%";
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *     @(#)machine.h   5.2 (Berkeley) %G%
+ */

 
 /*
  * Definitions for the machine module.
 
 /*
  * Definitions for the machine module.


@@ -13,12 +17,12 @@ static char sccsid[] = "@(#)machine.h 1.1 %G%";
 ADDRESS pc;                    /* current program counter */
 LINENO curline;                        /* line number associated with pc */
 SYM *curfunc;                  /* pointer to active function symbol */
 ADDRESS pc;                    /* current program counter */
 LINENO curline;                        /* line number associated with pc */
 SYM *curfunc;                  /* pointer to active function symbol */

-short errnum;                  /* current error number */

 
 setbp();                       /* set a breakpoint */
 unsetbp();                     /* unset a breakpoint */
 BOOLEAN isbperr();             /* test if a breakpoint has occurred */
 printerror();                  /* print out an execution error message */
 ADDRESS nextaddr();            /* address of next line to be executed */
 
 setbp();                       /* set a breakpoint */
 unsetbp();                     /* unset a breakpoint */
 BOOLEAN isbperr();             /* test if a breakpoint has occurred */
 printerror();                  /* print out an execution error message */
 ADDRESS nextaddr();            /* address of next line to be executed */

+BOOLEAN isendofproc();         /* test if address is at end of procedure */

 printinst(), printninst();     /* print the instruction at a given address */
 printdata(), printndata();     /* print the contents of a given data address */
 printinst(), printninst();     /* print the instruction at a given address */
 printdata(), printndata();     /* print the contents of a given data address */