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