xref: /csrg-svn/usr.bin/f77/pass1.vax/io.h (revision 47955)
1*47955Sbostic /*-
2*47955Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47955Sbostic  * All rights reserved.
422838Smckusick  *
5*47955Sbostic  * %sccs.include.proprietary.c%
6*47955Sbostic  *
7*47955Sbostic  *	@(#)io.h	5.2 (Berkeley) 04/12/91
822838Smckusick  */
922838Smckusick 
1022838Smckusick #define NDDATA	1
1122838Smckusick #define NDLABEL	2
1222838Smckusick #define NDADDR	3
1322838Smckusick #define NDNULL	4
1422838Smckusick 
1522838Smckusick 
1622838Smckusick 
1722838Smckusick 
1822838Smckusick typedef
1922838Smckusick   struct IoAddr
2022838Smckusick     {
2122838Smckusick       int stg;
2222838Smckusick       int memno;
2322838Smckusick       ftnint offset;
2422838Smckusick     }
2522838Smckusick   ioaddr;
2622838Smckusick 
2722838Smckusick 
2822838Smckusick 
2922838Smckusick typedef
3022838Smckusick   union IoValue
3122838Smckusick     {
3222838Smckusick       Constp cp;
3322838Smckusick       ftnint label;
3422838Smckusick       struct IoAddr addr;
3522838Smckusick     }
3622838Smckusick   iovalue;
3722838Smckusick 
3822838Smckusick 
3922838Smckusick 
4022838Smckusick typedef
4122838Smckusick   struct IoBlock
4222838Smckusick     {
4322838Smckusick       struct IoBlock *next;
4422838Smckusick       int blkno;
4522838Smckusick       ftnint len;
4622838Smckusick       struct OffsetList *olist;
4722838Smckusick     }
4822838Smckusick   ioblock;
4922838Smckusick 
5022838Smckusick 
5122838Smckusick 
5222838Smckusick typedef
5322838Smckusick   struct OffsetList
5422838Smckusick     {
5522838Smckusick       struct OffsetList *next;
5622838Smckusick       ftnint offset;
5722838Smckusick       int tag;
5822838Smckusick       union IoValue val;
5922838Smckusick     }
6022838Smckusick   offsetlist;
6122838Smckusick 
6222838Smckusick 
6322838Smckusick 
6422838Smckusick 
6522838Smckusick extern ioblock *iodata;
6622838Smckusick 
67