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 6310e20..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.2 %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;


@@ -193,10 +198,12 @@ extern struct disp        *_dp;           /* ptr to active frame */
 extern long            _lino;          /* current line number */
 extern int             _argc;          /* number of passed args */
 extern char            **_argv;        /* values of passed args */
 extern long            _lino;          /* current line number */
 extern int             _argc;          /* number of passed args */
 extern char            **_argv;        /* values of passed args */

-extern long            _nodump;        /* 1 => no post mortum dump */
+extern long            _nodump;        /* TRUE => no post mortum dump */
+extern long            _runtst;        /* TRUE => runtime tests */

 extern long            _mode;          /* execl by PX, PIPE, or PIX */
 extern long            _stlim;         /* statement limit */
 extern long            _stcnt;         /* statement count */
 extern long            _mode;          /* execl by PX, PIPE, or PIX */
 extern long            _stlim;         /* statement limit */
 extern long            _stcnt;         /* statement count */

+extern long            _seed;          /* random number seed */

 extern char            *_maxptr;       /* maximum valid pointer */
 extern char            *_minptr;       /* minimum valid pointer */
 extern long            *_pcpcount;     /* pointer to pxp buffer */
 extern char            *_maxptr;       /* maximum valid pointer */
 extern char            *_minptr;       /* minimum valid pointer */
 extern long            *_pcpcount;     /* pointer to pxp buffer */