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_));        \