Kernel/src/emu.c

63 #undef TagTypeC
64 #define TagTypeC(item_tag)		((int8) ((item_tag)&0xff))
950     else if (TagTypeC(tmp1) != TagType(pw2->tag))
967 	if (TagTypeC(tmp1) > TCOMP)		/* strings, bignums, etc */
978 	    err_code = tag_desc[TagTypeC(tmp1)].equal(pw1, pw2);
1185     } else if (TagTypeC(tmp1) != TagType(pw2->tag)) {
1200 	if (TagTypeC(tmp1) > TCOMP)		/* string, bignum etc */
1210 	    err_code = tag_desc[TagTypeC(tmp1)].equal(pw1, pw2);
2241 		err_code = tag_desc[TagTypeC(tmp1)].equal(pw1->val.ptr, PP->ptr);
4539 		PP = (PP + TagTypeC(tmp1))->code;
4557 		PP = (PP + TagTypeC(tmp1))->code;
7135 	    if (ISRef(tmp1) || !tag_desc[TagTypeC(tmp1)].numeric) { Fail }
7796 		else if (tag_desc[TagTypeC(tmp1)].numeric)
7826 	    else if (tag_desc[TagTypeC(tmp1)].numeric)
7863 		else if (tag_desc[TagTypeC(tmp1)].numeric)