x_ 35 src/test-arith.c #define TEST5(x_, y_, c_, rexp, cexp, numfmt, opmsg, op) \ x_ 39 src/test-arith.c x_, y_, c_, rexp, cexp); \ x_ 41 src/test-arith.c x = x_; \ x_ 53 src/test-arith.c #define TESTOV(x_, y_, rexp, cexp, numfmt, opmsg, op) \ x_ 55 src/test-arith.c x = x_; \ x_ 59 src/test-arith.c " expects overflow =>", x_, y_); \ x_ 62 src/test-arith.c " expects " numfmt " =>", x_, y_, rexp); \ x_ 83 src/test-arith.c #define TEST_UADD(x_, y_, c_, rexp, cexp) \ x_ 84 src/test-arith.c TEST5(x_, y_, c_, rexp, cexp, "%u", "+", UADD) x_ 120 src/test-arith.c #define TEST_UADDOV(x_, y_, rexp, cexp) \ x_ 121 src/test-arith.c TESTOV(x_, y_, rexp, cexp, "%u", "+", UADDOV) x_ 149 src/test-arith.c #define TEST_SADDOV(x_, y_, rexp, cexp) \ x_ 150 src/test-arith.c TESTOV(x_, y_, rexp, cexp, "%ld", "+", SADDOV) x_ 196 src/test-arith.c #define TEST_USUB(x_, y_, c_, rexp, cexp) \ x_ 197 src/test-arith.c TEST5(x_, y_, c_, rexp, cexp, "%u", "-", USUB) x_ 233 src/test-arith.c #define TEST_USUBOV(x_, y_, rexp, cexp) \ x_ 234 src/test-arith.c TESTOV(x_, y_, rexp, cexp, "%u", "-", USUBOV) x_ 260 src/test-arith.c #define TEST_SSUBOV(x_, y_, rexp, cexp) \ x_ 261 src/test-arith.c TESTOV(x_, y_, rexp, cexp, "%ld", "-", SSUBOV) x_ 309 src/test-arith.c #define TEST_UMUL(x_, y_, hiexp, loexp) \ x_ 311 src/test-arith.c printf("testing %u*%u expects hi=%u, lo=%u =>", x_, y_, \ x_ 313 src/test-arith.c x = x_; \ x_ 342 src/test-arith.c #define TEST_UMULOV(x_, y_, rexp, cexp) \ x_ 343 src/test-arith.c TESTOV(x_, y_, rexp, cexp, "%lu", "*", UMULOV) x_ 377 src/test-arith.c #define TEST_SMULOV(x_, y_, rexp, cexp) \ x_ 378 src/test-arith.c TESTOV(x_, y_, rexp, cexp, "%ld", "*", SMULOV) x_ 685 src/vm.c ScmObj x_, y_ = VAL0; \ x_ 686 src/vm.c POP_ARG(x_); \ x_ 687 src/vm.c if (SCM_INTP(y_) && SCM_INTP(x_)) { \ x_ 688 src/vm.c r = ((signed long)x_ op (signed long)y_); \ x_ 689 src/vm.c } else if (SCM_FLONUMP(y_) && SCM_FLONUMP(x_)) { \ x_ 690 src/vm.c r = (SCM_FLONUM_VALUE(x_) op SCM_FLONUM_VALUE(y_)); \ x_ 693 src/vm.c r = (Scm_NumCmp(x_, y_) op 0); \ x_ 700 src/vm.c ScmObj x_, y_ = VAL0; \ x_ 701 src/vm.c FETCH_OPERAND(x_); \ x_ 702 src/vm.c r = (SCM_FLONUM_VALUE(x_) op Scm_GetDouble(y_)); \