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