Kernel/src/emu.c

124     word		nint;
811 	A[0].val.nint = PSUCCEED;
1179 	tmp1 = pw2->val.nint;			/* ->val temporary */
1312 	(_mask) = PP[-1].nint;\
1323 		TG->val.nint = PP[-(_i)].nint; TG->tag.kernel=TINT;\
1335 	(_mask) = PP[-1].nint;\
2129 	    i = PP++->nint;
2168 	    i = PP++->nint;
2265 	    Unify_Simple_pw1(TINT, nint, tmp1)
2270 	    Unify_Simple_pw1(TINT, nint, tmp1)
2312 	    Unify_Simple_pw1(TINT, nint, tmp1)
2566 	    Unify_Simple_pw1(TINT, nint, tmp1)
2570 	    Unify_Simple_pw1(TINT, nint, tmp1)
2591 	    Unify_Simple_pw1(TINT, nint, tmp1)
2600 	    Unify_Simple_pw1(TINT, nint, tmp1)
3119 	    S->val.nint = PP++->nint;
3124 	    S->val.nint = PP++->nint;
3146 	    S->val.nint = PP++->nint;
3155 	    S->val.nint = PP++->nint;
3463 	    pw1->val.nint = PP++->nint;
3591 	    SP->val.nint = PP++->nint;
3640 	    SP->val.nint = PP++->nint;
3703 	    DBG_PORT = PP->nint;
3709 	    DBG_PORT = PP->nint;
3720 	    DBG_PORT = PP->nint | INLINE_PORT;
3726 	    DBG_PORT = PP++->nint;
3858 	    tmp1 = PP[1].nint;			/* arity */
3880 			A[1].val.nint = i;
3890 		i = PP[0].nint;			/* nalt */
3899 		i = pw2->val.nint = pw1->val.nint;
3998 		pw2->val.nint = tmp1;
4090 	    BAlt(B.args) = (E - 2)->val.nint;	/* scheduled alternative */
4093 	    for (tmp1 = (E - 3)->val.nint; tmp1; --tmp1)
4115 		    pw2->val.nint = tmp1;
4135 	    tmp1 = PP[1].nint;
4186 	    tmp1 = PP[1].nint;
4192 	    tmp1 = PP[1].nint;
4198 	    DBG_PORT = PP->nint;
4204 	    DBG_PORT = PP->nint;
4280 	    DBG_PORT = PP->nint;
4286 	    DBG_PORT = PP->nint;
4294 	    DBG_PORT = PP->nint;
4339 	    tmp1 = (PP+3)->nint & SRC_CLAUSE_ARITY_MASK;
4346 		    A[++tmp1].val.nint = i;	/* add call clock argument */
4357 	    i = ((pword *)(B.top - 1) - 1)->val.nint;
4431 	    i = pw1->val.nint;		/* i is unsigned! */
4442 		    if ((word)i < (word) pw1[tmp1].val.nint)
4444 		    else if ((word)i > (word) pw1[tmp1].val.nint)
4505 		    i = pw1->val.nint;
4507 		    if ((word) i < pw1->val.nint)
4509 		    else if ((word) i > (++pw1)->val.nint)
4511 		    else if (PP->nint == 0)	/* no further table */
4729 	    i = (uword) PP++->nint;
4748 	    i = (uword) PP++->nint;
4970 	    if ((i = DfidDepth->val.nint + 1) > MaxDepth) {
4982 	    pw1->val.nint = i;
4987 		S->val.nint = i;
4991 		DfidDepth->val.nint = i;
4995 	    if ((i = DfidDepth->val.nint + 1) > MaxDepth) {
5009 		S->val.nint = i;
5013 		DfidDepth->val.nint = i;
5022 		S->val.nint = pw1->val.nint;
5026 		DfidDepth->val.nint = pw1->val.nint;
5048 	    if (!IsTag(tmp1,TINT) || (pw1->val.nint != PP++->nint))
5196 		tmp1 = PP[0].nint;
5207 	    SP->val.nint = WP;
5213 	    tmp1 = (E-1)->val.nint;		/* saved WP */
5279 			    SP->val.nint = tmp1;
5297 		err_code = DynEnvDbgPort(E)->val.nint;		/* port */
5335 		DynEnvDbgPort(E)->val.nint &= ~LAST_CALL;	/* port */
5340 	    err_code = DynEnvDbgPort(E)->val.nint;		/* port */
5342 	    DynEnvDbgPort(E)->val.nint |= LAST_CALL;
5348 	    DBG_INVOC = DynEnvDbgInvoc(E)->val.nint;		/* invoc */
5391 		DynEnvDbgLine(E)->val.nint,
5392 		DynEnvDbgFrom(E)->val.nint,
5393 		DynEnvDbgTo(E)->val.nint, val_did)
5460             i = PP->nint;               /* # of additional arguments */
5836 	    i = pw1->val.nint;
5863 		err_code = pw1->val.nint;
5867 		    A[1].val.nint = -err_code;
5883 		A[1].val.nint = -(EVENT_IGNORED);
5893 	    DBG_PORT = PP++->nint;	/* NO_PORT or CALL_PORT		*/
5952 		!(PP++)->nint ?  catch_fail_code_ : catch_unint_fail_code_;
6259 			DBG_PORT = PP[1].nint;
6261 			DBG_LINE = PP[3].nint;
6262 			DBG_FROM = PP[4].nint;
6263 			DBG_TO = PP[5].nint;
6275 			DBG_PORT = PP[1].nint;
6277 			DBG_LINE = PP[3].nint;
6278 			DBG_FROM = PP[4].nint;
6279 			DBG_TO = PP[5].nint;
6342 		TG->val.nint = _pp[-(_i)].nint; TG->tag.kernel=TINT;\
6367 			|| (PP[1].nint & NO_ARGS)
6383 		back_code = PP + 9 + PP[7].nint;	/* bi_xxx instruction arguments */
6384 		if (PP[6].nint < 0) {
6385 		    i = back_code[0].nint;	/* bi_xxx instruction's argdesc */
6387 		    i = PP[6].nint;		/* debug instruction's argdesc */
6393 	    err_code = PP[1].val.nint;	/* port */
6415 		back_code[2].did, back_code[3].nint, back_code[4].nint, back_code[5].nint, PriModule(proc))
6439 		    if (back_code[6].nint < 0) {
6440 			back_code = back_code + 9 + back_code[7].nint;	/* bi_xxx instruction arguments */
6441 			i = back_code[0].nint;		/* bi_xxx instruction's argdesc */
6443 			i = back_code[6].nint;		/* debug_call_simple instruction's argdesc */
6444 			back_code = back_code + 9 + back_code[7].nint;	/* bi_xxx instruction arguments */
6815 	    err_code = PP++->nint;
6874 	    A[0].val.nint = err_code;
7001 	    pw1->val.nint = -err_code;
7012 	    err_code = PP->arg->val.nint;
7027 	    if (pw1->val.nint < 1 || pw1->val.nint > DidArity(pw2->val.did)) {
7032 	    pw2 += pw1->val.nint;
7051 		    Set_Bip_Error(- pw1->val.nint);
7306 		if (pw1->val.nint Op pw2->val.nint)\
7311 		if ((double)pw1->val.nint Op Dbl(pw2->val))\
7318 		if (Dbl(pw1->val) Op (double)pw2->val.nint)\
7361 		register word	n1 = pw1->val.nint;\
7362 		register word	n2 = pw2->val.nint;\
7369 		PP[-2].arg->val.nint = tmp1;\
7374 		dbl_res = (double)pw1->val.nint Op Dbl(pw2->val);\
7380 		dbl_res = Dbl(pw1->val) Op (double)pw2->val.nint;\
7403 	    PP[-2].arg->val.nint = pw1->val.nint Op pw2->val.nint;\
7420 		if ((tmp1 = -pw1->val.nint) == MIN_S_WORD) {
7449 		register word	n1 = pw1->val.nint;
7450 		register word	n2 = PP[-3].nint;
7460 		dbl_res = Dbl(pw1->val) + (double)PP[-3].nint;
7470 	    Make_Integer(&scratch_pw, PP[-3].nint);
7502 		    tmp1 = pw1->val.nint;
7504 			tmp1 *= pw2->val.nint;
7506 			    tmp1/pw1->val.nint != pw2->val.nint)	/* for sure */
7516 		    dbl_res = (double)pw1->val.nint * Dbl(pw2->val);
7522 		    dbl_res = Dbl(pw1->val) * (double)pw2->val.nint;
7553 			dbl_res = (double)pw1->val.nint / (double)pw2->val.nint;
7558 		    dbl_res = Dbl(pw1->val) / (double)pw2->val.nint;
7565 		    dbl_res = (double)pw1->val.nint / Dbl(pw2->val);
7588 		if (pw2->val.nint == 0)
7593 		if (pw1->val.nint == MIN_S_WORD && pw2->val.nint == -1)
7598 		Make_Integer(PP[-2].arg, pw1->val.nint / pw2->val.nint);
7616 		if (pw2->val.nint == 0)
7621 		PP[-2].arg->val.nint =
7624 		    (/* pw1->val.nint == MIN_S_WORD && */ pw2->val.nint == -1) ? 0 :
7627 		       pw1->val.nint % pw2->val.nint;
7646 		if (pw2->val.nint == 0)
7651 		if (pw1->val.nint == MIN_S_WORD && pw2->val.nint == -1)
7656 		tmp1 = pw1->val.nint / pw2->val.nint;
7658 		if (((pw1->val.nint ^ pw2->val.nint) < 0) && (pw1->val.nint % pw2->val.nint))
7678 		if (pw2->val.nint == 0) {
7681 		    tmp1 = pw1->val.nint;
7688 		} else if (/* pw1->val.nint == MIN_S_WORD && */ pw2->val.nint == -1) {
7693 		    tmp1 = pw1->val.nint % pw2->val.nint;
7695 		    if (tmp1 && (pw1->val.nint ^ pw2->val.nint) < 0)
7696 			tmp1 += pw2->val.nint;
7721 		Make_Integer(PP[-2].arg, ~ pw1->val.nint);
7768 	    if (PP[-1].nint & 2) {
7770 		Make_Integer(&scratch_pw, PP[-4].nint);
7810 		tmp1 = pw2->val.nint;
7836 		    tmp1 = pw2->val.nint;
7936 		tmp1 = pw3->val.nint;