date and time created 82/02/02 23:09:47 by mckusick

[unix-history] / usr / src / usr.bin / pascal / libpc / h00vars.h

diff --git a/usr/src/usr.bin/pascal/libpc/h00vars.h b/usr/src/usr.bin/pascal/libpc/h00vars.h
index 8228b9c..8b3db7a 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/h00vars.h
+++ b/usr/src/usr.bin/pascal/libpc/h00vars.h
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-/* sccsid[] = "@(#)h00vars.h 1.5 %G%"; */
+/* sccsid[] = "@(#)h00vars.h 1.9 %G%"; */

 
 #include <stdio.h>
 #include "whoami.h"
 
 #include <stdio.h>
 #include "whoami.h"


@@ -43,16 +43,11 @@ struct display {
  * formal routine structure
  */
 struct formalrtn {
  * formal routine structure
  */
 struct formalrtn {

-       long            (*entryaddr)();
-       long            cbn;
-       struct display  disp[2*MAXLVL];
+       long            (*fentryaddr)();        /* formal entry point */
+       long            fbn;                    /* block number of function */
+       struct display  fdisp[ MAXLVL ];        /* saved at first passing */

 };
 
 };
 

-struct errentry {
-       long (*entryaddr)();
-};
-
-

 /*
  * program variables
  */
 /*
  * program variables
  */


@@ -65,7 +60,6 @@ extern long           _seed;          /* random number seed */
 extern char            *_maxptr;       /* maximum valid pointer */
 extern char            *_minptr;       /* minimum valid pointer */
 extern long            _pcpcount[];    /* pxp buffer */
 extern char            *_maxptr;       /* maximum valid pointer */
 extern char            *_minptr;       /* minimum valid pointer */
 extern long            _pcpcount[];    /* pxp buffer */

-extern struct errentry _entry[MAXERRS];/* error entry catches */

 
 /*
  * file structures
 
 /*
  * file structures


@@ -79,7 +73,7 @@ struct iorechd {
        struct iorec    *flev;          /* ptr to associated file variable */
        char            *pfname;        /* ptr to name of file */
        short           funit;          /* file status flags */
        struct iorec    *flev;          /* ptr to associated file variable */
        char            *pfname;        /* ptr to name of file */
        short           funit;          /* file status flags */

-       short           fblk;           /* index into active file table */
+       unsigned short  fblk;           /* index into active file table */

        long            fsize;          /* size of elements in the file */
        char            fname[NAMSIZ];  /* name of associated UNIX file */
 };
        long            fsize;          /* size of elements in the file */
        char            fname[NAMSIZ];  /* name of associated UNIX file */
 };


@@ -93,7 +87,7 @@ struct iorec {
        struct iorec    *flev;          /* ptr to associated file variable */
        char            *pfname;        /* ptr to name of file */
        short           funit;          /* file status flags */
        struct iorec    *flev;          /* ptr to associated file variable */
        char            *pfname;        /* ptr to name of file */
        short           funit;          /* file status flags */

-       short           fblk;           /* index into active file table */
+       unsigned short  fblk;           /* index into active file table */

        long            fsize;          /* size of elements in the file */
        char            fname[NAMSIZ];  /* name of associated UNIX file */
        char            buf[BUFSIZ];    /* I/O buffer */
        long            fsize;          /* size of elements in the file */
        char            fname[NAMSIZ];  /* name of associated UNIX file */
        char            buf[BUFSIZ];    /* I/O buffer */


@@ -133,3 +127,10 @@ extern long                _filefre;       /* last used entry in _actfile */
 extern struct iorechd  input;
 extern struct iorechd  output;
 extern struct iorechd  _err;
 extern struct iorechd  input;
 extern struct iorechd  output;
 extern struct iorechd  _err;

+
+/*
+ * seek pointer struct for TELL, SEEK extensions
+ */
+struct seekptr {
+       long    cnt;
+};