#include "limbo.h" uchar movetab[Mend][Tend] ={	/* Mas */	{		/* Tnone */	0,		/* Tadt */	IMOVM,		/* Tadtpick */	IMOVM,		/* Tarray */	IMOVP,		/* Tbig */	IMOVL,		/* Tbyte */	IMOVB,		/* Tchan */	IMOVP,		/* Treal */	IMOVF,		/* Tfn */	0,		/* Tint */	IMOVW,		/* Tlist */	IMOVP,		/* Tmodule */	IMOVP,		/* Tref */	IMOVP,		/* Tstring */	IMOVP,		/* Ttuple */	IMOVM,		/* Texception */	IMOVM,		/* Tfix */	IMOVW,		/* Tpoly */	IMOVP, 		/* Tainit */	0,		/* Talt */	0,		/* Tany */	IMOVP,		/* Tarrow */	0,		/* Tcase */	0,		/* Tcasel */	0,		/* Tcasec */	0,		/* Tdot */	0,		/* Terror */	0,		/* Tgoto */	0,		/* Tid */	0,	},	/* Mcons */	{		/* Tnone */	0,		/* Tadt */	ICONSM,		/* Tadtpick */	0,		/* Tarray */	ICONSP,		/* Tbig */	ICONSL,		/* Tbyte */	ICONSB,		/* Tchan */	ICONSP,		/* Treal */	ICONSF,		/* Tfn */	0,		/* Tint */	ICONSW,		/* Tlist */	ICONSP,		/* Tmodule */	ICONSP,		/* Tref */	ICONSP,		/* Tstring */	ICONSP,		/* Ttuple */	ICONSM,		/* Texception */	ICONSM,		/* Tfix */	ICONSW,		/* Tpoly */	ICONSP, 		/* Tainit */	0,		/* Talt */	0,		/* Tany */	ICONSP,		/* Tarrow */	0,		/* Tcase */	0,		/* Tcasel */	0,		/* Tcasec */	0,		/* Tdot */	0,		/* Terror */	0,		/* Tgoto */	0,		/* Tid */	0,	},	/* Mhd */	{		/* Tnone */	0,		/* Tadt */	IHEADM,		/* Tadtpick */	0,		/* Tarray */	IHEADP,		/* Tbig */	IHEADL,		/* Tbyte */	IHEADB,		/* Tchan */	IHEADP,		/* Treal */	IHEADF,		/* Tfn */	0,		/* Tint */	IHEADW,		/* Tlist */	IHEADP,		/* Tmodule */	IHEADP,		/* Tref */	IHEADP,		/* Tstring */	IHEADP,		/* Ttuple */	IHEADM,		/* Texception */	IHEADM,		/* Tfix */	IHEADW,		/* Tpoly */	IHEADP, 		/* Tainit */	0,		/* Talt */	0,		/* Tany */	IHEADP,		/* Tarrow */	0,		/* Tcase */	0,		/* Tcasel */	0,		/* Tcasec */	0,		/* Tdot*/	0,		/* Terror */	0,		/* Tgoto */	0,		/* Tid */	0,	},	/* Mtl */	{		/* Tnone */	0,		/* Tadt */	0,		/* Tadtpick */	0,		/* Tarray */	0,		/* Tbig */	0,		/* Tbyte */	0,		/* Tchan */	0,		/* Treal */	0,		/* Tfn */	0,		/* Tint */	0,		/* Tlist */	ITAIL,		/* Tmodule */	0,		/* Tref */	0,		/* Tstring */	0,		/* Ttuple */	0,		/* Texception */	0,		/* Tfix */	0,		/* Tpoly */	0, 		/* Tainit */	0,		/* Talt */	0,		/* Tany */	0,		/* Tarrow */	0,		/* Tcase */	0,		/* Tcasel */	0,		/* Tcasec */	0,		/* Tdot */	0,		/* Terror */	0,		/* Tgoto */	0,		/* Tid */	0,	},}; uchar chantab[Tend] ={	/* Tnone */	0,	/* Tadt */	INEWCM,	/* Tadtpick */	0,	/* Tarray */	INEWCP,	/* Tbig */	INEWCL,	/* Tbyte */	INEWCB,	/* Tchan */	INEWCP,	/* Treal */	INEWCF,	/* Tfn */	0,	/* Tint */	INEWCW,	/* Tlist */	INEWCP,	/* Tmodule */	INEWCP,	/* Tref */	INEWCP,	/* Tstring */	INEWCP,	/* Ttuple */	INEWCM,	/* Texception */	INEWCM,	/* Tfix */	INEWCW,	/* Tpoly */	INEWCP, 	/* Tainit */	0,	/* Talt */	0,	/* Tany */	INEWCP,	/* Tarrow */	0,	/* Tcase */	0,	/* Tcasel */	0,	/* Tcasec */	0,	/* Tdot */	0,	/* Terror */	0,	/* Tgoto */	0,	/* Tid */	0,}; uchar disoptab[Oend+1][7] = {	/* opcode	default	byte	word	big	real	string	fixed	*/			{0},	/* Oadd */	{0,	IADDB,	IADDW,	IADDL,	IADDF,	IADDC,	IADDW,},	/* Oaddas */	{0,	IADDB,	IADDW,	IADDL,	IADDF,	IADDC,	IADDW,},	/* Oadr */	{0},	/* Oadtdecl */	{0},	/* Oalt */	{0},	/* Oand */	{0,	IANDB,	IANDW,	IANDL,	0,	0,	0,},	/* Oandand */	{0},	/* Oandas */	{0,	IANDB,	IANDW,	IANDL,	0, 	0,	0,},	/* Oarray */	{0},	/* Oas */	{0},	/* Obreak */	{0},	/* Ocall */	{0},	/* Ocase */	{0},	/* Ocast */	{0},	/* Ochan */	{0},	/* Ocomma */	{0},	/* Ocomp */	{0},	/* Ocondecl */	{0},	/* Ocons */	{0},	/* Oconst */	{0},	/* Ocont */	{0},	/* Odas */	{0},	/* Odec */	{0,	ISUBB,	ISUBW,	ISUBL,	ISUBF,	0,	ISUBW,},	/* Odiv */	{0,	IDIVB,	IDIVW,	IDIVL,	IDIVF,	0,	IDIVX,},	/* Odivas */	{0,	IDIVB,	IDIVW,	IDIVL,	IDIVF,	0,	IDIVX,},	/* Odo */	{0},	/* Odot */	{0},	/* Oelem */	{0},	/* Oeq */	{IBEQW,	IBEQB,	IBEQW,	IBEQL,	IBEQF,	IBEQC,	IBEQW,},	/* Oexcept */	{0},	/* Oexdecl */	{0},	/* Oexit */	{0},	/* Oexp */	{0,	0,	IEXPW,	IEXPL,	IEXPF,	0,	0,},	/* Oexpas */	{0,	0,	IEXPW,	IEXPL,	IEXPF,	0,	0,},	/* Oexstmt */	{0},	/* Ofielddecl */{0},	/* Ofnptr */	{0},	/* Ofor */	{0},	/* Ofunc */	{0},	/* Ogeq */	{0,	IBGEB,	IBGEW,	IBGEL,	IBGEF,	IBGEC,	IBGEW,},	/* Ogt */	{0,	IBGTB,	IBGTW,	IBGTL,	IBGTF,	IBGTC,	IBGTW,},	/* Ohd */	{0},	/* Oif */	{0},	/* Oimport */	{0},	/* Oinc */	{0,	IADDB,	IADDW,	IADDL,	IADDF,	0,	IADDW,},	/* Oind */	{0},	/* Oindex */	{0,},	/* Oinds */	{0,	0,	IINDC,	0,	0,	0,	0,},	/* Oindx */	{0,	0,	IINDX,	0,	0,	0,	0,},	/* Oinv */	{0},	/* Ojmp */	{0},	/* Olabel */	{0},	/* Olen */	{ILENA,	0,	0,	0,	0,	ILENC,	0,},	/* Oleq */	{0,	IBLEB,	IBLEW,	IBLEL,	IBLEF,	IBLEC,	IBLEW,},	/* Oload */	{0},	/* Olsh */	{0,	ISHLB,	ISHLW,	ISHLL,	0,	0,	0,},	/* Olshas */	{0,	ISHLB,	ISHLW,	ISHLL,	0,	0,	0,},	/* Olt */	{0,	IBLTB,	IBLTW,	IBLTL,	IBLTF,	IBLTC,	IBLTW,},	/* Omdot */	{0},	/* Omod */	{0,	IMODB,	IMODW,	IMODL,	0,	0,	0,},	/* Omodas */	{0,	IMODB,	IMODW,	IMODL,	0,	0,	0,},	/* Omoddecl */	{0},	/* Omul */	{0,	IMULB,	IMULW,	IMULL,	IMULF,	0,	IMULX,},	/* Omulas */	{0,	IMULB,	IMULW,	IMULL,	IMULF,	0,	IMULX,},	/* Oname */	{0},	/* Oneg */	{0,	0,	0,	0,	INEGF,	0, 	0,},	/* Oneq */	{IBNEW,	IBNEB,	IBNEW,	IBNEL,	IBNEF,	IBNEC,	IBNEW,},	/* Onot */	{0},	/* Onothing */	{0},	/* Oor */	{0,	IORB,	IORW,	IORL,	0,	0,	0,},	/* Ooras */	{0,	IORB,	IORW,	IORL,	0,	0,	0,},	/* Ooror */	{0},	/* Opick */	{0},	/* Opickdecl */	{0},	/* Opredec */	{0},	/* Opreinc */	{0},	/* Oraise */	{0},	/* Orange */	{0},	/* Orcv */	{0},	/* Oref */	{0},	/* Oret */	{0},	/* Orsh */	{0,	ISHRB,	ISHRW,	ISHRL,	0,	0,	0,},	/* Orshas */	{0,	ISHRB,	ISHRW,	ISHRL,	0,	0,	0,},	/* Oscope */	{0},	/* Oself */	{0},	/* Oseq */	{0},	/* Oslice */	{ISLICEA,0,	0,	0,	0,	ISLICEC,	0,},	/* Osnd */	{0},	/* Ospawn */	{0},	/* Osub */	{0,	ISUBB,	ISUBW,	ISUBL,	ISUBF,	0,	ISUBW,},	/* Osubas */	{0,	ISUBB,	ISUBW,	ISUBL,	ISUBF,	0,	ISUBW,},	/* Otagof */	{0},	/* Otl */	{0},	/* Otuple */	{0},	/* Otype */	{0},	/* Otypedecl */	{0},	/* Oused */	{0},	/* Ovardecl */	{0},	/* Ovardecli */	{0},	/* Owild */	{0},	/* Oxor */	{0,	IXORB,	IXORW,	IXORL,	0,	0,	0,},	/* Oxoras */	{0,	IXORB,	IXORW,	IXORL,	0,	0,	0,}, 	/* Oend	*/	{0}}; int setisused[] = {	Oas,	Odas,	Oaddas,	Osubas,	Omulas,	Odivas,	Omodas,	Oexpas,	Oandas,	Ooras,	Oxoras,	Olshas,	Onothing,	Orshas,	Oinc,	Odec,	Opreinc,	Opredec,	Ocall,	Oraise,	Ospawn,	Osnd,	Orcv, 	-1}; int setsideeffect[] = {	Oas,	Odas,	Oaddas,	Osubas,	Omulas,	Odivas,	Omodas,	Oexpas,	Oandas,	Ooras,	Oxoras,	Olshas,	Orshas,	Oinc,	Odec,	Opreinc,	Opredec,	Ocall,	Oraise,	Ospawn,	Osnd,	Orcv, 	Oadr,	Oarray,	Ocast,	Ochan,	Ocons,	Odiv,	Odot,	Oind,	Oindex,	Oinds,	Oindx,	Olen,	Oload,	Omod,	Oref, 	-1}; char *opname[Oend+1] = {			"unknown",	/* Oadd */	"+",	/* Oaddas */	"+=",	/* Oadr */	"adr",	/* Oadtdecl */	"adtdecl",	/* Oalt */	"alt",	/* Oand */	"&",	/* Oandand */	"&&",	/* Oandas */	"&=",	/* Oarray */	"array",	/* Oas */	"=",	/* Obreak */	"break",	/* Ocall */	"call",	/* Ocase */	"case",	/* Ocast */	"cast",	/* Ochan */	"chan",	/* Ocomma */	",",	/* Ocomp */	"~",	/* Ocondecl */	"condecl",	/* Ocons */	"::",	/* Oconst */	"const",	/* Ocont */	"continue",	/* Odas */	":=",	/* Odec */	"--",	/* Odiv */	"/",	/* Odivas */	"/=",	/* Odo */	"do",	/* Odot */	".",	/* Oelem */	"elem",	/* Oeq */	"==",	/* Oexcept */	"except",	/* Oexdecl */	"exdecl",	/* Oexit */	"exit",	/* Oexp */	"**",	/* Oexpas */	"**=",	/* Oexstmt */	"exstat",	/* Ofielddecl */"fielddecl",	/* Ofnptr */	"fnptr",	/* Ofor */	"for",	/* Ofunc */	"fn(){}",	/* Ogeq */	">=",	/* Ogt */	">",	/* Ohd */	"hd",	/* Oif */	"if",	/* Oimport */	"import",	/* Oinc */	"++",	/* Oind */	"*",	/* Oindex */	"index",	/* Oinds */	"inds",	/* Oindx */	"indx",	/* Oinv */		"inv",	/* Ojmp */	"jmp",	/* Olabel */	"label",	/* Olen */	"len",	/* Oleq */	"<=",	/* Oload */	"load",	/* Olsh */	"<<",	/* Olshas */	"<<=",	/* Olt */	"<",	/* Omdot */	"->",	/* Omod */	"%",	/* Omodas */	"%=",	/* Omoddecl */	"moddecl",	/* Omul */	"*",	/* Omulas */	"*=",	/* Oname */	"name",	/* Oneg */	"-",	/* Oneq */	"!=",	/* Onot */	"!",	/* Onothing */	"nothing",	/* Oor */	"|",	/* Ooras */	"|=",	/* Ooror */	"||",	/* Opick */	"pick",	/* Opickdecl */	"pickdecl",	/* Opredec */	"--",	/* Opreinc */	"++",	/* Oraise */	"raise",	/* Orange */	"range",	/* Orcv */	"<-",	/* Oref */	"ref",	/* Oret */	"return",	/* Orsh */	">>",	/* Orshas */	">>=",	/* Oscope */	"scope",	/* Oself */	"self",	/* Oseq */	"seq",	/* Oslice */	"slice",	/* Osnd */	"<-=",	/* Ospawn */	"spawn",	/* Osub */	"-",	/* Osubas */	"-=",	/* Otl */	"tagof",	/* Otl */	"tl",	/* Otuple */	"tuple",	/* Otype */	"type",	/* Otypedecl */	"typedecl",	/* Oused */	"used",	/* Ovardecl */	"vardecl",	/* Ovardecli */	"vardecli",	/* Owild */	"*",	/* Oxor */	"^",	/* Oxoras */	"^=", 	/* Oend */	"unknown"}; int setisbyteinst[] = {	IMULB,	ISUBB,	IADDB,	IDIVB,	IORB,	IXORB,	ISHLB,	ISHRB,	IMODB,	IANDB,	IBEQB,	IBNEB,	IBLTB,	IBLEB,	IBGTB,	IBGEB, 	-1}; char *instname[256] = {	"nop",	"alt",	"nbalt",	"goto",	"call",	"frame",	"spawn",	"runt",	"load",	"mcall",	"mspawn",	"mframe",	"ret",	"jmp",	"case",	"exit",	"new",	"newa",

Lines 1–500 of 658. Load more