#include	"../cc/cc.h"#include	"../6c/6.out.h" /* * 6c/amd64 * Intel 386 with AMD64 extensions */#define	SZ_CHAR		1#define	SZ_SHORT	2#define	SZ_INT		4#define	SZ_LONG		4#define	SZ_IND		8#define	SZ_FLOAT	4#define	SZ_VLONG	8#define	SZ_DOUBLE	8#define	FNX		100 typedef	struct	Adr	Adr;typedef	struct	Prog	Prog;typedef	struct	Case	Case;typedef	struct	C1	C1;typedef	struct	Var	Var;typedef	struct	Reg	Reg;typedef	struct	Rgn	Rgn;typedef	struct	Renv	Renv; EXTERN	struct{	Node*	regtree;	Node*	basetree;	short	scale;	short	reg;	short	ptr;} idx; struct	Adr{	vlong	offset;	double	dval;	char	sval[NSNAME]; 	Sym*	sym;	uchar	type;	uchar	index;	uchar	etype;	uchar	scale;	/* doubles as width in DATA op */};#define	A	((Adr*)0) #define	INDEXED	9struct	Prog{	Adr	from;	Adr	to;	Prog*	link;	long	lineno;	short	as;};#define	P	((Prog*)0) struct	Case{	Case*	link;	vlong	val;	long	label;	char	def;	char	isv;};#define	C	((Case*)0) struct	C1{	vlong	val;	long	label;}; struct	Var{	vlong	offset;	Sym*	sym;	char	name;	char	etype;}; struct	Reg{	long	pc;	long	rpo;		/* reverse post ordering */ 	Bits	set;	Bits	use1;	Bits	use2; 	Bits	refbehind;	Bits	refahead;	Bits	calbehind;	Bits	calahead;	Bits	regdiff;	Bits	act; 	long	regu;	long	loop;		/* could be shorter */ 	Reg*	log5;	long	active; 	Reg*	p1;	Reg*	p2;	Reg*	p2link;	Reg*	s1;	Reg*	s2;	Reg*	link;	Prog*	prog;};#define	R	((Reg*)0) struct	Renv{	int	safe;	Node	base;	Node*	saved;	Node*	scope;}; #define	NRGN	600struct	Rgn{	Reg*	enter;	short	cost;	short	varno;	short	regno;}; EXTERN	long	breakpc;EXTERN	long	nbreak;EXTERN	Case*	cases;EXTERN	Node	constnode;EXTERN	Node	fconstnode;EXTERN	Node	vconstnode;EXTERN	long	continpc;EXTERN	long	curarg;EXTERN	long	cursafe;EXTERN	Prog*	firstp;EXTERN	Prog*	lastp;EXTERN	long	maxargsafe;EXTERN	int	mnstring;EXTERN	Node*	nodrat;EXTERN	Node*	nodret;EXTERN	Node*	nodsafe;EXTERN	long	nrathole;EXTERN	long	nstring;EXTERN	Prog*	p;EXTERN	long	pc;EXTERN	Node	lregnode;EXTERN	Node	qregnode;EXTERN	char	string[NSNAME];EXTERN	Sym*	symrathole;EXTERN	Node	znode;EXTERN	Prog	zprog;EXTERN	int	reg[D_NONE];EXTERN	long	exregoffset;EXTERN	long	exfregoffset;EXTERN	uchar	typechlpv[NTYPE]; #define	BLOAD(r)	band(bnot(r->refbehind), r->refahead)#define	BSTORE(r)	band(bnot(r->calbehind), r->calahead)#define	LOAD(r)		(~r->refbehind.b[z] & r->refahead.b[z])#define	STORE(r)	(~r->calbehind.b[z] & r->calahead.b[z]) #define	bset(a,n)	((a).b[(n)/32]&(1L<<(n)%32)) #define	CLOAD	5#define	CREF	5#define	CINF	1000#define	LOOP	3 EXTERN	Rgn	region[NRGN];EXTERN	Rgn*	rgp;EXTERN	int	nregion;EXTERN	int	nvar; EXTERN	Bits	externs;EXTERN	Bits	params;EXTERN	Bits	consts;EXTERN	Bits	addrs; EXTERN	long	regbits;EXTERN	long	exregbits; EXTERN	int	change;EXTERN	int	suppress; EXTERN	Reg*	firstr;EXTERN	Reg*	lastr;EXTERN	Reg	zreg;EXTERN	Reg*	freer;EXTERN	Var	var[NVAR];EXTERN	long*	idom;EXTERN	Reg**	rpo2r;EXTERN	long	maxnr; extern	char*	anames[]; /* * sgen.c */void	codgen(Node*, Node*);void	gen(Node*);void	noretval(int);void	usedset(Node*, int);void	xcom(Node*);void	indx(Node*);int	bcomplex(Node*, Node*); /* * cgen.c */void	zeroregm(Node*);void	cgen(Node*, Node*);void	reglcgen(Node*, Node*, Node*);void	lcgen(Node*, Node*);void	bcgen(Node*, int);void	boolgen(Node*, int, Node*);void	sugen(Node*, Node*, long);int	needreg(Node*, int);int	hardconst(Node*);int	immconst(Node*); /* * cgen64.c */int	vaddr(Node*, int);void	loadpair(Node*, Node*);int	cgen64(Node*, Node*);void	testv(Node*, int); /* * txt.c */void	ginit(void);void	gclean(void);void	nextpc(void);void	gargs(Node*, Node*, Node*);void	garg1(Node*, Node*, Node*, int, Node**);Node*	nodconst(long);Node*	nodfconst(double);Node*	nodgconst(vlong, Type*);int	nodreg(Node*, Node*, int);int	isreg(Node*, int);void	regret(Node*, Node*);void	regalloc(Node*, Node*, Node*);void	regfree(Node*);void	regialloc(Node*, Node*, Node*);void	regsalloc(Node*, Node*);void	regaalloc1(Node*, Node*);void	regaalloc(Node*, Node*);void	regind(Node*, Node*);void	gprep(Node*, Node*);void	naddr(Node*, Adr*);void	gcmp(int, Node*, vlong);void	gmove(Node*, Node*);void	gins(int a, Node*, Node*);void	gopcode(int, Type*, Node*, Node*);int	samaddr(Node*, Node*);void	gbranch(int);void	patch(Prog*, long);int	sconst(Node*);void	gpseudo(int, Sym*, Node*); /* * swt.c */int	swcmp(const void*, const void*);void	doswit(Node*);void	swit1(C1*, int, long, Node*);void	casf(void);void	bitload(Node*, Node*, Node*, Node*, Node*);void	bitstore(Node*, Node*, Node*, Node*, Node*);long	outstring(char*, long);void	nullwarn(Node*, Node*);void	sextern(Sym*, Node*, long, long);void	gextern(Sym*, Node*, long, long);void	outcode(void);void	ieeedtod(Ieee*, double); /* * list */void	listinit(void);int	Pconv(Fmt*);int	Aconv(Fmt*);int	Dconv(Fmt*);int	Sconv(Fmt*);int	Rconv(Fmt*);int	Xconv(Fmt*);int	Bconv(Fmt*); /* * reg.c */Reg*	rega(void);int	rcmp(const void*, const void*);void	regopt(Prog*);void	addmove(Reg*, int, int, int);Bits	mkvar(Reg*, Adr*);void	prop(Reg*, Bits, Bits);void	loopit(Reg*, long);void	synch(Reg*, Bits);ulong	allreg(ulong, Rgn*);void	paint1(Reg*, int);ulong	paint2(Reg*, int);void	paint3(Reg*, int, long, int);void	addreg(Adr*, int); /* * peep.c */void	peep(void);void	excise(Reg*);Reg*	uniqp(Reg*);Reg*	uniqs(Reg*);int	regtyp(Adr*);int	anyvar(Adr*);int	subprop(Reg*);int	copyprop(Reg*);int	copy1(Adr*, Adr*, Reg*, int);int	copyu(Prog*, Adr*, Adr*); int	copyas(Adr*, Adr*);int	copyau(Adr*, Adr*);int	copysub(Adr*, Adr*, Adr*, int);int	copysub1(Prog*, Adr*, Adr*, int); long	RtoB(int);long	FtoB(int);int	BtoR(long);int	BtoF(long); #define	D_HI	D_NONE#define	D_LO	D_NONE #define	isregtype(t)	((t)>= D_AX && (t)<=D_R15) /* * bound */void	comtarg(void); /* * com64 */int	cond(int);int	com64(Node*);void	com64init(void);void	bool64(Node*);long	lo64v(Node*);long	hi64v(Node*);Node*	lo64(Node*);Node*	hi64(Node*); /* * div/mul */void	sdivgen(Node*, Node*, Node*, Node*);void	udivgen(Node*, Node*, Node*, Node*);void	sdiv2(long, int, Node*, Node*);void	smod2(long, int, Node*, Node*);void	mulgen(Type*, Node*, Node*);void	genmuladd(Node*, Node*, int, Node*);void	shiftit(Type*, Node*, Node*); #pragma	varargck	type	"A"	int#pragma	varargck	type	"B"	Bits#pragma	varargck	type	"D"	Adr*#pragma	varargck	type	"P"	Prog*#pragma	varargck	type	"R"	int#pragma	varargck	type	"S"	char* #define	D_X7	(D_X0+7) void	fgopcode(int, Node*, Node*, int, int);