as.c

坦尼保姆

#ifndef lint
static char yysccsid[] = "@(#)yaccpar	1.8 (Berkeley) 01/20/90";
#endif
#define YYBYACC 1
#line 14 "as.y"





























































































#include	<stdio.h>
#include	<ctype.h>
#include	<signal.h>
















struct outhead {
	unsigned short 	oh_magic;	
	unsigned short 	oh_stamp;	
	unsigned short	oh_flags;	
	unsigned short	oh_nsect;	
	unsigned short	oh_nrelo;	
	unsigned short	oh_nname;	
	long	oh_nemit;		
	long	oh_nchar;		
};








struct outsect {
	long 	os_base;		
	long	os_size;		
	long	os_foff;		
	long	os_flen;		
	long	os_lign;		
};

struct outrelo {
	char	or_type;		
	char	or_sect;		
	unsigned short	or_nami;	
	long	or_addr;		
};

struct outname {
	union {
	  char	*on_ptr;		
	  long	on_off;			
	}	on_u;


	unsigned short	on_type;	
	unsigned short	on_desc;	
	long	on_valu;		
};























































































































struct expr_t {
	short	typ;
	long	val;
};

typedef	struct expr_t	expr_t;

struct item_t {
	struct item_t *
		i_next;	
	short	i_type;
	




	long	i_valu;		
	char	*i_name;	
};

struct common_t {
	struct common_t *
		c_next;
	struct item_t *c_it;

	long	c_size;

};

typedef struct common_t	common_t;

typedef	struct item_t	item_t;

struct sect_t {
	short	s_flag;		
	unsigned short		s_base;		
	unsigned short		s_size;		
	unsigned short		s_comm;		
	unsigned short		s_zero;		
	unsigned short		s_lign;		
	long	s_foff;		
	item_t	*s_item;	

	unsigned short		s_gain;		

};

typedef	struct sect_t	sect_t;














































extern FILE *fopen();   















extern short	pass ;
				
extern short	peekc;		
extern short	unresolved;	
extern long	lineno;		
extern short	hllino;		
extern short	nerrors;	
extern short	sflag ;
				
extern char	*progname;	
extern char	*modulename;	
extern common_t	*commons;	


extern short	uflag;		
				



extern short	dflag;		




extern long	relonami;



extern short	bflag;		


extern char	*aoutpath ;
extern char	temppath[50];

extern FILE	*input;
extern FILE	*tempfile;
extern FILE	*outFile;

extern char	*stringbuf;	
extern int	stringlen;	

extern sect_t	sect[64];




extern sect_t	*DOTSCT;	
extern unsigned short		DOTVAL;		
extern short	DOTTYP;		

extern unsigned short	nname;		

extern item_t	*hashtab[(2*307		)];
extern short	hashindex;	

extern item_t	*fb_ptr[4*10];



extern int	nbits;
extern int	bitindex;	





extern short	listmode;	
extern short	listtemp;	
extern short	listflag;	
extern short	listcolm;	
extern short	listeoln ;
				
extern FILE	*listfile;	
extern char	listpath[50];



extern item_t		keytab[];
extern struct outhead	outhead;




extern char	*remember();
extern item_t	*fb_shift();
extern item_t	*fb_alloc();