-#
+/* Copyright (c) 1979 Regents of the University of California */
+
+/* static char sccsid[] = "@(#)h00vars.h 4.1 10/10/80"; */
+
/*
* px - Berkeley Pascal interpreter
*
* 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;
*/
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
*
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 */
+ 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 */
- } *display[40];
-
-long addrsze; /* size of display addresses */
-
-
+ } *display[20];
+\f
/*
* Program option variables
*/
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 */