BSD 4 release

[unix-history] / usr / src / cmd / px / h00vars.h

diff --git a/usr/src/cmd/px/h00vars.h b/usr/src/cmd/px/h00vars.h
index a49783f..70295d1 100644 (file)
--- a/usr/src/cmd/px/h00vars.h
+++ b/usr/src/cmd/px/h00vars.h
@@ -1,4 +1,7 @@
-#
+/* Copyright (c) 1979 Regents of the University of California */
+
+/* static      char sccsid[] = "@(#)h00vars.h 4.1 10/10/80"; */
+

 /*
  * px - Berkeley Pascal interpreter
  *
 /*
  * px - Berkeley Pascal interpreter
  *


@@ -26,6 +29,9 @@
  * table. These are made by the script Emake in this directory and the scripts
  * in the directory '../opcodes'.
  */
  * table. These are made by the script Emake in this directory and the scripts
  * in the directory '../opcodes'.
  */

+#define TRUE           1
+#define FALSE          0
+#define BITSPERLONG    32

 
 long   argc;
 char   **argv;
 
 long   argc;
 char   **argv;


@@ -48,11 +54,7 @@ int  perrno;         /* number of error which occurred */
  */
 char   *file;          /* ptr to active file name */
 long   fchain;         /* head of active file chain */
  */
 char   *file;          /* ptr to active file name */
 long   fchain;         /* head of active file chain */

-int    bufopt;         /* controls flushing of std output as follows:
-                        * 0 => flush on every write
-                        * 1 => flush before std read or at end of line
-                        * 2 => normal buffering
-                        */
+\f

 /*
  * THE RUNTIME DISPLAY
  *
 /*
  * THE RUNTIME DISPLAY
  *


@@ -113,18 +115,16 @@ struct stack {
        char    *file;          /* pointer to active file name */
        long    buf;            /* pointer to active file record */
        struct  {
        char    *file;          /* pointer to active file name */
        long    buf;            /* pointer to active file record */
        struct  {

-               char    name[8];/* name of active procedure */
+               long    nargs;  /* number of bytes of arguments */

                short   offset; /* offset of procedure in source file */
                short   offset; /* offset of procedure in source file */

+               char    name[1];/* name of active procedure */

                } *entry;
        struct  stack *disp;    /* previous display value for this level */
        struct  stack **dp;     /* pointer to active display entry */
        long    lc;             /* previous location counter */
        long    lino;           /* previous line number */
                } *entry;
        struct  stack *disp;    /* previous display value for this level */
        struct  stack **dp;     /* pointer to active display entry */
        long    lc;             /* previous location counter */
        long    lino;           /* previous line number */

-       } *display[40];
-
-long   addrsze;                /* size of display addresses */
-
-
+       } *display[20];
+\f

 /*
  * Program option variables
  */
 /*
  * Program option variables
  */


@@ -157,7 +157,7 @@ struct cntrec {
        double  stmts;          /* number of pascal statements executed */
        } profdata;
 long   profcnts[numops];
        double  stmts;          /* number of pascal statements executed */
        } profdata;
 long   profcnts[numops];

-#define        proffile        "/usr/ucb/pascal/px/pcnt.out"
+#define        proffile        "/usr/grad/mckusick/px/profile/pcnt.out"

 FILE   *datafile;              /* input datafiles */
 #else
 int    profcnts;       /* dummy just to keep the linker happy */
 FILE   *datafile;              /* input datafiles */
 #else
 int    profcnts;       /* dummy just to keep the linker happy */