projects
/
unix-history
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change RV8, LRV8, and IND8 to use `struct' instead of `double' assignment
[unix-history]
/
usr
/
src
/
usr.bin
/
pascal
/
px
/
vars.h
diff --git
a/usr/src/usr.bin/pascal/px/vars.h
b/usr/src/usr.bin/pascal/px/vars.h
index
62c8e66
..
8a7f150
100644
(file)
--- 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 */
/* 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>
#include <stdio.h>
@@
-75,11
+75,15
@@
extern syserr();
extern liberr();
/*
extern liberr();
/*
- * stack routines
+ * stack routines
and structures
*/
*/
+struct sze8 {
+ char element[8];
+};
extern short pop2();
extern long pop4();
extern double pop8();
extern short pop2();
extern long pop4();
extern double pop8();
+extern struct sze8 popsze8();
extern char *pushsp();
/*
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 */
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;
short offset; /* offset of procedure in source file */
char name[1]; /* name of active procedure */
} *entry;