X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/50d6e33c043ddfc6279469b9c106ce9b11d00eb3..796c7f6044202701efb734393e57a80e952a78a4:/usr/src/usr.bin/pascal/px/vars.h?ds=inline

diff --git a/usr/src/usr.bin/pascal/px/vars.h b/usr/src/usr.bin/pascal/px/vars.h
index 62c8e665d2..8a7f15028f 100644
--- a/usr/src/usr.bin/pascal/px/vars.h
+++ b/usr/src/usr.bin/pascal/px/vars.h
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
-/* static char sccsid[] = "@(#)vars.h 1.3 %G%"; */
+/* static char sccsid[] = "@(#)vars.h 1.5 %G%"; */
 
 #include <stdio.h>
 
@@ -75,11 +75,15 @@ extern syserr();
 extern liberr();
 
 /*
- * stack routines
+ * stack routines and structures
  */
+struct sze8 {
+	char element[8];
+};
 extern short pop2();
 extern long pop4();
 extern double pop8();
+extern struct sze8 popsze8();
 extern char *pushsp();
 
 /*
@@ -162,6 +166,7 @@ struct stack {
 	struct hdr {
 		long framesze;	/* number of bytes of local vars */
 		long nargs;	/* number of bytes of arguments */
+		short tests;	/* TRUE => perform runtime tests */
 		short offset;	/* offset of procedure in source file */
 		char name[1];	/* name of active procedure */
 	} *entry;