[unix-history] / usr / src / usr.bin / f77 / src / f77pass1 / io.h

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)io.h	5.1 (Berkeley) 6/7/85
 */

#define NDDATA	1
#define NDLABEL	2
#define NDADDR	3
#define NDNULL	4


typedef
  struct IoAddr
    {
      int stg;
      int memno;
      ftnint offset;
    }
  ioaddr;


typedef
  union IoValue
    {
      Constp cp;
      ftnint label;
      struct IoAddr addr;
    }
  iovalue;


typedef
  struct IoBlock
    {
      struct IoBlock *next;
      int blkno;
      ftnint len;
      struct OffsetList *olist;
    }
  ioblock;


typedef
  struct OffsetList
    {
      struct OffsetList *next;
      ftnint offset;
      int tag;
      union IoValue val;
    }
  offsetlist;


extern ioblock *iodata;
Commit	Line	Data
235714d5 KM	1	/*
	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*
95f51977	6	* @(#)io.h 5.1 (Berkeley) 6/7/85
235714d5 KM	7	*/
	8
	9	#define NDDATA 1
	10	#define NDLABEL 2
	11	#define NDADDR 3
	12	#define NDNULL 4
	13
	14
	15
	16
	17	typedef
	18	struct IoAddr
	19	{
	20	int stg;
	21	int memno;
	22	ftnint offset;
	23	}
	24	ioaddr;
	25
	26
	27
	28	typedef
	29	union IoValue
	30	{
	31	Constp cp;
	32	ftnint label;
	33	struct IoAddr addr;
	34	}
	35	iovalue;
	36
	37
	38
	39	typedef
	40	struct IoBlock
	41	{
	42	struct IoBlock *next;
	43	int blkno;
	44	ftnint len;
	45	struct OffsetList *olist;
	46	}
	47	ioblock;
	48
	49
	50
	51	typedef
	52	struct OffsetList
	53	{
	54	struct OffsetList *next;
	55	ftnint offset;
	56	int tag;
	57	union IoValue val;
	58	}
	59	offsetlist;
	60
	61
	62
	63
	64	extern ioblock *iodata;
	65