Example #1
0
N_NIMCALL(Tnode_bROa11lyF5vxEN9aYNbHmhw*, getarg_4LRC3jIE5TPe1ACm9aPVpBQ)(Tnode_bROa11lyF5vxEN9aYNbHmhw* n0, NimStringDesc* name0, NI pos0) {
	Tnode_bROa11lyF5vxEN9aYNbHmhw* result0;
{	result0 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
	result0 = NIM_NIL;
	{
		if (!((*n0).kind >= ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 1) && (*n0).kind <= ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 23))) goto LA3;
		goto BeforeRet;
	}
	LA3: ;
	{
		NI i_XOmbuBEqaXLfmywSBNfcKw;
		NI HEX3Atmp_nRBwXptAeLwd9aM1g9c6ToIw;
		NI LOC6;
		NI res_tQL9bpoB43pOCpi4s3Uqgow;
		i_XOmbuBEqaXLfmywSBNfcKw = (NI)0;
		HEX3Atmp_nRBwXptAeLwd9aM1g9c6ToIw = (NI)0;
		LOC6 = (NI)0;
		LOC6 = sonslen_qPWPHw7WgJeEVYUdcaRIig(n0);
		HEX3Atmp_nRBwXptAeLwd9aM1g9c6ToIw = (NI)(LOC6 - ((NI) 1));
		res_tQL9bpoB43pOCpi4s3Uqgow = ((NI) 1);
		{
			while (1) {
				if (!(res_tQL9bpoB43pOCpi4s3Uqgow <= HEX3Atmp_nRBwXptAeLwd9aM1g9c6ToIw)) goto LA8;
				i_XOmbuBEqaXLfmywSBNfcKw = res_tQL9bpoB43pOCpi4s3Uqgow;
				{
					if (!((*(*n0).kindU.S6.sons->data[i_XOmbuBEqaXLfmywSBNfcKw]).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 33))) goto LA11;
					{
						if (!!(((*(*(*n0).kindU.S6.sons->data[i_XOmbuBEqaXLfmywSBNfcKw]).kindU.S6.sons->data[((NI) 0)]).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 2)))) goto LA15;
						invalidpragma_54ZurtFnCR0LbrbLzC8vrw(n0);
					}
					LA15: ;
					{
						NI LOC19;
						LOC19 = (NI)0;
						LOC19 = nsuCmpIgnoreStyle((*(*(*(*n0).kindU.S6.sons->data[i_XOmbuBEqaXLfmywSBNfcKw]).kindU.S6.sons->data[((NI) 0)]).kindU.S5.ident).s, name0);
						if (!(LOC19 == ((NI) 0))) goto LA20;
						result0 = (*(*n0).kindU.S6.sons->data[i_XOmbuBEqaXLfmywSBNfcKw]).kindU.S6.sons->data[((NI) 1)];
						goto BeforeRet;
					}
					LA20: ;
				}
				goto LA9;
				LA11: ;
				{
					if (!(i_XOmbuBEqaXLfmywSBNfcKw == pos0)) goto LA23;
					result0 = (*n0).kindU.S6.sons->data[i_XOmbuBEqaXLfmywSBNfcKw];
					goto BeforeRet;
				}
				goto LA9;
				LA23: ;
				LA9: ;
				res_tQL9bpoB43pOCpi4s3Uqgow += ((NI) 1);
			} LA8: ;
		}
	}
	}BeforeRet: ;
	return result0;
}
Example #2
0
N_NIMCALL(void, tobitset_Bgj7mr9bCmLIhOzddHDtD0A)(Tnode_bROa11lyF5vxEN9aYNbHmhw* s0, TY_pxbIse2JUQkJU0n9blV9bY5g** b0) {
	NI64 first0;
	NI64 j0;
	NI64 LOC1;
	first0 = (NI64)0;
	j0 = (NI64)0;
	first0 = firstord_HUiBYxvKiECXCv8BzQNheg((*(*s0).typ).sons->data[((NI) 0)]);
	LOC1 = (NI64)0;
	LOC1 = getsize_spMpEAO8ubfQavMigOxQdA((*s0).typ);
	bitsetinit_9bKA1DbmAErHy3uIMkQY9bUQ(b0, ((NI) (LOC1)));
	{
		NI i_twjkJiPN1B1b9bYrFiUV8uA;
		NI HEX3Atmp_xCcBGsFbMxNEEQgpTAQmbw;
		NI LOC3;
		NI res_j0z9cd9bgq0z5zFFXYMg7kCQ;
		i_twjkJiPN1B1b9bYrFiUV8uA = (NI)0;
		HEX3Atmp_xCcBGsFbMxNEEQgpTAQmbw = (NI)0;
		LOC3 = (NI)0;
		LOC3 = sonslen_qPWPHw7WgJeEVYUdcaRIig(s0);
		HEX3Atmp_xCcBGsFbMxNEEQgpTAQmbw = (NI)(LOC3 - ((NI) 1));
		res_j0z9cd9bgq0z5zFFXYMg7kCQ = ((NI) 0);
		{
			while (1) {
				if (!(res_j0z9cd9bgq0z5zFFXYMg7kCQ <= HEX3Atmp_xCcBGsFbMxNEEQgpTAQmbw)) goto LA5;
				i_twjkJiPN1B1b9bYrFiUV8uA = res_j0z9cd9bgq0z5zFFXYMg7kCQ;
				{
					if (!((*(*s0).kindU.S6.sons->data[i_twjkJiPN1B1b9bYrFiUV8uA]).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 44))) goto LA8;
					j0 = getordvalue_MzTDl1zEXJLD4sql7PhCwA((*(*s0).kindU.S6.sons->data[i_twjkJiPN1B1b9bYrFiUV8uA]).kindU.S6.sons->data[((NI) 0)]);
					{
						while (1) {
							NI64 LOC12;
							LOC12 = (NI64)0;
							LOC12 = getordvalue_MzTDl1zEXJLD4sql7PhCwA((*(*s0).kindU.S6.sons->data[i_twjkJiPN1B1b9bYrFiUV8uA]).kindU.S6.sons->data[((NI) 1)]);
							if (!(j0 <= LOC12)) goto LA11;
							bitsetincl_tznoRhsCn6M9csUzVp17S1w(b0, (NI64)(j0 - first0));
							j0 += ((NI) 1);
						} LA11: ;
					}
				}
				goto LA6;
				LA8: ;
				{
					NI64 LOC14;
					LOC14 = (NI64)0;
					LOC14 = getordvalue_MzTDl1zEXJLD4sql7PhCwA((*s0).kindU.S6.sons->data[i_twjkJiPN1B1b9bYrFiUV8uA]);
					bitsetincl_tznoRhsCn6M9csUzVp17S1w(b0, (NI64)(LOC14 - first0));
				}
				LA6: ;
				res_j0z9cd9bgq0z5zFFXYMg7kCQ += ((NI) 1);
			} LA5: ;
		}
	}
}
Example #3
0
N_NIMCALL(NI64, cardset_q9cOPX0ih7rvjzlPoLISJTQ)(Tnode_bROa11lyF5vxEN9aYNbHmhw* s0) {
	NI64 result0;
	result0 = (NI64)0;
	result0 = IL64(0);
	{
		NI i_vPzhXRvdBHXMyAZ9cWeijqg;
		NI HEX3Atmp_G40Oav5XqGZPjlRyhdsNzg;
		NI LOC2;
		NI res_AruNVUtA1beZAiUZWrYeAw;
		i_vPzhXRvdBHXMyAZ9cWeijqg = (NI)0;
		HEX3Atmp_G40Oav5XqGZPjlRyhdsNzg = (NI)0;
		LOC2 = (NI)0;
		LOC2 = sonslen_qPWPHw7WgJeEVYUdcaRIig(s0);
		HEX3Atmp_G40Oav5XqGZPjlRyhdsNzg = (NI)(LOC2 - ((NI) 1));
		res_AruNVUtA1beZAiUZWrYeAw = ((NI) 0);
		{
			while (1) {
				if (!(res_AruNVUtA1beZAiUZWrYeAw <= HEX3Atmp_G40Oav5XqGZPjlRyhdsNzg)) goto LA4;
				i_vPzhXRvdBHXMyAZ9cWeijqg = res_AruNVUtA1beZAiUZWrYeAw;
				{
					NI64 LOC9;
					NI64 LOC10;
					if (!((*(*s0).kindU.S6.sons->data[i_vPzhXRvdBHXMyAZ9cWeijqg]).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 44))) goto LA7;
					LOC9 = (NI64)0;
					LOC9 = getordvalue_MzTDl1zEXJLD4sql7PhCwA((*(*s0).kindU.S6.sons->data[i_vPzhXRvdBHXMyAZ9cWeijqg]).kindU.S6.sons->data[((NI) 1)]);
					LOC10 = (NI64)0;
					LOC10 = getordvalue_MzTDl1zEXJLD4sql7PhCwA((*(*s0).kindU.S6.sons->data[i_vPzhXRvdBHXMyAZ9cWeijqg]).kindU.S6.sons->data[((NI) 0)]);
					result0 = (NI64)((NI64)((NI64)(result0 + LOC9) - LOC10) + IL64(1));
				}
				goto LA5;
				LA7: ;
				{
					result0 += ((NI) 1);
				}
				LA5: ;
				res_AruNVUtA1beZAiUZWrYeAw += ((NI) 1);
			} LA4: ;
		}
	}
	return result0;
}
Example #4
0
N_NIMCALL(Tnode_bROa11lyF5vxEN9aYNbHmhw*, adddotdependency_iGI5SK0R9aq9cfwn69b9clGHCA)(Tpasscontext_qNsm39cWb35W2r5AAd9ch87g* c0, Tnode_bROa11lyF5vxEN9aYNbHmhw* n0) {
	Tnode_bROa11lyF5vxEN9aYNbHmhw* result0;
	Tgen_QDDBpM0Vs7AZzFtR8rvrSQ* g0;
	result0 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
	result0 = n0;
	g0 = ((Tgen_QDDBpM0Vs7AZzFtR8rvrSQ*) (c0));
	switch ((*n0).kind) {
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 116):
	{
		{
			NI i_1VMkYd5sb9ajRGeAK0Vl0lw;
			NI HEX3Atmp_qPs7sadqAbbmZejymT5Wbg;
			NI LOC3;
			NI res_s2lmZFCRaC1nW67WWqwUNA;
			i_1VMkYd5sb9ajRGeAK0Vl0lw = (NI)0;
			HEX3Atmp_qPs7sadqAbbmZejymT5Wbg = (NI)0;
			LOC3 = (NI)0;
			LOC3 = sonslen_qPWPHw7WgJeEVYUdcaRIig(n0);
			HEX3Atmp_qPs7sadqAbbmZejymT5Wbg = (NI)(LOC3 - ((NI) 1));
			res_s2lmZFCRaC1nW67WWqwUNA = ((NI) 0);
			{
				while (1) {
					NimStringDesc* imported0;
					if (!(res_s2lmZFCRaC1nW67WWqwUNA <= HEX3Atmp_qPs7sadqAbbmZejymT5Wbg)) goto LA5;
					i_1VMkYd5sb9ajRGeAK0Vl0lw = res_s2lmZFCRaC1nW67WWqwUNA;
					imported0 = getmodulename_gHbq1U2uCj9bx0L7AU5ViCQ((*n0).kindU.S6.sons->data[i_1VMkYd5sb9ajRGeAK0Vl0lw]);
					adddependencyaux_sN88ZmE9a2MhWFJVYLF9aAUg((*(*(*g0).module).name).s, imported0);
					res_s2lmZFCRaC1nW67WWqwUNA += ((NI) 1);
				} LA5: ;
			}
		}
	}
	break;
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 120):
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 117):
	{
		NimStringDesc* imported0;
		imported0 = getmodulename_gHbq1U2uCj9bx0L7AU5ViCQ((*n0).kindU.S6.sons->data[((NI) 0)]);
		adddependencyaux_sN88ZmE9a2MhWFJVYLF9aAUg((*(*(*g0).module).name).s, imported0);
	}
	break;
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 115):
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 112):
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 126):
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 127):
	{
		{
			NI i_1VMkYd5sb9ajRGeAK0Vl0lw_2;
			NI HEX3Atmp_qPs7sadqAbbmZejymT5Wbg_2;
			NI LOC9;
			NI res_s2lmZFCRaC1nW67WWqwUNA_2;
			i_1VMkYd5sb9ajRGeAK0Vl0lw_2 = (NI)0;
			HEX3Atmp_qPs7sadqAbbmZejymT5Wbg_2 = (NI)0;
			LOC9 = (NI)0;
			LOC9 = sonslen_qPWPHw7WgJeEVYUdcaRIig(n0);
			HEX3Atmp_qPs7sadqAbbmZejymT5Wbg_2 = (NI)(LOC9 - ((NI) 1));
			res_s2lmZFCRaC1nW67WWqwUNA_2 = ((NI) 0);
			{
				while (1) {
					Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC12;
					if (!(res_s2lmZFCRaC1nW67WWqwUNA_2 <= HEX3Atmp_qPs7sadqAbbmZejymT5Wbg_2)) goto LA11;
					i_1VMkYd5sb9ajRGeAK0Vl0lw_2 = res_s2lmZFCRaC1nW67WWqwUNA_2;
					LOC12 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
					LOC12 = adddotdependency_iGI5SK0R9aq9cfwn69b9clGHCA(c0, (*n0).kindU.S6.sons->data[i_1VMkYd5sb9ajRGeAK0Vl0lw_2]);
					res_s2lmZFCRaC1nW67WWqwUNA_2 += ((NI) 1);
				} LA11: ;
			}
		}
	}
	break;
	default:
	{
	}
	break;
	}
	return result0;
}
Example #5
0
N_NIMCALL(NIM_BOOL, exprstructuralequivalent_XApnXRaD9btY9a4pkMO0ITTg)(Tnode_bROa11lyF5vxEN9aYNbHmhw* a0, Tnode_bROa11lyF5vxEN9aYNbHmhw* b0, NIM_BOOL strictsymequality0) {
	NIM_BOOL result0;
{	result0 = (NIM_BOOL)0;
	{
		if (!(a0 == b0)) goto LA3;
		result0 = NIM_TRUE;
	}
	goto LA1;
	LA3: ;
	{
		NIM_BOOL LOC6;
		NIM_BOOL LOC7;
		LOC6 = (NIM_BOOL)0;
		LOC7 = (NIM_BOOL)0;
		LOC7 = !((a0 == NIM_NIL));
		if (!(LOC7)) goto LA8;
		LOC7 = !((b0 == NIM_NIL));
		LA8: ;
		LOC6 = LOC7;
		if (!(LOC6)) goto LA9;
		LOC6 = ((*a0).kind == (*b0).kind);
		LA9: ;
		if (!LOC6) goto LA10;
		switch ((*a0).kind) {
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 3):
		{
			{
				if (!strictsymequality0) goto LA15;
				result0 = ((*a0).kindU.S4.sym == (*b0).kindU.S4.sym);
			}
			goto LA13;
			LA15: ;
			{
				result0 = ((*(*(*a0).kindU.S4.sym).name).Sup.id == (*(*(*b0).kindU.S4.sym).name).Sup.id);
			}
			LA13: ;
		}
		break;
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 2):
		{
			result0 = ((*(*a0).kindU.S5.ident).Sup.id == (*(*b0).kindU.S5.ident).Sup.id);
		}
		break;
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 5) ... ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 10):
		{
			result0 = ((*a0).kindU.S1.intval == (*b0).kindU.S1.intval);
		}
		break;
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 16) ... ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 18):
		{
			result0 = ((*a0).kindU.S2.floatval == (*b0).kindU.S2.floatval);
		}
		break;
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 20) ... ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 22):
		{
			result0 = eqStrings((*a0).kindU.S3.strval, (*b0).kindU.S3.strval);
		}
		break;
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 1):
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 23):
		case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 4):
		{
			result0 = NIM_TRUE;
		}
		break;
		default:
		{
			{
				NI LOC26;
				NI LOC27;
				LOC26 = (NI)0;
				LOC26 = sonslen_qPWPHw7WgJeEVYUdcaRIig(a0);
				LOC27 = (NI)0;
				LOC27 = sonslen_qPWPHw7WgJeEVYUdcaRIig(b0);
				if (!(LOC26 == LOC27)) goto LA28;
				{
					NI i_6BWBwAC2AeKvx9b4tnkvHFQ;
					NI HEX3Atmp_JnaINYO5V9c1aH2LBPv7y9cg;
					NI LOC31;
					NI res_bEu9bQfPg8yncRpn9bAEPQZw;
					i_6BWBwAC2AeKvx9b4tnkvHFQ = (NI)0;
					HEX3Atmp_JnaINYO5V9c1aH2LBPv7y9cg = (NI)0;
					LOC31 = (NI)0;
					LOC31 = sonslen_qPWPHw7WgJeEVYUdcaRIig(a0);
					HEX3Atmp_JnaINYO5V9c1aH2LBPv7y9cg = (NI)(LOC31 - ((NI) 1));
					res_bEu9bQfPg8yncRpn9bAEPQZw = ((NI) 0);
					{
						while (1) {
							if (!(res_bEu9bQfPg8yncRpn9bAEPQZw <= HEX3Atmp_JnaINYO5V9c1aH2LBPv7y9cg)) goto LA33;
							i_6BWBwAC2AeKvx9b4tnkvHFQ = res_bEu9bQfPg8yncRpn9bAEPQZw;
							{
								NIM_BOOL LOC36;
								LOC36 = (NIM_BOOL)0;
								LOC36 = exprstructuralequivalent_XApnXRaD9btY9a4pkMO0ITTg((*a0).kindU.S6.sons->data[i_6BWBwAC2AeKvx9b4tnkvHFQ], (*b0).kindU.S6.sons->data[i_6BWBwAC2AeKvx9b4tnkvHFQ], strictsymequality0);
								if (!!(LOC36)) goto LA37;
								goto BeforeRet;
							}
							LA37: ;
							res_bEu9bQfPg8yncRpn9bAEPQZw += ((NI) 1);
						} LA33: ;
					}
				}
				result0 = NIM_TRUE;
			}
			LA28: ;
		}
		break;
		}
	}
	goto LA1;
	LA10: ;
	LA1: ;
	}BeforeRet: ;
	return result0;
}
Example #6
0
N_NIMCALL(void, evaltemplateaux_AHGrgjfRCGeqRF8aKpZ9apw)(Tnode_bROa11lyF5vxEN9aYNbHmhw* templ0, Tnode_bROa11lyF5vxEN9aYNbHmhw* actual0, Templctx_og0XwfDLUlsX2HzoVx0s3Q* c0, Tnode_bROa11lyF5vxEN9aYNbHmhw* result0) {
	switch ((*templ0).kind) {
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 3):
	{
		Tsym_AXG7xcvKqaxY6koRX1xkCw* s0;
		s0 = (*templ0).kindU.S4.sym;
		{
			if (!((*(*s0).owner).Sup.id == (*(*c0).owner).Sup.id)) goto LA4;
			{
				NIM_BOOL LOC8;
				Tnode_bROa11lyF5vxEN9aYNbHmhw* x_bpH68CEPoNrC9czs9a6EqbOg;
				LOC8 = (NIM_BOOL)0;
				LOC8 = ((*s0).kind == ((Tsymkind_cNCW9acsSznmEccl1fgQwkw) 3));
				if (!(LOC8)) goto LA9;
				LOC8 = !((((*s0).flags &(1U<<((NU)(((Tsymflag_K9ay6LWMat9bUiT9bIbMxpDHw) 31))&31U)))!=0));
				LA9: ;
				if (!LOC8) goto LA10;
				x_bpH68CEPoNrC9czs9a6EqbOg = (*actual0).kindU.S6.sons->data[(*s0).position];
				{
					if (!((*x_bpH68CEPoNrC9czs9a6EqbOg).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 152))) goto LA14;
					{
						Tnode_bROa11lyF5vxEN9aYNbHmhw* y_sHgbS9bPoBpoZKm4v8bGWYg;
						y_sHgbS9bPoBpoZKm4v8bGWYg = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
						{
							NI i_UyOiZSYKpbQs42BU32yTQQ;
							NI HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg;
							NI LOC18;
							NI res_mrbSWFKRIi4XqJhjBWoMJg;
							i_UyOiZSYKpbQs42BU32yTQQ = (NI)0;
							HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg = (NI)0;
							LOC18 = (NI)0;
							LOC18 = len_CdME9baJhvveuPEDZE9bXoxAlambdalifting(x_bpH68CEPoNrC9czs9a6EqbOg);
							HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg = (LOC18 - 1);
							res_mrbSWFKRIi4XqJhjBWoMJg = ((NI) 0);
							{
								while (1) {
									if (!(res_mrbSWFKRIi4XqJhjBWoMJg <= HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg)) goto LA20;
									i_UyOiZSYKpbQs42BU32yTQQ = res_mrbSWFKRIi4XqJhjBWoMJg;
									y_sHgbS9bPoBpoZKm4v8bGWYg = (*x_bpH68CEPoNrC9czs9a6EqbOg).kindU.S6.sons->data[i_UyOiZSYKpbQs42BU32yTQQ];
									add_gCCf68XrWL79bKes6htzFjQ_3(result0, y_sHgbS9bPoBpoZKm4v8bGWYg);
									res_mrbSWFKRIi4XqJhjBWoMJg += ((NI) 1);
								} LA20: ;
							}
						}
					}
				}
				goto LA12;
				LA14: ;
				{
					Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC22;
					LOC22 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
					LOC22 = copytree_lz8T1F9c0YwEOpUnrAUYgjg_2(x_bpH68CEPoNrC9czs9a6EqbOg);
					add_gCCf68XrWL79bKes6htzFjQ_3(result0, LOC22);
				}
				LA12: ;
			}
			goto LA6;
			LA10: ;
			{
				NIM_BOOL LOC24;
				NIM_BOOL LOC26;
				NIM_BOOL LOC27;
				Tnode_bROa11lyF5vxEN9aYNbHmhw* x_bpH68CEPoNrC9czs9a6EqbOg_2;
				NI LOC32;
				LOC24 = (NIM_BOOL)0;
				LOC24 = ((*s0).kind == ((Tsymkind_cNCW9acsSznmEccl1fgQwkw) 4));
				if (LOC24) goto LA25;
				LOC26 = (NIM_BOOL)0;
				LOC27 = (NIM_BOOL)0;
				LOC27 = ((*s0).kind == ((Tsymkind_cNCW9acsSznmEccl1fgQwkw) 7));
				if (!(LOC27)) goto LA28;
				LOC27 = !(((*s0).typ == NIM_NIL));
				LA28: ;
				LOC26 = LOC27;
				if (!(LOC26)) goto LA29;
				LOC26 = ((*(*s0).typ).kind == ((Ttypekind_9a3YiReNVD0IJHWFKgXRe9ag) 12));
				LA29: ;
				LOC24 = LOC26;
				LA25: ;
				if (!LOC24) goto LA30;
				LOC32 = (NI)0;
				LOC32 = len_gG7hUAX9cA629ahMLVL3xN4w_2((*(*s0).owner).typ);
				x_bpH68CEPoNrC9czs9a6EqbOg_2 = (*actual0).kindU.S6.sons->data[(NI)((NI)(LOC32 + (*s0).position) - ((NI) 1))];
				{
					if (!((*x_bpH68CEPoNrC9czs9a6EqbOg_2).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 152))) goto LA35;
					{
						Tnode_bROa11lyF5vxEN9aYNbHmhw* y_sHgbS9bPoBpoZKm4v8bGWYg_2;
						y_sHgbS9bPoBpoZKm4v8bGWYg_2 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
						{
							NI i_UyOiZSYKpbQs42BU32yTQQ_2;
							NI HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_2;
							NI LOC39;
							NI res_mrbSWFKRIi4XqJhjBWoMJg_2;
							i_UyOiZSYKpbQs42BU32yTQQ_2 = (NI)0;
							HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_2 = (NI)0;
							LOC39 = (NI)0;
							LOC39 = len_CdME9baJhvveuPEDZE9bXoxAlambdalifting(x_bpH68CEPoNrC9czs9a6EqbOg_2);
							HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_2 = (LOC39 - 1);
							res_mrbSWFKRIi4XqJhjBWoMJg_2 = ((NI) 0);
							{
								while (1) {
									if (!(res_mrbSWFKRIi4XqJhjBWoMJg_2 <= HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_2)) goto LA41;
									i_UyOiZSYKpbQs42BU32yTQQ_2 = res_mrbSWFKRIi4XqJhjBWoMJg_2;
									y_sHgbS9bPoBpoZKm4v8bGWYg_2 = (*x_bpH68CEPoNrC9czs9a6EqbOg_2).kindU.S6.sons->data[i_UyOiZSYKpbQs42BU32yTQQ_2];
									add_gCCf68XrWL79bKes6htzFjQ_3(result0, y_sHgbS9bPoBpoZKm4v8bGWYg_2);
									res_mrbSWFKRIi4XqJhjBWoMJg_2 += ((NI) 1);
								} LA41: ;
							}
						}
					}
				}
				goto LA33;
				LA35: ;
				{
					Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC43;
					LOC43 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
					LOC43 = copytree_lz8T1F9c0YwEOpUnrAUYgjg_2(x_bpH68CEPoNrC9czs9a6EqbOg_2);
					add_gCCf68XrWL79bKes6htzFjQ_3(result0, LOC43);
				}
				LA33: ;
			}
			goto LA6;
			LA30: ;
			{
				Tsym_AXG7xcvKqaxY6koRX1xkCw* x0;
				Tidobj_raN9cHVgzmvaXisezY9aGg9cg* LOC50;
				TNimObject* LOC51;
				Tlineinfo_T9c3PM9bs7WZ4LIQfEici9cZw LOC58;
				Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC64;
				{
					NimStringDesc* LOC49;
					if (!!((((*s0).flags &(1U<<((NU)(((Tsymflag_K9ay6LWMat9bUiT9bIbMxpDHw) 31))&31U)))!=0))) goto LA47;
					LOC49 = (NimStringDesc*)0;
					LOC49 = HEX24_k53Ge4e9cDjc7y9c5uML7sPQ(T_N0xGjswvcjwwH43PvVNJAg_3);
					internalerror_5XY9cUy7hZmUusM38U9cYYdw(LOC49);
				}
				LA47: ;
				LOC50 = (Tidobj_raN9cHVgzmvaXisezY9aGg9cg*)0;
				LOC50 = &s0->Sup;
				LOC51 = (TNimObject*)0;
				LOC51 = idtableget_D12lVDWWPrKae8szg3EYLw((*c0).mapping, LOC50);
				x0 = ((Tsym_AXG7xcvKqaxY6koRX1xkCw*) (LOC51));
				{
					Tidobj_raN9cHVgzmvaXisezY9aGg9cg* LOC56;
					TNimObject* LOC57;
					if (!(x0 == NIM_NIL)) goto LA54;
					x0 = copysym_KkocQl2VXhKLz8kG9aC7GEw(s0, NIM_FALSE);
					asgnRefNoCycle((void**) (&(*x0).owner), (*c0).gensymowner);
					LOC56 = (Tidobj_raN9cHVgzmvaXisezY9aGg9cg*)0;
					LOC56 = &s0->Sup;
					LOC57 = (TNimObject*)0;
					LOC57 = &x0->Sup.Sup;
					idtableput_3gLsywwJ9bZDaf06DfKpYbw((&(*c0).mapping), LOC56, LOC57);
				}
				LA54: ;
				{
					if (!(*c0).instlines) goto LA61;
					LOC58 = (*actual0).info;
				}
				goto LA59;
				LA61: ;
				{
					LOC58 = (*templ0).info;
				}
				LA59: ;
				LOC64 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
				LOC64 = newsymnode_slQ2jWOFI1ND3N9c79b7b18g(x0, LOC58);
				add_gCCf68XrWL79bKes6htzFjQ_3(result0, LOC64);
			}
			LA6: ;
		}
		goto LA2;
		LA4: ;
		{
			Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC66;
			LOC66 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
			LOC66 = copynode_HoisCusAu6Qks82zEN9cbNg((&(*c0)), templ0, actual0);
			add_gCCf68XrWL79bKes6htzFjQ_3(result0, LOC66);
		}
		LA2: ;
	}
	break;
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 0) ... ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 2):
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 4) ... ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 23):
	{
		Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC68;
		LOC68 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
		LOC68 = copynode_HoisCusAu6Qks82zEN9cbNg((&(*c0)), templ0, actual0);
		add_gCCf68XrWL79bKes6htzFjQ_3(result0, LOC68);
	}
	break;
	default:
	{
		Tnode_bROa11lyF5vxEN9aYNbHmhw* res0;
		res0 = copynode_HoisCusAu6Qks82zEN9cbNg((&(*c0)), templ0, actual0);
		{
			NI i_UyOiZSYKpbQs42BU32yTQQ_3;
			NI HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_3;
			NI LOC71;
			NI res_mrbSWFKRIi4XqJhjBWoMJg_3;
			i_UyOiZSYKpbQs42BU32yTQQ_3 = (NI)0;
			HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_3 = (NI)0;
			LOC71 = (NI)0;
			LOC71 = sonslen_qPWPHw7WgJeEVYUdcaRIig(templ0);
			HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_3 = (NI)(LOC71 - ((NI) 1));
			res_mrbSWFKRIi4XqJhjBWoMJg_3 = ((NI) 0);
			{
				while (1) {
					if (!(res_mrbSWFKRIi4XqJhjBWoMJg_3 <= HEX3Atmp_xrewkryzQlwNCc2YCCU9bXg_3)) goto LA73;
					i_UyOiZSYKpbQs42BU32yTQQ_3 = res_mrbSWFKRIi4XqJhjBWoMJg_3;
					evaltemplateaux_AHGrgjfRCGeqRF8aKpZ9apw((*templ0).kindU.S6.sons->data[i_UyOiZSYKpbQs42BU32yTQQ_3], actual0, c0, res0);
					res_mrbSWFKRIi4XqJhjBWoMJg_3 += ((NI) 1);
				} LA73: ;
			}
		}
		add_gCCf68XrWL79bKes6htzFjQ_3(result0, res0);
	}
	break;
	}
}
Example #7
0
N_NIMCALL(Tsym_AXG7xcvKqaxY6koRX1xkCw*, ithfield_dVbj6zm1IqxrJtEDcHXhiQ)(Tnode_bROa11lyF5vxEN9aYNbHmhw* n0, NI* field0) {
	Tsym_AXG7xcvKqaxY6koRX1xkCw* result0;
{	result0 = (Tsym_AXG7xcvKqaxY6koRX1xkCw*)0;
	result0 = NIM_NIL;
	switch ((*n0).kind) {
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 138):
	{
		{
			NI i_5M1Q39a38XnDTLT39bx5Of2g;
			NI HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w;
			NI LOC3;
			NI res_wmHNF0yxZFOhJROjDAEFrQ;
			i_5M1Q39a38XnDTLT39bx5Of2g = (NI)0;
			HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w = (NI)0;
			LOC3 = (NI)0;
			LOC3 = sonslen_qPWPHw7WgJeEVYUdcaRIig(n0);
			HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w = (NI)(LOC3 - ((NI) 1));
			res_wmHNF0yxZFOhJROjDAEFrQ = ((NI) 0);
			{
				while (1) {
					if (!(res_wmHNF0yxZFOhJROjDAEFrQ <= HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w)) goto LA5;
					i_5M1Q39a38XnDTLT39bx5Of2g = res_wmHNF0yxZFOhJROjDAEFrQ;
					result0 = ithfield_dVbj6zm1IqxrJtEDcHXhiQ((*n0).kindU.S6.sons->data[i_5M1Q39a38XnDTLT39bx5Of2g], field0);
					{
						if (!!((result0 == NIM_NIL))) goto LA8;
						goto BeforeRet;
					}
					LA8: ;
					res_wmHNF0yxZFOhJROjDAEFrQ += ((NI) 1);
				} LA5: ;
			}
		}
	}
	break;
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 139):
	{
		{
			if (!!(((*(*n0).kindU.S6.sons->data[((NI) 0)]).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 3)))) goto LA13;
			internalerror_MXmtqrCmYwtOPkDCFgUWKQ((*n0).info, ((NimStringDesc*) &T_gkmEeaIyT0wHpJzs9ciIEJg_2));
		}
		LA13: ;
		result0 = ithfield_dVbj6zm1IqxrJtEDcHXhiQ((*n0).kindU.S6.sons->data[((NI) 0)], field0);
		{
			if (!!((result0 == NIM_NIL))) goto LA17;
			goto BeforeRet;
		}
		LA17: ;
		{
			NI i_5M1Q39a38XnDTLT39bx5Of2g_2;
			NI HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w_2;
			NI LOC20;
			NI res_wmHNF0yxZFOhJROjDAEFrQ_2;
			i_5M1Q39a38XnDTLT39bx5Of2g_2 = (NI)0;
			HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w_2 = (NI)0;
			LOC20 = (NI)0;
			LOC20 = sonslen_qPWPHw7WgJeEVYUdcaRIig(n0);
			HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w_2 = (NI)(LOC20 - ((NI) 1));
			res_wmHNF0yxZFOhJROjDAEFrQ_2 = ((NI) 1);
			{
				while (1) {
					if (!(res_wmHNF0yxZFOhJROjDAEFrQ_2 <= HEX3Atmp_Pdi9b8enJ39a4BPR69buMUH8w_2)) goto LA22;
					i_5M1Q39a38XnDTLT39bx5Of2g_2 = res_wmHNF0yxZFOhJROjDAEFrQ_2;
					switch ((*(*n0).kindU.S6.sons->data[i_5M1Q39a38XnDTLT39bx5Of2g_2]).kind) {
					case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 85):
					case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 88):
					{
						Tnode_bROa11lyF5vxEN9aYNbHmhw* LOC24;
						LOC24 = (Tnode_bROa11lyF5vxEN9aYNbHmhw*)0;
						LOC24 = lastson_esDJA7239bJDiq4UrX9aHCjg((*n0).kindU.S6.sons->data[i_5M1Q39a38XnDTLT39bx5Of2g_2]);
						result0 = ithfield_dVbj6zm1IqxrJtEDcHXhiQ(LOC24, field0);
						{
							if (!!((result0 == NIM_NIL))) goto LA27;
							goto BeforeRet;
						}
						LA27: ;
					}
					break;
					default:
					{
						internalerror_MXmtqrCmYwtOPkDCFgUWKQ((*n0).info, ((NimStringDesc*) &T_gkmEeaIyT0wHpJzs9ciIEJg_3));
					}
					break;
					}
					res_wmHNF0yxZFOhJROjDAEFrQ_2 += ((NI) 1);
				} LA22: ;
			}
		}
	}
	break;
	case ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 3):
	{
		{
			if (!((*field0) == ((NI) 0))) goto LA33;
			result0 = (*n0).kindU.S4.sym;
		}
		goto LA31;
		LA33: ;
		{
			(*field0) -= ((NI) 1);
		}
		LA31: ;
	}
	break;
	default:
	{
	}
	break;
	}
	}BeforeRet: ;
	return result0;
}
Example #8
0
N_NIMCALL(NIM_BOOL, inset_b4nxsJCvqXRlyalSWskgNA)(Tnode_bROa11lyF5vxEN9aYNbHmhw* s0, Tnode_bROa11lyF5vxEN9aYNbHmhw* elem0) {
	NIM_BOOL result0;
{	result0 = (NIM_BOOL)0;
	{
		if (!!(((*s0).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 39)))) goto LA3;
		internalerror_MXmtqrCmYwtOPkDCFgUWKQ((*s0).info, ((NimStringDesc*) &T_RCpa9aHGGIKsR9cKRKvszwow_2));
		result0 = NIM_FALSE;
		goto BeforeRet;
	}
	LA3: ;
	{
		NI i_gjmi9a3etTejC7wy08kXMyA;
		NI HEX3Atmp_K0yYuybb2qf8A4rUaUfrQg;
		NI LOC6;
		NI res_R62rbGcY3852wb5Sd9apOsw;
		i_gjmi9a3etTejC7wy08kXMyA = (NI)0;
		HEX3Atmp_K0yYuybb2qf8A4rUaUfrQg = (NI)0;
		LOC6 = (NI)0;
		LOC6 = sonslen_qPWPHw7WgJeEVYUdcaRIig(s0);
		HEX3Atmp_K0yYuybb2qf8A4rUaUfrQg = (NI)(LOC6 - ((NI) 1));
		res_R62rbGcY3852wb5Sd9apOsw = ((NI) 0);
		{
			while (1) {
				if (!(res_R62rbGcY3852wb5Sd9apOsw <= HEX3Atmp_K0yYuybb2qf8A4rUaUfrQg)) goto LA8;
				i_gjmi9a3etTejC7wy08kXMyA = res_R62rbGcY3852wb5Sd9apOsw;
				{
					if (!((*(*s0).kindU.S6.sons->data[i_gjmi9a3etTejC7wy08kXMyA]).kind == ((Tnodekind_G4E4Gxe7oI2Cm03rkiOzQw) 44))) goto LA11;
					{
						NIM_BOOL LOC15;
						LOC15 = (NIM_BOOL)0;
						LOC15 = levalue_1Qdwg1ZguEjbL3mmgPJD3w_2((*(*s0).kindU.S6.sons->data[i_gjmi9a3etTejC7wy08kXMyA]).kindU.S6.sons->data[((NI) 0)], elem0);
						if (!(LOC15)) goto LA16;
						LOC15 = levalue_1Qdwg1ZguEjbL3mmgPJD3w_2(elem0, (*(*s0).kindU.S6.sons->data[i_gjmi9a3etTejC7wy08kXMyA]).kindU.S6.sons->data[((NI) 1)]);
						LA16: ;
						if (!LOC15) goto LA17;
						result0 = NIM_TRUE;
						goto BeforeRet;
					}
					LA17: ;
				}
				goto LA9;
				LA11: ;
				{
					{
						NIM_BOOL LOC22;
						LOC22 = (NIM_BOOL)0;
						LOC22 = samevalue_1Qdwg1ZguEjbL3mmgPJD3w((*s0).kindU.S6.sons->data[i_gjmi9a3etTejC7wy08kXMyA], elem0);
						if (!LOC22) goto LA23;
						result0 = NIM_TRUE;
						goto BeforeRet;
					}
					LA23: ;
				}
				LA9: ;
				res_R62rbGcY3852wb5Sd9apOsw += ((NI) 1);
			} LA8: ;
		}
	}
	result0 = NIM_FALSE;
	}BeforeRet: ;
	return result0;
}