r 66 examples/spigot/spigot.c int k, i, j, l, b, q, r, *array; r 89 examples/spigot/spigot.c r = b + q/10; r 95 examples/spigot/spigot.c if (r < 10) { r 96 examples/spigot/spigot.c relts[i] = SCM_MAKE_INT(r); r 98 examples/spigot/spigot.c relts[i] = SCM_MAKE_INT(r%10); r 99 examples/spigot/spigot.c for (l=i-1, r/=10; r && l>=0; l--, r/=10) { r 100 examples/spigot/spigot.c r += SCM_INT_VALUE(relts[l]); r 101 examples/spigot/spigot.c relts[l] = SCM_MAKE_INT(r%10); r 110 examples/spigot/spigot.c int k, i, j, l, b, q, r, *array; r 132 examples/spigot/spigot.c r = b + q/10; r 138 examples/spigot/spigot.c if (r < 10) { r 139 examples/spigot/spigot.c relts[i] = SCM_MAKE_INT(r); r 141 examples/spigot/spigot.c relts[i] = SCM_MAKE_INT(r%10); r 142 examples/spigot/spigot.c for (l=i-1, r/=10; r && l>=0; l--, r/=10) { r 143 examples/spigot/spigot.c r += SCM_INT_VALUE(relts[l]); r 144 examples/spigot/spigot.c relts[l] = SCM_MAKE_INT(r%10); r 50 ext/auxsys/auxsys.c BOOL r; r 51 ext/auxsys/auxsys.c r = GetUserName(buf, &size); r 52 ext/auxsys/auxsys.c if (r) { r 235 ext/auxsys/auxsyslib.c int r; SCM_SYSCALL(r, gettimeofday(&tv, NULL)); r 236 ext/auxsys/auxsyslib.c if (r < 0) Scm_SysError("gettimeofday failed"); r 304 ext/auxsys/auxsyslib.c struct utimbuf tim; int r; r 306 ext/auxsys/auxsyslib.c SCM_SYSCALL(r, utime(path, NULL)); r 310 ext/auxsys/auxsyslib.c SCM_SYSCALL(r, utime(path, &tim)); r 312 ext/auxsys/auxsyslib.c if (r < 0) Scm_SysError("utime failed on %s", path); r 508 ext/auxsys/auxsyslib.c clock_t r = times(&info); r 509 ext/auxsys/auxsyslib.c if (r == (clock_t)-1) Scm_SysError("times failed"); r 562 ext/auxsys/auxsyslib.c char buf[HOSTNAMELEN]; int r; r 563 ext/auxsys/auxsyslib.c SCM_SYSCALL(r, gethostname(buf, HOSTNAMELEN)); r 564 ext/auxsys/auxsyslib.c if (r < 0) Scm_SysError("gethostname failed"); r 582 ext/auxsys/auxsyslib.c char buf[HOSTNAMELEN]; int r; r 583 ext/auxsys/auxsyslib.c SCM_SYSCALL(r, getdomainname(buf, HOSTNAMELEN)); r 584 ext/auxsys/auxsyslib.c if (r < 0) Scm_SysError("getdomainname failed"); r 120 ext/binary/binary.c int nread = 0, r; r 123 ext/binary/binary.c r = Scm_Getz(buf, len-nread, iport); r 124 ext/binary/binary.c if (r <= 0) return EOF; r 125 ext/binary/binary.c nread += r; r 126 ext/binary/binary.c buf += r; r 348 ext/charconv/charconv.c int r; r 356 ext/charconv/charconv.c r = jconv_reset(info, info->buf, info->bufsiz); r 359 ext/charconv/charconv.c r, info->buf); r 361 ext/charconv/charconv.c if (r < 0) { r 365 ext/charconv/charconv.c if (r > 0) { r 366 ext/charconv/charconv.c Scm_Putz(info->buf, r, info->remote); r 516 ext/charconv/charconv.c size_t inroom, outroom, r; r 523 ext/charconv/charconv.c r = jconv(ucsconv.ucs2char, &inb, &inroom, &outb, &outroom); r 525 ext/charconv/charconv.c if (r == INPUT_NOT_ENOUGH || r == OUTPUT_NOT_ENOUGH) { r 528 ext/charconv/charconv.c if (r == ILLEGAL_SEQUENCE) { r 547 ext/charconv/charconv.c size_t inroom, outroom, r; r 555 ext/charconv/charconv.c r = jconv(ucsconv.char2ucs, &inb, &inroom, &outb, &outroom); r 557 ext/charconv/charconv.c if (r == INPUT_NOT_ENOUGH || r == OUTPUT_NOT_ENOUGH) { r 560 ext/charconv/charconv.c if (r == ILLEGAL_SEQUENCE) { r 901 ext/charconv/jconv.c size_t inoffset = 0, r; r 907 ext/charconv/jconv.c r = jis_esc(cinfo, inptr+inoffset, inroom-inoffset); r 908 ext/charconv/jconv.c if (ERRP(r)) return r; r 909 ext/charconv/jconv.c inoffset += r; r 1320 ext/charconv/jconv.c size_t r; r 1324 ext/charconv/jconv.c r = iconv(info->handle, (char **)iptr, iroom, optr, oroom); r 1326 ext/charconv/jconv.c if (r == (size_t)-1) { r 1331 ext/charconv/jconv.c return (int)r; r 1339 ext/charconv/jconv.c size_t r; r 1341 ext/charconv/jconv.c r = iconv(info->handle, NULL, 0, &optr, &oroom); r 1342 ext/charconv/jconv.c if (r == (size_t)-1) { r 1425 ext/charconv/jconv.c int r = 0; r 1428 ext/charconv/jconv.c r = iconv_close(info->handle); r 1432 ext/charconv/jconv.c return r; r 138 ext/fcntl/fcntl.c int fd = Scm_GetPortFd(port_or_fd, TRUE), r; r 152 ext/fcntl/fcntl.c SCM_SYSCALL(r, fcntl(fd, op)); r 153 ext/fcntl/fcntl.c if (r == -1) { /*NB: F_GETOWN may return a negative value on success*/ r 156 ext/fcntl/fcntl.c return Scm_MakeInteger(r); r 174 ext/fcntl/fcntl.c SCM_SYSCALL(r, fcntl(fd, op, Scm_GetInteger(arg))); r 175 ext/fcntl/fcntl.c if (r < 0) { r 178 ext/fcntl/fcntl.c return Scm_MakeInteger(r); r 185 ext/fcntl/fcntl.c SCM_SYSCALL(r, fcntl(fd, op, &fl->lock)); r 187 ext/fcntl/fcntl.c if (r >= 0) return SCM_TRUE; r 190 ext/fcntl/fcntl.c if (r < 0) Scm_SysError("fcntl(%s) failed", flag_name(op)); r 160 ext/mt-random/mt-random.c float r; r 162 ext/mt-random/mt-random.c r = (float)(Scm_MTGenrandU32(mt)*(1.0/4294967296.0)); r 164 ext/mt-random/mt-random.c } while (exclude0 && r == 0.0); /*if we get 0.0, try another one. */; r 165 ext/mt-random/mt-random.c return r; r 171 ext/mt-random/mt-random.c double r; r 176 ext/mt-random/mt-random.c r = (a*67108864.0+b)*(1.0/9007199254740992.0); r 177 ext/mt-random/mt-random.c } while (exclude0 && r == 0.0); /*if we get 0.0, try another one. */; r 178 ext/mt-random/mt-random.c return r; r 223 ext/mt-random/mt-random.c unsigned long r; r 228 ext/mt-random/mt-random.c r = Scm_MTGenrandU32(mt); r 229 ext/mt-random/mt-random.c if (e == 32) return Scm_MakeIntegerFromUI(r); r 230 ext/mt-random/mt-random.c else return Scm_MakeIntegerFromUI(r >> (32-e)); r 235 ext/mt-random/mt-random.c r = Scm_MTGenrandU32(mt); r 236 ext/mt-random/mt-random.c } while (r >= qn); r 237 ext/mt-random/mt-random.c return Scm_MakeIntegerFromUI((unsigned long)(r/q)); r 235 ext/net/addr.c int r; r 239 ext/net/addr.c r = getaddrinfo(hname, NULL, &hints, &res); r 240 ext/net/addr.c if (r) Scm_Error("getaddrinfo: %s", gai_strerror(r)); r 114 ext/net/net.c int r; r 118 ext/net/net.c SCM_SYSCALL(r, shutdown(s->fd, how)); r 119 ext/net/net.c if (r < 0) { r 200 ext/net/net.c int r; r 205 ext/net/net.c SCM_SYSCALL(r, bind(sock->fd, &addr->addr, addr->addrlen)); r 206 ext/net/net.c if (r < 0) { r 214 ext/net/net.c SCM_SYSCALL(r, getsockname(sock->fd, &naddr->addr, &naddr->addrlen)); r 215 ext/net/net.c if (r < 0) { r 225 ext/net/net.c int r; r 229 ext/net/net.c SCM_SYSCALL(r, listen(sock->fd, backlog)); r 230 ext/net/net.c if (r < 0) { r 267 ext/net/net.c int r; r 271 ext/net/net.c SCM_SYSCALL(r, connect(sock->fd, &addr->addr, addr->addrlen)); r 272 ext/net/net.c if (r < 0) { r 283 ext/net/net.c int r; r 289 ext/net/net.c SCM_SYSCALL(r, getsockname(sock->fd, (struct sockaddr *)addrbuf, &addrlen)); r 290 ext/net/net.c if (r < 0) { r 299 ext/net/net.c int r; r 305 ext/net/net.c SCM_SYSCALL(r, getpeername(sock->fd, (struct sockaddr *)addrbuf, &addrlen)); r 306 ext/net/net.c if (r < 0) { r 314 ext/net/net.c int r; u_int size; r 320 ext/net/net.c SCM_SYSCALL(r, send(sock->fd, cmsg, size, flags)); r 321 ext/net/net.c if (r < 0) { r 324 ext/net/net.c return SCM_MAKE_INT(r); r 330 ext/net/net.c int r; u_int size; r 336 ext/net/net.c SCM_SYSCALL(r, sendto(sock->fd, cmsg, size, flags, r 338 ext/net/net.c if (r < 0) { r 341 ext/net/net.c return SCM_MAKE_INT(r); r 346 ext/net/net.c int r; r 352 ext/net/net.c SCM_SYSCALL(r, recv(sock->fd, buf, bytes, flags)); r 353 ext/net/net.c if (r < 0) { r 356 ext/net/net.c return Scm_MakeString(buf, r, r, SCM_MAKSTR_INCOMPLETE); r 361 ext/net/net.c int r; r 369 ext/net/net.c SCM_SYSCALL(r, recvfrom(sock->fd, buf, bytes, flags, &from, &fromlen)); r 370 ext/net/net.c if (r < 0) { r 373 ext/net/net.c return Scm_Values2(Scm_MakeString(buf, r, r, SCM_MAKSTR_INCOMPLETE), r 385 ext/net/net.c int r = 0; r 393 ext/net/net.c SCM_SYSCALL(r, setsockopt(s->fd, level, option, cvalue, size)); r 396 ext/net/net.c SCM_SYSCALL(r, setsockopt(s->fd, level, option, &v, sizeof(int))); r 400 ext/net/net.c if (r < 0) Scm_SysError("setsockopt failed"); r 406 ext/net/net.c int r = 0; r 413 ext/net/net.c SCM_SYSCALL(r, getsockopt(s->fd, level, option, buf, &rrsize)); r 414 ext/net/net.c if (r < 0) Scm_SysError("getsockopt failed"); r 419 ext/net/net.c SCM_SYSCALL(r, getsockopt(s->fd, level, option, &val, &rrsize)); r 420 ext/net/net.c if (r < 0) Scm_SysError("getsockopt failed"); r 435 ext/net/net.c unsigned long r = inet_addr(cp); r 436 ext/net/net.c if (r == (unsigned long)-1) { r 439 ext/net/net.c inp->s_addr = r; r 474 ext/net/net.c int r = WSAStartup(MAKEWORD(2,2), &wsaData); r 475 ext/net/net.c if (r != 0) { r 476 ext/net/net.c SetLastError(r); r 481 ext/net/net.c r = setsockopt(INVALID_SOCKET, SOL_SOCKET, r 483 ext/net/net.c if (r == SOCKET_ERROR) { r 517 ext/net/netdb.c int r; r 519 ext/net/netdb.c r = getaddrinfo(nodename, servname, hints, &res0); r 520 ext/net/netdb.c if (r) Scm_Error("getaddrinfo failed: %s", gai_strerror(r)); r 532 ext/net/netdb.c int r; r 534 ext/net/netdb.c r = getnameinfo(&addr->addr, addr->addrlen, r 536 ext/net/netdb.c if (r) Scm_Error("getnameinfo failed: %s", gai_strerror(r)); r 201 ext/net/netlib.c const char *r = inet_ntop(AF_INET6, &a->addr.sin6_addr, buf, sizeof(buf)); r 202 ext/net/netlib.c if (r == NULL) Scm_SysError("inet_ntop"); r 266 ext/termios/termiolib.c pid_t r = tcgetpgrp(fd); r 267 ext/termios/termiolib.c if (r < 0) { Scm_SysError("tcgetpgrp failed"); } r 268 ext/termios/termiolib.c SCM_RETURN(Scm_MakeInteger(r)); r 125 ext/threads/mutex.c ScmObj r; r 129 ext/threads/mutex.c if (mutex->owner->state == SCM_VM_TERMINATED) r = sym_abandoned; r 130 ext/threads/mutex.c else r = SCM_OBJ(mutex->owner); r 132 ext/threads/mutex.c r = sym_not_owned; r 135 ext/threads/mutex.c r = sym_not_abandoned; r 138 ext/threads/mutex.c return r; r 186 ext/threads/mutex.c ScmObj r = SCM_TRUE; r 204 ext/threads/mutex.c if (tr == ETIMEDOUT) { r = SCM_FALSE; break; } r 210 ext/threads/mutex.c if (SCM_TRUEP(r)) { r 220 ext/threads/mutex.c r = Scm_Raise(exc); r 222 ext/threads/mutex.c return r; r 230 ext/threads/mutex.c ScmObj r = SCM_TRUE; r 247 ext/threads/mutex.c if (tr == ETIMEDOUT) { r = SCM_FALSE; } r 257 ext/threads/mutex.c return r; r 317 ext/threads/thrlib.c ScmObj r; r 321 ext/threads/thrlib.c if (mutex->owner->state == SCM_VM_TERMINATED) r = sym_abandoned; r 322 ext/threads/thrlib.c else r = SCM_OBJ(mutex->owner); r 324 ext/threads/thrlib.c r = sym_not_owned; r 327 ext/threads/thrlib.c r = sym_not_abandoned; r 330 ext/threads/thrlib.c SCM_RETURN(r); r 337 ext/uvector/uvector.c long r, v; r 338 ext/uvector/uvector.c SADDOV(r, v, x, y); r 339 ext/uvector/uvector.c if (v == 0) return clamp_s32(r, clamp); r 347 ext/uvector/uvector.c long r, v; r 348 ext/uvector/uvector.c SSUBOV(r, v, x, y); r 349 ext/uvector/uvector.c if (v == 0) return clamp_s32(r, clamp); r 356 ext/uvector/uvector.c long r, v; r 357 ext/uvector/uvector.c SMULOV(r, v, x, y); r 358 ext/uvector/uvector.c if (v == 0) return clamp_s32(r, clamp); r 381 ext/uvector/uvector.c u_long r, v; r 382 ext/uvector/uvector.c UADDOV(r, v, x, y); r 383 ext/uvector/uvector.c if (v == 0) return clamp_u32(r, clamp); r 389 ext/uvector/uvector.c u_long r, v; r 390 ext/uvector/uvector.c USUBOV(r, v, x, y); r 391 ext/uvector/uvector.c if (v == 0) return clamp_u32(r, clamp); r 397 ext/uvector/uvector.c u_long r, v; r 398 ext/uvector/uvector.c UMULOV(r, v, x, y); r 399 ext/uvector/uvector.c if (v == 0) return clamp_u32(r, clamp); r 412 ext/uvector/uvector.c ScmObj r = Scm_Add2(xx, yy); r 413 ext/uvector/uvector.c return Scm_GetInteger64Clamp(r, clamp, NULL); r 415 ext/uvector/uvector.c long r, v; r 416 ext/uvector/uvector.c SADDOV(r, v, x, y); r 417 ext/uvector/uvector.c if (v == 0) return r; r 428 ext/uvector/uvector.c ScmObj r = Scm_Subtract2(xx, yy); r 429 ext/uvector/uvector.c return Scm_GetInteger64Clamp(r, clamp, NULL); r 431 ext/uvector/uvector.c long r, v; r 432 ext/uvector/uvector.c SSUBOV(r, v, x, y); r 433 ext/uvector/uvector.c if (v == 0) return r; r 444 ext/uvector/uvector.c ScmObj r = Scm_Multiply2(xx, yy); r 445 ext/uvector/uvector.c return Scm_GetInteger64Clamp(r, clamp, NULL); r 447 ext/uvector/uvector.c long r, v; r 448 ext/uvector/uvector.c SMULOV(r, v, x, y); r 449 ext/uvector/uvector.c if (v == 0) return r; r 464 ext/uvector/uvector.c ScmObj r = Scm_Add2(xx, yy); r 465 ext/uvector/uvector.c return Scm_GetIntegerU64Clamp(r, clamp, NULL); r 467 ext/uvector/uvector.c u_long r, v; r 468 ext/uvector/uvector.c UADDOV(r, v, x, y); r 469 ext/uvector/uvector.c if (v == 0) return r; r 479 ext/uvector/uvector.c ScmObj r = Scm_Subtract2(xx, yy); r 480 ext/uvector/uvector.c return Scm_GetIntegerU64Clamp(r, clamp, NULL); r 482 ext/uvector/uvector.c u_long r, v; r 483 ext/uvector/uvector.c USUBOV(r, v, x, y); r 484 ext/uvector/uvector.c if (v == 0) return r; r 494 ext/uvector/uvector.c ScmObj r = Scm_Multiply2(xx, yy); r 495 ext/uvector/uvector.c return Scm_GetIntegerU64Clamp(r, clamp, NULL); r 497 ext/uvector/uvector.c u_long r, v; r 498 ext/uvector/uvector.c UMULOV(r, v, x, y); r 499 ext/uvector/uvector.c if (v == 0) return r; r 574 ext/uvector/uvector.c ScmUInt64 r = {0, 0}; r 575 ext/uvector/uvector.c if (SCM_INTP(x)) r.lo = SCM_INT_VALUE(x); r 579 ext/uvector/uvector.c r.lo = ii.lo; r 580 ext/uvector/uvector.c r.hi = ii.hi; r 584 ext/uvector/uvector.c ScmUInt64 r = 0; r 585 ext/uvector/uvector.c if (SCM_INTP(x)) r = SCM_INT_VALUE(x); r 588 ext/uvector/uvector.c r = Scm_GetIntegerU64(xx); r 592 ext/uvector/uvector.c return r; r 595 ext/uvector/uvector.c return r; /* dummy */ r 599 ext/uvector/uvector.c #define INT64BITOP(r, x, op, y) ((r.lo = x.lo op y.lo), (r.hi = x.hi op y.hi)) r 601 ext/uvector/uvector.c #define INT64BITOP(r, x, op, y) (r = x op y) r 870 ext/uvector/uvector.c ScmObj r; r 878 ext/uvector/uvector.c r = SCM_MAKE_INT(elt); r 879 ext/uvector/uvector.c return r; r 1074 ext/uvector/uvector.c ScmObj r; r 1082 ext/uvector/uvector.c r = SCM_MAKE_INT(elt); r 1083 ext/uvector/uvector.c return r; r 1278 ext/uvector/uvector.c ScmObj r; r 1286 ext/uvector/uvector.c r = SCM_MAKE_INT(elt); r 1287 ext/uvector/uvector.c return r; r 1482 ext/uvector/uvector.c ScmObj r; r 1490 ext/uvector/uvector.c r = SCM_MAKE_INT(elt); r 1491 ext/uvector/uvector.c return r; r 1686 ext/uvector/uvector.c ScmObj r; r 1694 ext/uvector/uvector.c r = Scm_MakeInteger(elt); r 1695 ext/uvector/uvector.c return r; r 1890 ext/uvector/uvector.c ScmObj r; r 1898 ext/uvector/uvector.c r = Scm_MakeIntegerU(elt); r 1899 ext/uvector/uvector.c return r; r 2094 ext/uvector/uvector.c ScmObj r; r 2102 ext/uvector/uvector.c r = Scm_MakeInteger64(elt); r 2103 ext/uvector/uvector.c return r; r 2298 ext/uvector/uvector.c ScmObj r; r 2306 ext/uvector/uvector.c r = Scm_MakeIntegerU64(elt); r 2307 ext/uvector/uvector.c return r; r 2502 ext/uvector/uvector.c ScmObj r; r 2510 ext/uvector/uvector.c r = Scm_MakeFlonum((double)elt); r 2511 ext/uvector/uvector.c return r; r 2706 ext/uvector/uvector.c ScmObj r; r 2714 ext/uvector/uvector.c r = Scm_MakeFlonum(elt); r 2715 ext/uvector/uvector.c return r; r 2793 ext/uvector/uvector.c long r, v0, v1; r 2801 ext/uvector/uvector.c r = s8s8_add(v0, v1, clamp); r 2802 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 2811 ext/uvector/uvector.c r = s8g_add(v0, v1, clamp); r 2815 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 2817 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 2826 ext/uvector/uvector.c r = s8g_add(v0, v1, clamp); r 2830 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 2832 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 2840 ext/uvector/uvector.c r = s8g_add(v0, v1, clamp); r 2844 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 2846 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 2870 ext/uvector/uvector.c long r, v0, v1; r 2878 ext/uvector/uvector.c r = u8u8_add(v0, v1, clamp); r 2879 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 2888 ext/uvector/uvector.c r = u8g_add(v0, v1, clamp); r 2892 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 2894 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 2903 ext/uvector/uvector.c r = u8g_add(v0, v1, clamp); r 2907 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 2909 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 2917 ext/uvector/uvector.c r = u8g_add(v0, v1, clamp); r 2921 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 2923 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 2947 ext/uvector/uvector.c long r, v0, v1; r 2955 ext/uvector/uvector.c r = s16s16_add(v0, v1, clamp); r 2956 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 2965 ext/uvector/uvector.c r = s16g_add(v0, v1, clamp); r 2969 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 2971 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 2980 ext/uvector/uvector.c r = s16g_add(v0, v1, clamp); r 2984 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 2986 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 2994 ext/uvector/uvector.c r = s16g_add(v0, v1, clamp); r 2998 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 3000 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 3024 ext/uvector/uvector.c long r, v0, v1; r 3032 ext/uvector/uvector.c r = u16u16_add(v0, v1, clamp); r 3033 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3042 ext/uvector/uvector.c r = u16g_add(v0, v1, clamp); r 3046 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 3048 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3057 ext/uvector/uvector.c r = u16g_add(v0, v1, clamp); r 3061 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 3063 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3071 ext/uvector/uvector.c r = u16g_add(v0, v1, clamp); r 3075 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 3077 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3101 ext/uvector/uvector.c long r, v0, v1; r 3109 ext/uvector/uvector.c r = s32s32_add(v0, v1, clamp); r 3110 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3119 ext/uvector/uvector.c r = s32g_add(v0, v1, clamp); r 3123 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 3125 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3134 ext/uvector/uvector.c r = s32g_add(v0, v1, clamp); r 3138 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 3140 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3148 ext/uvector/uvector.c r = s32g_add(v0, v1, clamp); r 3152 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 3154 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3178 ext/uvector/uvector.c u_long r, v0, v1; r 3186 ext/uvector/uvector.c r = u32u32_add(v0, v1, clamp); r 3187 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3196 ext/uvector/uvector.c r = u32g_add(v0, v1, clamp); r 3200 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 3202 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3211 ext/uvector/uvector.c r = u32g_add(v0, v1, clamp); r 3215 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 3217 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3225 ext/uvector/uvector.c r = u32g_add(v0, v1, clamp); r 3229 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 3231 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3255 ext/uvector/uvector.c ScmInt64 r, v0, v1; r 3263 ext/uvector/uvector.c r = s64s64_add(v0, v1, clamp); r 3264 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 3273 ext/uvector/uvector.c r = s64g_add(v0, v1, clamp); r 3277 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 3279 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 3288 ext/uvector/uvector.c r = s64g_add(v0, v1, clamp); r 3292 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 3294 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 3302 ext/uvector/uvector.c r = s64g_add(v0, v1, clamp); r 3306 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 3308 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 3332 ext/uvector/uvector.c ScmUInt64 r, v0, v1; r 3340 ext/uvector/uvector.c r = u64u64_add(v0, v1, clamp); r 3341 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 3350 ext/uvector/uvector.c r = u64g_add(v0, v1, clamp); r 3354 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 3356 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 3365 ext/uvector/uvector.c r = u64g_add(v0, v1, clamp); r 3369 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 3371 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 3379 ext/uvector/uvector.c r = u64g_add(v0, v1, clamp); r 3383 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 3385 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 3409 ext/uvector/uvector.c double r, v0, v1; r 3417 ext/uvector/uvector.c r = f32f32_add(v0, v1, clamp); r 3418 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 3427 ext/uvector/uvector.c r = f32g_add(v0, v1, clamp); r 3431 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 3433 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 3442 ext/uvector/uvector.c r = f32g_add(v0, v1, clamp); r 3446 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 3448 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 3456 ext/uvector/uvector.c r = f32g_add(v0, v1, clamp); r 3460 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 3462 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 3486 ext/uvector/uvector.c double r, v0, v1; r 3494 ext/uvector/uvector.c r = f64f64_add(v0, v1, clamp); r 3495 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 3504 ext/uvector/uvector.c r = f64g_add(v0, v1, clamp); r 3508 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 3510 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 3519 ext/uvector/uvector.c r = f64g_add(v0, v1, clamp); r 3523 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 3525 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 3533 ext/uvector/uvector.c r = f64g_add(v0, v1, clamp); r 3537 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 3539 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 3563 ext/uvector/uvector.c long r, v0, v1; r 3571 ext/uvector/uvector.c r = s8s8_sub(v0, v1, clamp); r 3572 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 3581 ext/uvector/uvector.c r = s8g_sub(v0, v1, clamp); r 3585 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 3587 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 3596 ext/uvector/uvector.c r = s8g_sub(v0, v1, clamp); r 3600 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 3602 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 3610 ext/uvector/uvector.c r = s8g_sub(v0, v1, clamp); r 3614 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 3616 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 3640 ext/uvector/uvector.c long r, v0, v1; r 3648 ext/uvector/uvector.c r = u8u8_sub(v0, v1, clamp); r 3649 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 3658 ext/uvector/uvector.c r = u8g_sub(v0, v1, clamp); r 3662 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 3664 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 3673 ext/uvector/uvector.c r = u8g_sub(v0, v1, clamp); r 3677 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 3679 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 3687 ext/uvector/uvector.c r = u8g_sub(v0, v1, clamp); r 3691 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 3693 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 3717 ext/uvector/uvector.c long r, v0, v1; r 3725 ext/uvector/uvector.c r = s16s16_sub(v0, v1, clamp); r 3726 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 3735 ext/uvector/uvector.c r = s16g_sub(v0, v1, clamp); r 3739 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 3741 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 3750 ext/uvector/uvector.c r = s16g_sub(v0, v1, clamp); r 3754 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 3756 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 3764 ext/uvector/uvector.c r = s16g_sub(v0, v1, clamp); r 3768 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 3770 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 3794 ext/uvector/uvector.c long r, v0, v1; r 3802 ext/uvector/uvector.c r = u16u16_sub(v0, v1, clamp); r 3803 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3812 ext/uvector/uvector.c r = u16g_sub(v0, v1, clamp); r 3816 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 3818 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3827 ext/uvector/uvector.c r = u16g_sub(v0, v1, clamp); r 3831 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 3833 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3841 ext/uvector/uvector.c r = u16g_sub(v0, v1, clamp); r 3845 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 3847 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 3871 ext/uvector/uvector.c long r, v0, v1; r 3879 ext/uvector/uvector.c r = s32s32_sub(v0, v1, clamp); r 3880 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3889 ext/uvector/uvector.c r = s32g_sub(v0, v1, clamp); r 3893 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 3895 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3904 ext/uvector/uvector.c r = s32g_sub(v0, v1, clamp); r 3908 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 3910 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3918 ext/uvector/uvector.c r = s32g_sub(v0, v1, clamp); r 3922 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 3924 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 3948 ext/uvector/uvector.c u_long r, v0, v1; r 3956 ext/uvector/uvector.c r = u32u32_sub(v0, v1, clamp); r 3957 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3966 ext/uvector/uvector.c r = u32g_sub(v0, v1, clamp); r 3970 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 3972 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3981 ext/uvector/uvector.c r = u32g_sub(v0, v1, clamp); r 3985 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 3987 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 3995 ext/uvector/uvector.c r = u32g_sub(v0, v1, clamp); r 3999 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 4001 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 4025 ext/uvector/uvector.c ScmInt64 r, v0, v1; r 4033 ext/uvector/uvector.c r = s64s64_sub(v0, v1, clamp); r 4034 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4043 ext/uvector/uvector.c r = s64g_sub(v0, v1, clamp); r 4047 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 4049 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4058 ext/uvector/uvector.c r = s64g_sub(v0, v1, clamp); r 4062 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 4064 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4072 ext/uvector/uvector.c r = s64g_sub(v0, v1, clamp); r 4076 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 4078 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4102 ext/uvector/uvector.c ScmUInt64 r, v0, v1; r 4110 ext/uvector/uvector.c r = u64u64_sub(v0, v1, clamp); r 4111 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4120 ext/uvector/uvector.c r = u64g_sub(v0, v1, clamp); r 4124 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 4126 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4135 ext/uvector/uvector.c r = u64g_sub(v0, v1, clamp); r 4139 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 4141 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4149 ext/uvector/uvector.c r = u64g_sub(v0, v1, clamp); r 4153 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 4155 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4179 ext/uvector/uvector.c double r, v0, v1; r 4187 ext/uvector/uvector.c r = f32f32_sub(v0, v1, clamp); r 4188 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4197 ext/uvector/uvector.c r = f32g_sub(v0, v1, clamp); r 4201 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 4203 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4212 ext/uvector/uvector.c r = f32g_sub(v0, v1, clamp); r 4216 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 4218 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4226 ext/uvector/uvector.c r = f32g_sub(v0, v1, clamp); r 4230 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 4232 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4256 ext/uvector/uvector.c double r, v0, v1; r 4264 ext/uvector/uvector.c r = f64f64_sub(v0, v1, clamp); r 4265 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 4274 ext/uvector/uvector.c r = f64g_sub(v0, v1, clamp); r 4278 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 4280 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 4289 ext/uvector/uvector.c r = f64g_sub(v0, v1, clamp); r 4293 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 4295 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 4303 ext/uvector/uvector.c r = f64g_sub(v0, v1, clamp); r 4307 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 4309 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 4333 ext/uvector/uvector.c long r, v0, v1; r 4341 ext/uvector/uvector.c r = s8s8_mul(v0, v1, clamp); r 4342 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 4351 ext/uvector/uvector.c r = s8g_mul(v0, v1, clamp); r 4355 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 4357 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 4366 ext/uvector/uvector.c r = s8g_mul(v0, v1, clamp); r 4370 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 4372 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 4380 ext/uvector/uvector.c r = s8g_mul(v0, v1, clamp); r 4384 ext/uvector/uvector.c r = s8unbox(rr, clamp); r 4386 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 4410 ext/uvector/uvector.c long r, v0, v1; r 4418 ext/uvector/uvector.c r = u8u8_mul(v0, v1, clamp); r 4419 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 4428 ext/uvector/uvector.c r = u8g_mul(v0, v1, clamp); r 4432 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 4434 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 4443 ext/uvector/uvector.c r = u8g_mul(v0, v1, clamp); r 4447 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 4449 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 4457 ext/uvector/uvector.c r = u8g_mul(v0, v1, clamp); r 4461 ext/uvector/uvector.c r = u8unbox(rr, clamp); r 4463 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 4487 ext/uvector/uvector.c long r, v0, v1; r 4495 ext/uvector/uvector.c r = s16s16_mul(v0, v1, clamp); r 4496 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 4505 ext/uvector/uvector.c r = s16g_mul(v0, v1, clamp); r 4509 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 4511 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 4520 ext/uvector/uvector.c r = s16g_mul(v0, v1, clamp); r 4524 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 4526 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 4534 ext/uvector/uvector.c r = s16g_mul(v0, v1, clamp); r 4538 ext/uvector/uvector.c r = s16unbox(rr, clamp); r 4540 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 4564 ext/uvector/uvector.c long r, v0, v1; r 4572 ext/uvector/uvector.c r = u16u16_mul(v0, v1, clamp); r 4573 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 4582 ext/uvector/uvector.c r = u16g_mul(v0, v1, clamp); r 4586 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 4588 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 4597 ext/uvector/uvector.c r = u16g_mul(v0, v1, clamp); r 4601 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 4603 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 4611 ext/uvector/uvector.c r = u16g_mul(v0, v1, clamp); r 4615 ext/uvector/uvector.c r = u16unbox(rr, clamp); r 4617 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 4641 ext/uvector/uvector.c long r, v0, v1; r 4649 ext/uvector/uvector.c r = s32s32_mul(v0, v1, clamp); r 4650 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 4659 ext/uvector/uvector.c r = s32g_mul(v0, v1, clamp); r 4663 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 4665 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 4674 ext/uvector/uvector.c r = s32g_mul(v0, v1, clamp); r 4678 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 4680 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 4688 ext/uvector/uvector.c r = s32g_mul(v0, v1, clamp); r 4692 ext/uvector/uvector.c r = Scm_GetInteger32Clamp(rr, clamp, NULL); r 4694 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 4718 ext/uvector/uvector.c u_long r, v0, v1; r 4726 ext/uvector/uvector.c r = u32u32_mul(v0, v1, clamp); r 4727 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 4736 ext/uvector/uvector.c r = u32g_mul(v0, v1, clamp); r 4740 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 4742 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 4751 ext/uvector/uvector.c r = u32g_mul(v0, v1, clamp); r 4755 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 4757 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 4765 ext/uvector/uvector.c r = u32g_mul(v0, v1, clamp); r 4769 ext/uvector/uvector.c r = Scm_GetIntegerU32Clamp(rr, clamp, NULL); r 4771 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 4795 ext/uvector/uvector.c ScmInt64 r, v0, v1; r 4803 ext/uvector/uvector.c r = s64s64_mul(v0, v1, clamp); r 4804 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4813 ext/uvector/uvector.c r = s64g_mul(v0, v1, clamp); r 4817 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 4819 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4828 ext/uvector/uvector.c r = s64g_mul(v0, v1, clamp); r 4832 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 4834 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4842 ext/uvector/uvector.c r = s64g_mul(v0, v1, clamp); r 4846 ext/uvector/uvector.c r = Scm_GetInteger64Clamp(rr, clamp, NULL); r 4848 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 4872 ext/uvector/uvector.c ScmUInt64 r, v0, v1; r 4880 ext/uvector/uvector.c r = u64u64_mul(v0, v1, clamp); r 4881 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4890 ext/uvector/uvector.c r = u64g_mul(v0, v1, clamp); r 4894 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 4896 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4905 ext/uvector/uvector.c r = u64g_mul(v0, v1, clamp); r 4909 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 4911 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4919 ext/uvector/uvector.c r = u64g_mul(v0, v1, clamp); r 4923 ext/uvector/uvector.c r = Scm_GetIntegerU64Clamp(rr, clamp, NULL); r 4925 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 4949 ext/uvector/uvector.c double r, v0, v1; r 4957 ext/uvector/uvector.c r = f32f32_mul(v0, v1, clamp); r 4958 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4967 ext/uvector/uvector.c r = f32g_mul(v0, v1, clamp); r 4971 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 4973 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4982 ext/uvector/uvector.c r = f32g_mul(v0, v1, clamp); r 4986 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 4988 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 4996 ext/uvector/uvector.c r = f32g_mul(v0, v1, clamp); r 5000 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 5002 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 5026 ext/uvector/uvector.c double r, v0, v1; r 5034 ext/uvector/uvector.c r = f64f64_mul(v0, v1, clamp); r 5035 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5044 ext/uvector/uvector.c r = f64g_mul(v0, v1, clamp); r 5048 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 5050 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5059 ext/uvector/uvector.c r = f64g_mul(v0, v1, clamp); r 5063 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 5065 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5073 ext/uvector/uvector.c r = f64g_mul(v0, v1, clamp); r 5077 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 5079 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5103 ext/uvector/uvector.c double r, v0, v1; r 5111 ext/uvector/uvector.c r = f32f32_div(v0, v1, clamp); r 5112 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 5121 ext/uvector/uvector.c r = f32g_div(v0, v1, clamp); r 5125 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 5127 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 5136 ext/uvector/uvector.c r = f32g_div(v0, v1, clamp); r 5140 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 5142 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 5150 ext/uvector/uvector.c r = f32g_div(v0, v1, clamp); r 5154 ext/uvector/uvector.c r = (float)Scm_GetDouble(rr); r 5156 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = (float)r; r 5180 ext/uvector/uvector.c double r, v0, v1; r 5188 ext/uvector/uvector.c r = f64f64_div(v0, v1, clamp); r 5189 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5198 ext/uvector/uvector.c r = f64g_div(v0, v1, clamp); r 5202 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 5204 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5213 ext/uvector/uvector.c r = f64g_div(v0, v1, clamp); r 5217 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 5219 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5227 ext/uvector/uvector.c r = f64g_div(v0, v1, clamp); r 5231 ext/uvector/uvector.c r = Scm_GetDouble(rr); r 5233 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = (double)r; r 5257 ext/uvector/uvector.c long r, v0, v1; r 5265 ext/uvector/uvector.c r = v0 & v1; r 5266 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5274 ext/uvector/uvector.c r = v0 & v1; r 5275 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5283 ext/uvector/uvector.c r = v0 & v1; r 5284 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5291 ext/uvector/uvector.c r = v0 & v1; r 5292 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5315 ext/uvector/uvector.c long r, v0, v1; r 5323 ext/uvector/uvector.c r = v0 | v1; r 5324 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5332 ext/uvector/uvector.c r = v0 | v1; r 5333 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5341 ext/uvector/uvector.c r = v0 | v1; r 5342 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5349 ext/uvector/uvector.c r = v0 | v1; r 5350 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5373 ext/uvector/uvector.c long r, v0, v1; r 5381 ext/uvector/uvector.c r = v0 ^ v1; r 5382 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5390 ext/uvector/uvector.c r = v0 ^ v1; r 5391 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5399 ext/uvector/uvector.c r = v0 ^ v1; r 5400 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5407 ext/uvector/uvector.c r = v0 ^ v1; r 5408 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = (signed char)r; r 5431 ext/uvector/uvector.c long r, v0, v1; r 5439 ext/uvector/uvector.c r = v0 & v1; r 5440 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5448 ext/uvector/uvector.c r = v0 & v1; r 5449 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5457 ext/uvector/uvector.c r = v0 & v1; r 5458 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5465 ext/uvector/uvector.c r = v0 & v1; r 5466 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5489 ext/uvector/uvector.c long r, v0, v1; r 5497 ext/uvector/uvector.c r = v0 | v1; r 5498 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5506 ext/uvector/uvector.c r = v0 | v1; r 5507 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5515 ext/uvector/uvector.c r = v0 | v1; r 5516 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5523 ext/uvector/uvector.c r = v0 | v1; r 5524 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5547 ext/uvector/uvector.c long r, v0, v1; r 5555 ext/uvector/uvector.c r = v0 ^ v1; r 5556 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5564 ext/uvector/uvector.c r = v0 ^ v1; r 5565 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5573 ext/uvector/uvector.c r = v0 ^ v1; r 5574 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5581 ext/uvector/uvector.c r = v0 ^ v1; r 5582 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = (unsigned char)r; r 5605 ext/uvector/uvector.c long r, v0, v1; r 5613 ext/uvector/uvector.c r = v0 & v1; r 5614 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5622 ext/uvector/uvector.c r = v0 & v1; r 5623 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5631 ext/uvector/uvector.c r = v0 & v1; r 5632 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5639 ext/uvector/uvector.c r = v0 & v1; r 5640 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5663 ext/uvector/uvector.c long r, v0, v1; r 5671 ext/uvector/uvector.c r = v0 | v1; r 5672 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5680 ext/uvector/uvector.c r = v0 | v1; r 5681 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5689 ext/uvector/uvector.c r = v0 | v1; r 5690 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5697 ext/uvector/uvector.c r = v0 | v1; r 5698 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5721 ext/uvector/uvector.c long r, v0, v1; r 5729 ext/uvector/uvector.c r = v0 ^ v1; r 5730 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5738 ext/uvector/uvector.c r = v0 ^ v1; r 5739 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5747 ext/uvector/uvector.c r = v0 ^ v1; r 5748 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5755 ext/uvector/uvector.c r = v0 ^ v1; r 5756 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = (short)r; r 5779 ext/uvector/uvector.c long r, v0, v1; r 5787 ext/uvector/uvector.c r = v0 & v1; r 5788 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5796 ext/uvector/uvector.c r = v0 & v1; r 5797 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5805 ext/uvector/uvector.c r = v0 & v1; r 5806 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5813 ext/uvector/uvector.c r = v0 & v1; r 5814 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5837 ext/uvector/uvector.c long r, v0, v1; r 5845 ext/uvector/uvector.c r = v0 | v1; r 5846 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5854 ext/uvector/uvector.c r = v0 | v1; r 5855 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5863 ext/uvector/uvector.c r = v0 | v1; r 5864 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5871 ext/uvector/uvector.c r = v0 | v1; r 5872 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5895 ext/uvector/uvector.c long r, v0, v1; r 5903 ext/uvector/uvector.c r = v0 ^ v1; r 5904 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5912 ext/uvector/uvector.c r = v0 ^ v1; r 5913 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5921 ext/uvector/uvector.c r = v0 ^ v1; r 5922 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5929 ext/uvector/uvector.c r = v0 ^ v1; r 5930 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = (unsigned short)r; r 5953 ext/uvector/uvector.c long r, v0, v1; r 5961 ext/uvector/uvector.c r = v0 & v1; r 5962 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 5970 ext/uvector/uvector.c r = v0 & v1; r 5971 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 5979 ext/uvector/uvector.c r = v0 & v1; r 5980 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 5987 ext/uvector/uvector.c r = v0 & v1; r 5988 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6011 ext/uvector/uvector.c long r, v0, v1; r 6019 ext/uvector/uvector.c r = v0 | v1; r 6020 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6028 ext/uvector/uvector.c r = v0 | v1; r 6029 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6037 ext/uvector/uvector.c r = v0 | v1; r 6038 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6045 ext/uvector/uvector.c r = v0 | v1; r 6046 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6069 ext/uvector/uvector.c long r, v0, v1; r 6077 ext/uvector/uvector.c r = v0 ^ v1; r 6078 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6086 ext/uvector/uvector.c r = v0 ^ v1; r 6087 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6095 ext/uvector/uvector.c r = v0 ^ v1; r 6096 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6103 ext/uvector/uvector.c r = v0 ^ v1; r 6104 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = (ScmInt32)r; r 6127 ext/uvector/uvector.c u_long r, v0, v1; r 6135 ext/uvector/uvector.c r = v0 & v1; r 6136 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6144 ext/uvector/uvector.c r = v0 & v1; r 6145 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6153 ext/uvector/uvector.c r = v0 & v1; r 6154 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6161 ext/uvector/uvector.c r = v0 & v1; r 6162 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6185 ext/uvector/uvector.c u_long r, v0, v1; r 6193 ext/uvector/uvector.c r = v0 | v1; r 6194 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6202 ext/uvector/uvector.c r = v0 | v1; r 6203 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6211 ext/uvector/uvector.c r = v0 | v1; r 6212 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6219 ext/uvector/uvector.c r = v0 | v1; r 6220 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6243 ext/uvector/uvector.c u_long r, v0, v1; r 6251 ext/uvector/uvector.c r = v0 ^ v1; r 6252 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6260 ext/uvector/uvector.c r = v0 ^ v1; r 6261 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6269 ext/uvector/uvector.c r = v0 ^ v1; r 6270 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6277 ext/uvector/uvector.c r = v0 ^ v1; r 6278 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = (ScmUInt32)r; r 6301 ext/uvector/uvector.c ScmInt64 r, v0, v1; r 6309 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6310 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6318 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6319 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6327 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6328 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6335 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6336 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6359 ext/uvector/uvector.c ScmInt64 r, v0, v1; r 6367 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6368 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6376 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6377 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6385 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6386 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6393 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6394 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6417 ext/uvector/uvector.c ScmInt64 r, v0, v1; r 6425 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6426 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6434 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6435 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6443 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6444 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6451 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6452 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = (ScmInt64)r; r 6475 ext/uvector/uvector.c ScmUInt64 r, v0, v1; r 6483 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6484 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6492 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6493 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6501 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6502 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6509 ext/uvector/uvector.c INT64BITOP(r, v0, &, v1); r 6510 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6533 ext/uvector/uvector.c ScmUInt64 r, v0, v1; r 6541 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6542 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6550 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6551 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6559 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6560 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6567 ext/uvector/uvector.c INT64BITOP(r, v0, |, v1); r 6568 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6591 ext/uvector/uvector.c ScmUInt64 r, v0, v1; r 6599 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6600 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6608 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6609 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6617 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6618 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6625 ext/uvector/uvector.c INT64BITOP(r, v0, ^, v1); r 6626 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = (ScmUInt64)r; r 6648 ext/uvector/uvector.c long r, vx, vy; r 6651 ext/uvector/uvector.c r = 0; r 6657 ext/uvector/uvector.c r = s8muladd(vx, vy, r, &rr); r 6666 ext/uvector/uvector.c r = s8muladd(vx, vy, r, &rr); r 6679 ext/uvector/uvector.c r = s8muladd(vx, vy, r, &rr); r 6690 ext/uvector/uvector.c rr = Scm_MakeInteger(r); r 6693 ext/uvector/uvector.c sr = Scm_MakeInteger(r); r 6701 ext/uvector/uvector.c long r, vx, vy; r 6704 ext/uvector/uvector.c r = 0; r 6710 ext/uvector/uvector.c r = u8muladd(vx, vy, r, &rr); r 6719 ext/uvector/uvector.c r = u8muladd(vx, vy, r, &rr); r 6732 ext/uvector/uvector.c r = u8muladd(vx, vy, r, &rr); r 6743 ext/uvector/uvector.c rr = Scm_MakeIntegerU(r); r 6746 ext/uvector/uvector.c sr = Scm_MakeIntegerU(r); r 6754 ext/uvector/uvector.c long r, vx, vy; r 6757 ext/uvector/uvector.c r = 0; r 6763 ext/uvector/uvector.c r = s16muladd(vx, vy, r, &rr); r 6772 ext/uvector/uvector.c r = s16muladd(vx, vy, r, &rr); r 6785 ext/uvector/uvector.c r = s16muladd(vx, vy, r, &rr); r 6796 ext/uvector/uvector.c rr = Scm_MakeInteger(r); r 6799 ext/uvector/uvector.c sr = Scm_MakeInteger(r); r 6807 ext/uvector/uvector.c long r, vx, vy; r 6810 ext/uvector/uvector.c r = 0; r 6816 ext/uvector/uvector.c r = u16muladd(vx, vy, r, &rr); r 6825 ext/uvector/uvector.c r = u16muladd(vx, vy, r, &rr); r 6838 ext/uvector/uvector.c r = u16muladd(vx, vy, r, &rr); r 6849 ext/uvector/uvector.c rr = Scm_MakeIntegerU(r); r 6852 ext/uvector/uvector.c sr = Scm_MakeIntegerU(r); r 6860 ext/uvector/uvector.c long r, vx, vy; r 6863 ext/uvector/uvector.c r = 0; r 6869 ext/uvector/uvector.c r = s32muladd(vx, vy, r, &rr); r 6878 ext/uvector/uvector.c r = s32muladd(vx, vy, r, &rr); r 6891 ext/uvector/uvector.c r = s32muladd(vx, vy, r, &rr); r 6902 ext/uvector/uvector.c rr = Scm_MakeInteger(r); r 6905 ext/uvector/uvector.c sr = Scm_MakeInteger(r); r 6913 ext/uvector/uvector.c u_long r, vx, vy; r 6916 ext/uvector/uvector.c r = 0; r 6922 ext/uvector/uvector.c r = u32muladd(vx, vy, r, &rr); r 6931 ext/uvector/uvector.c r = u32muladd(vx, vy, r, &rr); r 6944 ext/uvector/uvector.c r = u32muladd(vx, vy, r, &rr); r 6955 ext/uvector/uvector.c rr = Scm_MakeIntegerU(r); r 6958 ext/uvector/uvector.c sr = Scm_MakeIntegerU(r); r 6966 ext/uvector/uvector.c ScmInt64 r, vx, vy; r 6969 ext/uvector/uvector.c SCM_SET_INT64_ZERO(r); r 6975 ext/uvector/uvector.c r = s64muladd(vx, vy, r, &rr); r 6984 ext/uvector/uvector.c r = s64muladd(vx, vy, r, &rr); r 6997 ext/uvector/uvector.c r = s64muladd(vx, vy, r, &rr); r 7008 ext/uvector/uvector.c rr = Scm_MakeInteger64(r); r 7011 ext/uvector/uvector.c sr = Scm_MakeInteger64(r); r 7019 ext/uvector/uvector.c ScmUInt64 r, vx, vy; r 7022 ext/uvector/uvector.c SCM_SET_INT64_ZERO(r); r 7028 ext/uvector/uvector.c r = u64muladd(vx, vy, r, &rr); r 7037 ext/uvector/uvector.c r = u64muladd(vx, vy, r, &rr); r 7050 ext/uvector/uvector.c r = u64muladd(vx, vy, r, &rr); r 7061 ext/uvector/uvector.c rr = Scm_MakeIntegerU64(r); r 7064 ext/uvector/uvector.c sr = Scm_MakeIntegerU64(r); r 7072 ext/uvector/uvector.c double r, vx, vy; r 7075 ext/uvector/uvector.c r = 0; r 7081 ext/uvector/uvector.c r = f32muladd(vx, vy, r, &rr); r 7090 ext/uvector/uvector.c r = f32muladd(vx, vy, r, &rr); r 7103 ext/uvector/uvector.c r = f32muladd(vx, vy, r, &rr); r 7114 ext/uvector/uvector.c rr = Scm_MakeFlonum(r); r 7117 ext/uvector/uvector.c sr = Scm_MakeFlonum(r); r 7125 ext/uvector/uvector.c double r, vx, vy; r 7128 ext/uvector/uvector.c r = 0; r 7134 ext/uvector/uvector.c r = f64muladd(vx, vy, r, &rr); r 7143 ext/uvector/uvector.c r = f64muladd(vx, vy, r, &rr); r 7156 ext/uvector/uvector.c r = f64muladd(vx, vy, r, &rr); r 7167 ext/uvector/uvector.c rr = Scm_MakeFlonum(r); r 7170 ext/uvector/uvector.c sr = Scm_MakeFlonum(r); r 9683 ext/uvector/uvector.c int len = SCM_UVECTOR_SIZE(v), eltsize, r; r 9691 ext/uvector/uvector.c r = Scm_Getz((char*)v->elements + start*eltsize, r 9693 ext/uvector/uvector.c if (r == EOF) SCM_RETURN(SCM_EOF); r 9703 ext/uvector/uvector.c SCM_RETURN(Scm_MakeInteger((r+eltsize-1)/eltsize)); r 344 ext/vport/vport.c ScmObj r = Scm_Apply(data->seek_proc, r 347 ext/vport/vport.c if (SCM_INTEGERP(r)) { r 348 ext/vport/vport.c return Scm_IntegerToOffset(r); r 511 ext/vport/vport.c ScmObj vec, r; r 518 ext/vport/vport.c r = Scm_Apply(data->fill_proc, SCM_LIST1(vec)); r 519 ext/vport/vport.c if (SCM_INTP(r)) return SCM_INT_VALUE(r); r 520 ext/vport/vport.c else if (SCM_EOFP(r)) return 0; r 530 ext/vport/vport.c ScmObj vec, r; r 537 ext/vport/vport.c r = Scm_Apply(data->flush_proc, SCM_LIST2(vec, SCM_MAKE_BOOL(forcep))); r 538 ext/vport/vport.c if (SCM_INTP(r)) return SCM_INT_VALUE(r); r 539 ext/vport/vport.c else if (SCM_EOFP(r)) return 0; r 597 ext/vport/vport.c ScmObj r = Scm_Apply(data->seek_proc, r 600 ext/vport/vport.c if (SCM_INTEGERP(r)) { r 601 ext/vport/vport.c return Scm_IntegerToOffset(r); r 72 gc/darwin_stop_world.c kern_return_t r; r 89 gc/darwin_stop_world.c r = thread_get_state( r 94 gc/darwin_stop_world.c if(r != KERN_SUCCESS) ABORT("thread_get_state failed"); r 150 gc/darwin_stop_world.c kern_return_t r; r 159 gc/darwin_stop_world.c r = task_threads(current_task(), &act_list, &listcount); r 160 gc/darwin_stop_world.c if(r != KERN_SUCCESS) ABORT("task_threads failed"); r 174 gc/darwin_stop_world.c r = thread_get_state(thread, MACHINE_THREAD_STATE, r 176 gc/darwin_stop_world.c if(r != KERN_SUCCESS) ABORT("task_get_state failed"); r 217 gc/darwin_stop_world.c r = thread_get_state(thread, MACHINE_THREAD_STATE, r 219 gc/darwin_stop_world.c if(r != KERN_SUCCESS) ABORT("task_get_state failed"); r 133 gc/dyn_load.c struct r_debug *r; r 295 gc/finalize.c ptr_t q, r; r 305 gc/finalize.c r = *(ptr_t *)q; r 306 gc/finalize.c if (r < p || r > target_limit) { r 307 gc/finalize.c GC_PUSH_ONE_HEAP((word)r, q); r 156 gc/headers.c bottom_index * r; r 170 gc/headers.c r = (bottom_index*)GC_scratch_alloc((word)(sizeof (bottom_index))); r 171 gc/headers.c if (r == 0) return(FALSE); r 172 gc/headers.c BZERO(r, sizeof (bottom_index)); r 173 gc/headers.c r -> hash_link = old; r 174 gc/headers.c GC_top_index[i] = r; r 177 gc/headers.c r = (bottom_index*)GC_scratch_alloc((word)(sizeof (bottom_index))); r 178 gc/headers.c if (r == 0) return(FALSE); r 179 gc/headers.c GC_top_index[hi] = r; r 180 gc/headers.c BZERO(r, sizeof (bottom_index)); r 182 gc/headers.c r -> key = hi; r 190 gc/headers.c r -> desc_link = pi; r 192 gc/headers.c GC_all_bottom_indices_end = r; r 194 gc/headers.c p -> desc_link = r; r 196 gc/headers.c r -> asc_link = p; r 197 gc/headers.c *prev = r; r 1349 gc/mark.c register word r; r 1356 gc/mark.c r = BASE(p); r 1357 gc/mark.c hhdr = HDR(r); r 1358 gc/mark.c displ = BYTES_TO_WORDS(HBLKDISPL(r)); r 1367 gc/mark.c r = BASE(p); r 1368 gc/mark.c displ = BYTES_TO_WORDS(HBLKDISPL(r)); r 1369 gc/mark.c if (r == 0) hhdr = 0; r 1377 gc/mark.c r = (word)((word *)(HBLKPTR(p)) + displ); r 1392 gc/mark.c GC_STORE_BACK_PTR(source, (ptr_t)r); r 1393 gc/mark.c PUSH_OBJ((word *)r, hhdr, GC_mark_stack_top, r 389 gc/misc.c register word r; r 395 gc/misc.c r = (word)p; r 397 gc/misc.c h = HBLKPTR(r); r 398 gc/misc.c GET_BI(r, bi); r 399 gc/misc.c candidate_hdr = HDR_FROM_BI(bi, r); r 405 gc/misc.c r = (word)h; r 410 gc/misc.c r &= ~(WORDS_TO_BYTES(1) - 1); r 412 gc/misc.c register int offset = HBLKDISPL(r); r 420 gc/misc.c r -= WORDS_TO_BYTES(map_entry); r 421 gc/misc.c limit = r + WORDS_TO_BYTES(sz); r 428 gc/misc.c return((GC_PTR)r); r 1006 gc/os_dep.c int r = sysctl(nm, 2, &base, &len, NULL, 0); r 1008 gc/os_dep.c if (r) ABORT("Error getting stack base"); r 3453 gc/os_dep.c mach_msg_return_t r; r 3462 gc/os_dep.c r = mach_msg( r 3470 gc/os_dep.c if(r != MACH_MSG_SUCCESS) r 3479 gc/os_dep.c mach_msg_return_t r; r 3488 gc/os_dep.c r = mach_msg( r 3496 gc/os_dep.c if(r != MACH_MSG_SUCCESS) r 3513 gc/os_dep.c mach_msg_return_t r; r 3532 gc/os_dep.c r = mach_msg( r 3542 gc/os_dep.c id = r == MACH_MSG_SUCCESS ? msg.head.msgh_id : -1; r 3546 gc/os_dep.c if(r == MACH_RCV_TIMED_OUT) { r 3551 gc/os_dep.c if(r == MACH_MSG_SUCCESS && (id == ID_STOP || id == ID_RESUME)) r 3556 gc/os_dep.c if(r != MACH_MSG_SUCCESS) { r 3558 gc/os_dep.c (int)r,mach_error_string(r)); r 3581 gc/os_dep.c r = mach_msg( r 3589 gc/os_dep.c if(r != MACH_MSG_SUCCESS) { r 3595 gc/os_dep.c (int)r,mach_error_string(r)); r 3635 gc/os_dep.c kern_return_t r; r 3657 gc/os_dep.c r = mach_port_allocate(me,MACH_PORT_RIGHT_RECEIVE,&GC_ports.exception); r 3658 gc/os_dep.c if(r != KERN_SUCCESS) ABORT("mach_port_allocate failed (exception port)"); r 3660 gc/os_dep.c r = mach_port_insert_right(me,GC_ports.exception,GC_ports.exception, r 3662 gc/os_dep.c if(r != KERN_SUCCESS) r 3666 gc/os_dep.c r = mach_port_allocate(me,MACH_PORT_RIGHT_RECEIVE,&GC_ports.reply); r 3667 gc/os_dep.c if(r != KERN_SUCCESS) ABORT("mach_port_allocate failed (reply port)"); r 3673 gc/os_dep.c r = task_get_exception_ports( r 3682 gc/os_dep.c if(r != KERN_SUCCESS) ABORT("task_get_exception_ports failed"); r 3684 gc/os_dep.c r = task_set_exception_ports( r 3691 gc/os_dep.c if(r != KERN_SUCCESS) ABORT("task_set_exception_ports failed"); r 3732 gc/os_dep.c kern_return_t r; r 3750 gc/os_dep.c r = thread_get_state(thread,flavor,thread_state,&thread_state_count); r 3751 gc/os_dep.c if(r != KERN_SUCCESS) r 3757 gc/os_dep.c r = exception_raise(port,thread,task,exception,data,data_count); r 3760 gc/os_dep.c r = exception_raise_state(port,thread,task,exception,data, r 3765 gc/os_dep.c r = exception_raise_state_identity(port,thread,task,exception,data, r 3770 gc/os_dep.c r = KERN_FAILURE; /* make gcc happy */ r 3776 gc/os_dep.c r = thread_set_state(thread,flavor,thread_state,thread_state_count); r 3777 gc/os_dep.c if(r != KERN_SUCCESS) r 3781 gc/os_dep.c return r; r 3794 gc/os_dep.c kern_return_t r; r 3824 gc/os_dep.c r = thread_get_state(thread,flavor, r 3826 gc/os_dep.c if(r != KERN_SUCCESS) { r 275 gc/stubborn.c register ptr_t r; r 283 gc/stubborn.c r = (ptr_t)GC_base(q); r 284 gc/stubborn.c if (r == 0 || !GC_is_marked(r)) { r 173 gc/tests/test.c register sexpr r; r 178 gc/tests/test.c r = (sexpr) GC_MALLOC_STUBBORN(sizeof(struct SEXPR) + my_extra); r 179 gc/tests/test.c if (r == 0) { r 183 gc/tests/test.c for (p = (int *)r; r 184 gc/tests/test.c ((char *)p) < ((char *)r) + my_extra + sizeof(struct SEXPR); p++) { r 193 gc/tests/test.c r = (sexpr)((char *)r + (my_extra & ~7)); r 195 gc/tests/test.c r -> sexpr_car = x; r 196 gc/tests/test.c r -> sexpr_cdr = y; r 203 gc/tests/test.c GC_END_STUBBORN_CHANGE((char *)r); r 204 gc/tests/test.c return(r); r 258 gc/tests/test.c register sexpr r; r 264 gc/tests/test.c r = (sexpr) GC_LOCAL_MALLOC(sizeof(struct SEXPR) + my_extra); r 267 gc/tests/test.c r = (sexpr) GC_LOCAL_GCJ_MALLOC(sizeof(struct SEXPR) + sizeof(GC_word) + my_extra, r 269 gc/tests/test.c r = (sexpr) ((GC_word *)r + 1); r 272 gc/tests/test.c if (r == 0) { r 276 gc/tests/test.c for (p = (int *)r; r 277 gc/tests/test.c ((char *)p) < ((char *)r) + my_extra + sizeof(struct SEXPR); p++) { r 285 gc/tests/test.c r -> sexpr_car = x; r 286 gc/tests/test.c r -> sexpr_cdr = y; r 293 gc/tests/test.c return(r); r 301 gc/tests/test.c register sexpr r; r 304 gc/tests/test.c r = (sexpr) GC_MALLOC(sizeof(struct SEXPR)); r 305 gc/tests/test.c if (r == 0) { r 309 gc/tests/test.c r -> sexpr_car = x; r 310 gc/tests/test.c r -> sexpr_cdr = y; r 311 gc/tests/test.c return(r); r 318 gc/tests/test.c register sexpr r; r 321 gc/tests/test.c r = (sexpr) GC_MALLOC_UNCOLLECTABLE(sizeof(struct SEXPR)); r 322 gc/tests/test.c if (r == 0) { r 326 gc/tests/test.c r -> sexpr_car = x; r 327 gc/tests/test.c r -> sexpr_cdr = (sexpr)(~(unsigned long)y); r 328 gc/tests/test.c return(r); r 338 gc/tests/test.c GC_word * r; r 344 gc/tests/test.c r = (GC_word *) GC_GCJ_FAST_MALLOC(4, &gcj_class_struct1); r 346 gc/tests/test.c r = (GC_word *) GC_GCJ_FAST_MALLOC(3, &gcj_class_struct1); r 349 gc/tests/test.c r = (GC_word *) GC_GCJ_MALLOC(sizeof(struct SEXPR) r 353 gc/tests/test.c if (r == 0) { r 357 gc/tests/test.c result = (sexpr)(r + 1); r 11 gc/tests/trace_test.c struct treenode * r = GC_MALLOC(sizeof(struct treenode)); r 13 gc/tests/trace_test.c if (1 == i) r = GC_MALLOC_ATOMIC(sizeof(struct treenode)); r 14 gc/tests/trace_test.c r -> x = mktree(i-1); r 15 gc/tests/trace_test.c r -> y = mktree(i-1); r 16 gc/tests/trace_test.c return r; r 305 src/bignum.c ScmInt64 r = {0, 0}; r 310 src/bignum.c SCM_SET_INT64_MAX(r); r 312 src/bignum.c r.lo = b->values[0]; r 313 src/bignum.c if (b->size == 2) r.hi = b->values[1]; r 318 src/bignum.c SCM_SET_INT64_MIN(r); r 321 src/bignum.c r.lo = b->values[0]; r 322 src/bignum.c if (b->size == 2) r.hi = b->values[1]; r 323 src/bignum.c else r.hi = -1; r 326 src/bignum.c return r; r 328 src/bignum.c int64_t r = 0; r 332 src/bignum.c r = b->values[0]; r 335 src/bignum.c SCM_SET_INT64_MAX(r); r 337 src/bignum.c r = ((int64_t)b->values[1] << 32) + (uint64_t)b->values[0]; r 341 src/bignum.c r = -(int64_t)b->values[0]; r 344 src/bignum.c SCM_SET_INT64_MIN(r); r 346 src/bignum.c r = -(((int64_t)b->values[1] << 32) + (uint64_t)b->values[0]); r 349 src/bignum.c return r; r 357 src/bignum.c return r; r 363 src/bignum.c ScmInt64 r = {0, 0}; r 368 src/bignum.c SCM_SET_UINT64_MAX(r); r 370 src/bignum.c r.lo = b->values[0]; r 371 src/bignum.c if (b->size == 2) r.hi = b->values[1]; r 376 src/bignum.c return r; r 378 src/bignum.c uint64_t r = 0; r 383 src/bignum.c SCM_SET_UINT64_MAX(r); r 385 src/bignum.c r = (((uint64_t)b->values[1]) << 32) + (uint64_t)b->values[0]; r 387 src/bignum.c r = (uint64_t)b->values[0]; r 392 src/bignum.c return r; r 400 src/bignum.c return r; r 408 src/bignum.c double r; r 410 src/bignum.c case 0: r = 0.0; break; r 411 src/bignum.c case 1: r = (double)b->values[0]; break; r 413 src/bignum.c r = ldexp((double)b->values[1], WORD_BITS) + (double)b->values[0]; r 416 src/bignum.c r = ldexp((double)b->values[b->size-1], WORD_BITS*(b->size-1)) r 421 src/bignum.c return (b->sign < 0)? -r : r; r 554 src/bignum.c ScmBignum *r = SCM_BIGNUM(Scm_BignumCopy(bx)); r 555 src/bignum.c return SCM_OBJ(bignum_2scmpl(r)); r 704 src/bignum.c ScmBignum *r = bx; r 708 src/bignum.c r = bignum_add_si(r, SCM_INT_VALUE(v)); r 712 src/bignum.c r = bignum_add(r, SCM_BIGNUM(v)); r 716 src/bignum.c ScmObj z = Scm_MakeFlonum(Scm_BignumToDouble(r)); r 720 src/bignum.c return Scm_Add(Scm_NormalizeBignum(r), v, SCM_CDR(args)); r 722 src/bignum.c return Scm_NormalizeBignum(r); r 727 src/bignum.c ScmBignum *r = bx; r 731 src/bignum.c r = bignum_add_si(r, -SCM_INT_VALUE(v)); r 735 src/bignum.c r = bignum_sub(r, SCM_BIGNUM(v)); r 739 src/bignum.c ScmObj z = Scm_MakeFlonum(Scm_BignumToDouble(r)); r 744 src/bignum.c return Scm_NormalizeBignum(r); r 898 src/bignum.c ScmBignum *r = bx; r 902 src/bignum.c r = bignum_mul_si(r, SCM_INT_VALUE(v)); r 906 src/bignum.c r = bignum_mul(r, SCM_BIGNUM(v)); r 910 src/bignum.c ScmObj f = Scm_MakeFlonum(Scm_BignumToDouble(r)); r 915 src/bignum.c return Scm_NormalizeBignum(r); r 1085 src/bignum.c ScmBignum *q, *r; r 1093 src/bignum.c r = bignum_gdiv(dividend, divisor, q); r 1095 src/bignum.c r->sign = dividend->sign; r 1097 src/bignum.c return Scm_Cons(Scm_NormalizeBignum(q), Scm_NormalizeBignum(r)); r 1109 src/bignum.c ScmBignum *r = make_bignum(rsize); r 1110 src/bignum.c return Scm_NormalizeBignum(bignum_lshift(r, x, cnt)); r 1122 src/bignum.c ScmObj r = Scm_Quotient(Scm_Add(SCM_OBJ(x), SCM_MAKE_INT(1), r 1126 src/bignum.c return Scm_Add(r, SCM_MAKE_INT(-1), SCM_NIL); r 1128 src/bignum.c ScmBignum *r = make_bignum(rsize); r 1129 src/bignum.c return Scm_NormalizeBignum(bignum_rshift(r, x, -cnt)); r 1310 src/bignum.c ScmBignum *r; r 1312 src/bignum.c ALLOC_TEMP_BIGNUM(r, rsize); r 1313 src/bignum.c r->values[0] = c; r 1314 src/bignum.c bignum_mul_word(r, acc, coef, 0); r 1315 src/bignum.c if (r->values[rsize-1] == 0) { r 1317 src/bignum.c acc->values[i] = r->values[i]; r 1325 src/bignum.c rr->values[i] = r->values[i]; r 214 src/char.c struct ScmCharSetRange *r; r 236 src/char.c for (r = cs->ranges; r; r = r->next) { r 237 src/char.c charset_print_ch(out, r->lo); r 238 src/char.c if (r->hi == r->lo) continue; r 239 src/char.c if (r->hi - r->lo > 2) Scm_Printf(out, "-"); r 240 src/char.c charset_print_ch(out, r->hi); r 478 src/char.c struct ScmCharSetRange *r; r 481 src/char.c for (r = src->ranges; r; r = r->next) { r 482 src/char.c Scm_CharSetAddRange(dst, r->lo, r->hi); r 490 src/char.c struct ScmCharSetRange *r, *p; r 494 src/char.c for (p = NULL, r = cs->ranges; r; p = r, r = r->next) { r 495 src/char.c int hi = r->hi+1; r 496 src/char.c if (r->lo != SCM_CHARSET_MASK_CHARS) { r 497 src/char.c r->hi = r->lo - 1; r 498 src/char.c r->lo = last; r 500 src/char.c cs->ranges = r->next; r 534 src/char.c struct ScmCharSetRange *r; r 535 src/char.c for (r = cs->ranges; r; r = r->next) { r 536 src/char.c if (r->lo <= c && c <= r->hi) return TRUE; r 551 src/char.c struct ScmCharSetRange *r; r 567 src/char.c r = cs->ranges; r 571 src/char.c r = cs->ranges->next; r 574 src/char.c r = cs->ranges; r 576 src/char.c for (; r; r = r->next) { r 577 src/char.c cell = Scm_Cons(SCM_MAKE_INT(r->lo), SCM_MAKE_INT(r->hi)); r 587 src/char.c struct ScmCharSetRange *r; r 592 src/char.c for (r=cs->ranges; r; r=r->next) r 593 src/char.c Scm_Printf(port, "(%d-%d)", r->lo, r->hi); r 607 src/char.c ScmChar r; r 609 src/char.c r = Scm_ReadXdigitsFromPort(port, ndigs, buf, &nread); r 610 src/char.c if (r == SCM_CHAR_INVALID) { r 628 src/char.c return r; r 727 src/class.c ScmObj r; r 743 src/class.c r = klass->redefined; r 748 src/class.c return r; r 1866 src/class.c ScmObj r; r 1868 src/class.c r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectEqualP), SCM_LIST2(x, y)); r 1869 src/class.c return (SCM_FALSEP(r)? -1 : 0); r 1871 src/class.c r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectCompare), SCM_LIST2(x, y)); r 1872 src/class.c if (SCM_INTP(r)) { r 1873 src/class.c int ri = SCM_INT_VALUE(r); r 125 src/compare.c int l, r; r 129 src/compare.c for (r=nelts-1; r>=1; r--) { r 130 src/compare.c ScmObj tmp = elts[r]; r 131 src/compare.c elts[r] = elts[0]; r 133 src/compare.c shift_up(elts, 0, r, cmp, data); r 146 src/compare.c int l = lo, r = hi; r 148 src/compare.c while (l <= r) { r 149 src/compare.c while (l <= r && cmp(elts[l], pivot, data) < 0) l++; r 150 src/compare.c while (l <= r && cmp(pivot, elts[r], data) < 0) r--; r 151 src/compare.c if (l > r) break; r 152 src/compare.c tmp = elts[l]; elts[l] = elts[r]; elts[r] = tmp; r 154 src/compare.c r--; r 156 src/compare.c if (lo < r) sort_q(elts, lo, r, depth+1, limit, cmp, data); r 167 src/compare.c ScmObj r = Scm_Apply(fn, SCM_LIST2(x, y)); r 168 src/compare.c if (SCM_TRUEP(r) || (SCM_INTP(r) && SCM_INT_VALUE(r) < 0)) r 256 src/core.c struct cleanup_handler_rec *r = SCM_NEW(struct cleanup_handler_rec); r 257 src/core.c r->handler = h; r 258 src/core.c r->data = d; r 259 src/core.c r->next = cleanup.handlers; r 260 src/core.c cleanup.handlers = r; r 261 src/core.c return r; r 58 src/dl_darwin.c NSObjectFileImageReturnCode r; r 62 src/dl_darwin.c r = NSCreateObjectFileImageFromFile(path, &image); r 63 src/dl_darwin.c if (r != NSObjectFileImageSuccess) { r 64 src/dl_darwin.c switch (r) { r 150 src/extlib.c ScmObj cp, r = Scm_LogAnd(x, y); r 152 src/extlib.c r = Scm_LogAnd(r, SCM_CAR(cp)); r 154 src/extlib.c SCM_RETURN(r); r 178 src/extlib.c ScmObj cp, r = Scm_LogIor(x, y); r 180 src/extlib.c r = Scm_LogIor(r, SCM_CAR(cp)); r 182 src/extlib.c SCM_RETURN(r); r 206 src/extlib.c ScmObj cp, r = Scm_LogXor(x, y); r 208 src/extlib.c r = Scm_LogXor(r, SCM_CAR(cp)); r 210 src/extlib.c SCM_RETURN(r); r 301 src/extlib.c ScmObj r = x; int maybe_exact = FALSE; r 307 src/extlib.c if (Scm_NumCmp(x, min) < 0) r = min; r 310 src/extlib.c if (Scm_NumCmp(x, min) < 0) r = min; r 315 src/extlib.c if (Scm_NumCmp(x, max) > 0) r = max; r 318 src/extlib.c if (Scm_NumCmp(x, max) > 0) r = max; r 322 src/extlib.c if (!maybe_exact && SCM_EXACTP(r)) SCM_RETURN(Scm_ExactToInexact(r)); r 323 src/extlib.c else SCM_RETURN(r); r 414 src/extlib.c ScmObj q, r; r 415 src/extlib.c q = Scm_Quotient(n1, n2, &r); r 416 src/extlib.c SCM_RETURN(Scm_Values2(q, r)); r 858 src/extlib.c ScmObj r = Scm_VectorCopy(SCM_VECTOR(seq), 0, -1, SCM_UNDEFINED); r 859 src/extlib.c Scm_SortArray(SCM_VECTOR_ELEMENTS(r), SCM_VECTOR_SIZE(r), SCM_FALSE); r 860 src/extlib.c SCM_RETURN(r); r 1148 src/extlib.c int r; r 1151 src/extlib.c r = Scm_DigitToInt(ch, radix); r 1152 src/extlib.c SCM_RESULT = (r >= 0 ? SCM_MAKE_INT(r) : SCM_FALSE); r 1184 src/extlib.c ScmChar r; r 1187 src/extlib.c r = Scm_IntToDigit(n, radix); r 1188 src/extlib.c return (r == SCM_CHAR_INVALID? SCM_FALSE : SCM_MAKE_CHAR(r)); r 1781 src/extlib.c int r = Scm_StringByteRef(str, k, SCM_UNBOUNDP(fallback)); r 1782 src/extlib.c SCM_RESULT = (r<0)? fallback : SCM_MAKE_INT(r); r 1840 src/extlib.c ScmObj r = Scm_StringSubstitute(target, start, str); r 1841 src/extlib.c if (!SCM_STRINGP(r)) Scm_Error("argument out of range: (%d %S)", start, str); r 1842 src/extlib.c SCM_RETURN(r); r 3273 src/extlib.c ScmObj scmfiller, r; int siz; r 3277 src/extlib.c r = Scm_Apply(scmfiller, SCM_LIST1(Scm_MakeInteger(cnt))); r 3278 src/extlib.c if (SCM_EOFP(r) || SCM_FALSEP(r)) { r 3280 src/extlib.c } else if (!SCM_STRINGP(r)) { r 3281 src/extlib.c Scm_Error("buffered port callback procedure returned non-string: %S", r); r 3283 src/extlib.c b = SCM_STRING_BODY(r); r 3928 src/extlib.c ScmObj r = Scm_ReadLine(port); r 3929 src/extlib.c if (SCM_FALSEP(allowbytestr)&&SCM_STRINGP(r)&&SCM_STRING_INCOMPLETE_P(r)) { r 3930 src/extlib.c Scm_ReadError(port, "read-line: encountered illegal byte sequence: %S", r); r 3932 src/extlib.c SCM_RETURN(r); r 4745 src/extlib.c ScmHashEntry *e = Scm_HashTableGet(hash, key); ScmObj r; r 4750 src/extlib.c r = fallback; r 4755 src/extlib.c r = fallback; r 4757 src/extlib.c r = SCM_CAR(e->value); e->value = SCM_CDR(e->value); r 4759 src/extlib.c SCM_RETURN(r); r 5211 src/extlib.c ScmObj r = Scm_SymbolValue(module, name); r 5213 src/extlib.c if (r != SCM_UNBOUND) SCM_RESULT = r; r 131 src/gauche-config.c DWORD r; r 140 src/gauche-config.c r = GetModuleFileName(mod, path, MAX_PATH); r 141 src/gauche-config.c if (r == 0) { r 2072 src/gauche.h SCM_EXTERN ScmObj Scm_BignumDivSI(ScmBignum *bx, long y, long *r); r 80 src/gauche/arith.h #define UADD(r, c, x, y) \ r 82 src/gauche/arith.h (r) = (x) + (y) + (c); \ r 83 src/gauche/arith.h (c) = ((r)<(x) || ((r)==(x) && ((y)>0||(c)>0)))? 1 : 0; \ r 96 src/gauche/arith.h #define UADDOV(r, v, x, y) \ r 98 src/gauche/arith.h (r) = (x) + (y); \ r 99 src/gauche/arith.h (v) = ((r) < (x))? 1 : 0; \ r 112 src/gauche/arith.h #define SADDOV(r, v, x, y) \ r 114 src/gauche/arith.h (r) = (x) + (y); \ r 116 src/gauche/arith.h if ((y) >= 0 && (r) < 0) (v) = 1; \ r 119 src/gauche/arith.h if ((y) < 0 && (r) >= 0) (v) = -1; \ r 134 src/gauche/arith.h #define USUB(r, c, x, y) \ r 136 src/gauche/arith.h (r) = (x) - (y) - (c); \ r 137 src/gauche/arith.h (c) = ((r)>(x) || ((r)==(x) && ((y)>0||(c)>0)))? 1 : 0; \ r 150 src/gauche/arith.h #define USUBOV(r, v, x, y) \ r 152 src/gauche/arith.h (r) = (x) - (y); \ r 153 src/gauche/arith.h (v) = ((r) > (x))? 1 : 0; \ r 166 src/gauche/arith.h #define SSUBOV(r, v, x, y) \ r 168 src/gauche/arith.h (r) = (x) - (y); \ r 170 src/gauche/arith.h if ((y) < 0 && (r) <= 0) (v) = 1; \ r 173 src/gauche/arith.h if ((y) >= 0 && (r) > 0) (v) = -1; \ r 213 src/gauche/arith.h #define UMULOV(r, v, x, y) \ r 215 src/gauche/arith.h if ((x)==0 || (y)==0) { (v) = (r) = 0; } \ r 218 src/gauche/arith.h UMUL(t5_, r, x, y); \ r 233 src/gauche/arith.h #define SMULOV(r, v, x, y) \ r 240 src/gauche/arith.h else (r) = t6_; \ r 244 src/gauche/arith.h else (r) = -t6_; \ r 250 src/gauche/arith.h else (r) = -t6_; \ r 254 src/gauche/arith.h else (r) = t6_; \ r 50 src/gauche/arith_i386.h #define UADD(r, c, x, y) \ r 59 src/gauche/arith_i386.h : "=&g" (r), "=&g" (c) \ r 70 src/gauche/arith_i386.h #define UADDOV(r, v, x, y) \ r 75 src/gauche/arith_i386.h : "=&r" (r), "=&r" (v) \ r 85 src/gauche/arith_i386.h #define SADDOV(r, v, x, y) \ r 94 src/gauche/arith_i386.h : "=&r" (r), "=&r" (v) \ r 104 src/gauche/arith_i386.h #define USUB(r, c, x, y) \ r 110 src/gauche/arith_i386.h : "=&r" (r), "=&r"(c) \ r 120 src/gauche/arith_i386.h #define USUBOV(r, v, x, y) \ r 125 src/gauche/arith_i386.h : "=&r" (r), "=&r"(v) \ r 135 src/gauche/arith_i386.h #define SSUBOV(r, v, x, y) \ r 144 src/gauche/arith_i386.h : "=&r" (r), "=&r" (v) \ r 173 src/gauche/arith_i386.h #define UMULOV(r, v, x, y) \ r 176 src/gauche/arith_i386.h : "=a" (r), "=r" (v) \ r 188 src/gauche/arith_i386.h #define SMULOV(r, v, x, y) \ r 196 src/gauche/arith_i386.h : "=a" (r), "=r" (v) \ r 16 src/getdir_win.c DWORD r; r 23 src/getdir_win.c if ((r = GetModuleFileName(mod, path, MAX_PATH)) == 0) { r 189 src/hash.c ScmObj r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectHash), r 191 src/hash.c if (SCM_INTP(r)) { r 192 src/hash.c return (unsigned long)SCM_INT_VALUE(r); r 194 src/hash.c if (SCM_BIGNUMP(r)) { r 197 src/hash.c return SCM_BIGNUM(r)->values[0]; r 199 src/hash.c Scm_Error("object-hash returned non-integer: %S", r); r 1623 src/intlib.c ScmObj r = SCM_OBJ(data[1]); r 1627 src/intlib.c SCM_RETURN(Scm_ReverseX(Scm_Cons(result, r))); r 1629 src/intlib.c data[1] = Scm_Cons(result, r); r 1668 src/intlib.c ScmObj r = SCM_OBJ(data[1]); r 1673 src/intlib.c SCM_RETURN(Scm_ReverseX(Scm_Cons(result, r))); r 1675 src/intlib.c data[1] = Scm_Cons(result, r); r 66 src/keyword.c ScmObj r; r 70 src/keyword.c if (e) r = e->value; r 76 src/keyword.c r = SCM_OBJ(k); r 79 src/keyword.c return r; r 265 src/load.c int r = stat(Scm_GetStringConst(SCM_STRING(path)), &statbuf); r 266 src/load.c if (r < 0) return FALSE; r 416 src/load.c ScmObj r, f = SCM_MAKE_STR_COPYING(cpath); r 428 src/load.c r = Scm_Apply(SCM_OBJ(&load_STUB), Scm_Cons(f, options)); r 429 src/load.c return !SCM_FALSEP(r); r 487 src/load.c ScmObj r; r 512 src/load.c r = ldinfo.load_path_rec->value; r 525 src/load.c return r; r 909 src/load.c int r; r 911 src/load.c r = !SCM_FALSEP(Scm_Member(feature, ldinfo.provided, SCM_CMP_EQUAL)); r 913 src/load.c return r; r 127 src/macro.c ScmSyntaxRules *r = SCM_SYNTAX_RULES(obj); r 129 src/macro.c Scm_Printf(port, "#<syntax-rules(%d)\n", r->numRules); r 130 src/macro.c for (i = 0; i < r->numRules; i++) { r 132 src/macro.c i, r->rules[i].numPvars, r->rules[i].maxLevel); r 133 src/macro.c Scm_Printf(port, " pattern = %S\n", r->rules[i].pattern); r 134 src/macro.c Scm_Printf(port, " template = %S\n", r->rules[i].template); r 143 src/macro.c ScmSyntaxRules *r = SCM_NEW2(ScmSyntaxRules *, r 145 src/macro.c SCM_SET_CLASS(r, SCM_CLASS_SYNTAX_RULES); r 146 src/macro.c r->numRules = nr; r 147 src/macro.c return r; r 785 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r, e; r 789 src/macro.c r = realize_template_rec(e, mvec, level, indices, idlist, exlev); r 790 src/macro.c if (SCM_UNBOUNDP(r)) return r; r 791 src/macro.c SCM_APPEND(h, t, r); r 793 src/macro.c r = realize_template_rec(e, mvec, level, indices, idlist, exlev); r 794 src/macro.c if (SCM_UNBOUNDP(r)) return r; r 795 src/macro.c SCM_APPEND1(h, t, r); r 800 src/macro.c r = realize_template_rec(template, mvec, level, indices, idlist, exlev); r 801 src/macro.c if (SCM_UNBOUNDP(r)) return r; r 802 src/macro.c if (SCM_NULLP(h)) return r; /* (a ... . b) and a ... is empty */ r 803 src/macro.c SCM_APPEND(h, t, r); r 812 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r; r 815 src/macro.c r = realize_template_rec(pat->pattern, mvec, level+1, indices, idlist, exlev); r 816 src/macro.c if (SCM_UNBOUNDP(r)) return (*exlev < pat->level)? r : h; r 817 src/macro.c SCM_APPEND1(h, t, r); r 822 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r, *pe; r 828 src/macro.c r = realize_template_rec(*pe, mvec, level, indices, idlist, exlev); r 829 src/macro.c if (SCM_UNBOUNDP(r)) return r; r 830 src/macro.c SCM_APPEND(h, t, r); r 832 src/macro.c r = realize_template_rec(*pe, mvec, level, indices, idlist, exlev); r 833 src/macro.c if (SCM_UNBOUNDP(r)) return r; r 834 src/macro.c SCM_APPEND1(h, t, r); r 160 src/module.c ScmObj r; r 163 src/module.c r = make_module(name); r 166 src/module.c r = SCM_OBJ(lookup_module_create(name, &created)); r 172 src/module.c r = SCM_FALSE; r 176 src/module.c return r; r 259 src/number.c ScmObj Scm_MakeComplex(double r, double i) r 263 src/number.c c->real = r; r 268 src/number.c ScmObj Scm_MakeComplexNormalized(double r, double i) r 270 src/number.c if (i == 0.0) return Scm_MakeFlonum(r); r 271 src/number.c else return Scm_MakeComplex(r, i); r 291 src/number.c double r = SCM_COMPLEX_REAL(z); r 293 src/number.c m = sqrt(r*r+i*i); r 307 src/number.c double r = SCM_COMPLEX_REAL(z); r 309 src/number.c a = atan2(i, r); r 407 src/number.c long r = SCM_INT_VALUE(obj); r 408 src/number.c if (r < -0x80000000L) { r 412 src/number.c if (r > 0x7fffffffL) { r 416 src/number.c return r; r 443 src/number.c long r = SCM_INT_VALUE(obj); r 444 src/number.c if (r < 0) { r 448 src/number.c if (r > 0xffffffffUL) { r 452 src/number.c return r; r 512 src/number.c ScmInt64 r = {0, 0}; r 516 src/number.c r.lo = v; r 517 src/number.c if (v < 0) r.hi = ULONG_MAX; r 518 src/number.c return r; r 526 src/number.c SCM_SET_INT64_MAX(r); r 527 src/number.c return r; r 530 src/number.c SCM_SET_INT64_MIN(r); r 531 src/number.c return r; r 538 src/number.c ScmInt64 r = 0; r 568 src/number.c return r; r 574 src/number.c ScmUInt64 r = {0, 0}; r 581 src/number.c r.lo = v; r 583 src/number.c return r; r 591 src/number.c SCM_SET_UINT64_MAX(r); r 592 src/number.c return r; r 595 src/number.c return r; r 602 src/number.c ScmInt64 r = 0; r 639 src/number.c return r; r 704 src/number.c double r = SCM_COMPLEX_REAL(obj); r 706 src/number.c double a = sqrt(r*r+i*i); r 718 src/number.c long r = 0; r 721 src/number.c r = SCM_INT_VALUE(obj); r 722 src/number.c if (r > 0) r = 1; r 723 src/number.c else if (r < 0) r = -1; r 725 src/number.c r = SCM_BIGNUM_SIGN(obj); r 729 src/number.c r = (v > 0.0)? 1 : -1; r 736 src/number.c return r; r 773 src/number.c double r = SCM_COMPLEX_REAL(obj), r1; r 776 src/number.c d = r*r + i*i; r 777 src/number.c r1 = r/d; r 1169 src/number.c double r = SCM_COMPLEX_REAL(arg1); r 1171 src/number.c double t = result_real * r - result_imag * i; r 1172 src/number.c result_imag = result_real * i + result_imag * r; r 1273 src/number.c double d, r, i; r 1295 src/number.c r = (result_real*div_real + result_imag*div_imag)/d; r 1297 src/number.c result_real = r; r 1319 src/number.c long q, r; r 1323 src/number.c r = SCM_INT_VALUE(x)%SCM_INT_VALUE(y); r 1324 src/number.c *rem = SCM_MAKE_INT(r); r 1341 src/number.c long r; r 1342 src/number.c ScmObj q = Scm_BignumDivSI(SCM_BIGNUM(x), SCM_INT_VALUE(y), &r); r 1343 src/number.c if (rem) *rem = SCM_MAKE_INT(r); r 1400 src/number.c long r; r 1402 src/number.c r = SCM_INT_VALUE(x)%SCM_INT_VALUE(y); r 1403 src/number.c if (!remp && r) { r 1406 src/number.c r += SCM_INT_VALUE(y); r 1409 src/number.c return SCM_MAKE_INT(r); r 1534 src/number.c ScmObj r = SCM_MAKE_INT(1); r 1536 src/number.c if (sign == 0) return r; r 1537 src/number.c if (x == SCM_MAKE_INT(1)) return r; r 1538 src/number.c if (x == SCM_MAKE_INT(-1)) return Scm_OddP(y)? SCM_MAKE_INT(-1) : r; r 1548 src/number.c r = iexpt10_n[iy]; r 1550 src/number.c r = Scm_Ash(SCM_MAKE_INT(1), iy); r 1555 src/number.c if (iy == 1) { r = Scm_Multiply2(r, x); break; } r 1556 src/number.c if (iy & 0x01) r = Scm_Multiply2(r, x); r 1561 src/number.c return (sign < 0)? Scm_Reciprocal(r) : r; r 1611 src/number.c long r = SCM_INT_VALUE(arg0) - SCM_INT_VALUE(arg1); r 1612 src/number.c if (r < 0) return -1; r 1613 src/number.c if (r > 0) return 1; r 1617 src/number.c double r = SCM_INT_VALUE(arg0) - SCM_FLONUM_VALUE(arg1); r 1618 src/number.c if (r < 0) return -1; r 1619 src/number.c if (r > 0) return 1; r 1629 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_INT_VALUE(arg1); r 1630 src/number.c if (r < 0) return -1; r 1631 src/number.c if (r > 0) return 1; r 1635 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_FLONUM_VALUE(arg1); r 1636 src/number.c if (r < 0) return -1; r 1637 src/number.c if (r > 0) return 1; r 1710 src/number.c double r; r 1711 src/number.c double frac = modf(v, &r); r 1713 src/number.c if (frac > 0.5) r += 1.0; r 1715 src/number.c if (fmod(r,2.0) != 0.0) r += 1.0; r 1718 src/number.c if (frac < -0.5) r -= 1.0; r 1720 src/number.c if (fmod(r,2.0) != 0.0) r -= 1.0; r 1723 src/number.c return r; r 1729 src/number.c double r = 0.0, v; r 1736 src/number.c case SCM_ROUND_FLOOR: r = floor(v); break; r 1737 src/number.c case SCM_ROUND_CEIL: r = ceil(v); break; r 1740 src/number.c case SCM_ROUND_TRUNC: r = trunc(v); break; r 1742 src/number.c case SCM_ROUND_TRUNC: r = (v < 0.0)? ceil(v) : floor(v); break; r 1744 src/number.c case SCM_ROUND_ROUND: r = roundeven(v); break; r 1747 src/number.c return Scm_MakeFlonum(r); r 1876 src/number.c static inline u_long ipow(int r, int n) r 1879 src/number.c for (k=1; n>0; n--) k *= r; r 1952 src/number.c ScmObj f, r, s, mp, mm, q; r 1965 src/number.c r = Scm_Ash(f, exp+1); r 1970 src/number.c r = Scm_Ash(f, exp+2); r 1977 src/number.c r = Scm_Ash(f, 1); r 1982 src/number.c r = Scm_Ash(f, 2); r 1995 src/number.c r = Scm_Multiply2(r, scale); r 2000 src/number.c if (Scm_NumCmp(r, s) >= 0) { r 2005 src/number.c fixup = (numcmp3(r, mp, s) >= 0); r 2007 src/number.c fixup = (numcmp3(r, mp, s) > 0); r 2036 src/number.c ScmObj r10 = Scm_Multiply2(r, SCM_MAKE_INT(10)); r 2037 src/number.c q = Scm_Quotient(r10, s, &r); r 2046 src/number.c tc1 = (Scm_NumCmp(r, mm) <= 0); r 2047 src/number.c tc2 = (numcmp3(r, mp, s) >= 0); r 2049 src/number.c tc1 = (Scm_NumCmp(r, mm) < 0); r 2050 src/number.c tc2 = (numcmp3(r, mp, s) > 0); r 2066 src/number.c tc3 = numcmp3(r, r, s); /* r*2 <=> s */ r 2107 src/number.c ScmObj r = SCM_NIL; r 2125 src/number.c r = Scm_BignumToString(SCM_BIGNUM(Scm_MakeBignumFromSI(SCM_INT_VALUE(obj))), r 2128 src/number.c if (r == SCM_NIL) r = SCM_MAKE_STR_COPYING(buf); r 2130 src/number.c r = Scm_BignumToString(SCM_BIGNUM(obj), radix, use_upper); r 2133 src/number.c r = SCM_MAKE_STR_COPYING(buf); r 2141 src/number.c r = Scm_GetOutputString(SCM_PORT(p)); r 2145 src/number.c return r; r 244 src/port.c int r; r 254 src/port.c SCM_SYSCALL(r, select(fd+1, NULL, &fds, NULL, &tm)); r 256 src/port.c SCM_SYSCALL(r, select(fd+1, &fds, NULL, NULL, &tm)); r 258 src/port.c if (r < 0) Scm_SysError("select failed"); r 259 src/port.c if (r > 0) return SCM_FD_READY; r 544 src/port.c int r = p->src.buf.filler(p, toread-nread); r 545 src/port.c if (r <= 0) break; r 546 src/port.c nread += r; r 547 src/port.c p->src.buf.end += r; r 565 src/port.c int nread = 0, r, req; r 578 src/port.c r = bufport_fill(p, req, TRUE); r 579 src/port.c if (r <= 0) break; /* EOF or an error*/ r 580 src/port.c if (r >= siz) { r 586 src/port.c memcpy(dst, p->src.buf.current, r); r 587 src/port.c p->src.buf.current += r; r 588 src/port.c nread += r; r 589 src/port.c siz -= r; r 590 src/port.c dst += r; r 593 src/port.c if (r < req) break; r 764 src/port.c int nread = 0, r; r 770 src/port.c SCM_SYSCALL(r, read(fd, datptr, cnt-nread)); r 771 src/port.c if (r < 0) { r 774 src/port.c } else if (r == 0) { r 778 src/port.c datptr += r; r 779 src/port.c nread += r; r 787 src/port.c int nwrote = 0, r; r 796 src/port.c SCM_SYSCALL(r, write(fd, datptr, datsiz-nwrote)); r 797 src/port.c if (r < 0) { r 801 src/port.c datptr += r; r 802 src/port.c nwrote += r; r 923 src/port.c ScmObj r; r 929 src/port.c r = Scm_DStringGet(&SCM_PORT(port)->src.ostr, 0); r 931 src/port.c return r; r 451 src/portapi.c int b = 0, r = 0; r 466 src/portapi.c SAFE_CALL(p, r = bufport_fill(p, 1, FALSE)); r 467 src/portapi.c if (r == 0) { r 506 src/portapi.c int r = 0; r 511 src/portapi.c SAFE_CALL(p, r = Scm_Getb(p)); r 512 src/portapi.c if (r == EOF) { r 517 src/portapi.c tbuf[i] = (char)r; r 530 src/portapi.c int first, nb, c = 0, r = 0; r 536 src/portapi.c r = GETC_SCRATCH(p); r 538 src/portapi.c return r; r 550 src/portapi.c SAFE_CALL(p, r = bufport_fill(p, 1, FALSE)); r 551 src/portapi.c if (r == 0) { r 692 src/portapi.c int siz = 0, r = 0; r 699 src/portapi.c r = GETZ_SCRATCH(buf, buflen, p); r 701 src/portapi.c return r; r 707 src/portapi.c r = GETZ_SCRATCH(buf, buflen, p); r 709 src/portapi.c return r; r 719 src/portapi.c r = GETZ_ISTR(p, buf, buflen); r 721 src/portapi.c return r; r 723 src/portapi.c SAFE_CALL(p, r = p->src.vt.Getz(buf, buflen, p)); r 725 src/portapi.c return r; r 788 src/portapi.c ScmObj r = SCM_UNDEFINED; r 793 src/portapi.c SAFE_CALL(p, r = readline_body(p)); r 795 src/portapi.c return r; r 808 src/portapi.c int r = 0; r 815 src/portapi.c r = TRUE; r 819 src/portapi.c if (p->src.buf.current < p->src.buf.end) r = TRUE; r 820 src/portapi.c else if (p->src.buf.ready == NULL) r = TRUE; r 822 src/portapi.c SAFE_CALL(p, r = (p->src.buf.ready(p) != SCM_FD_WOULDBLOCK)); r 826 src/portapi.c SAFE_CALL(p, r = p->src.vt.Ready(p, FALSE)); r 829 src/portapi.c r = TRUE; r 833 src/portapi.c return r; r 846 src/portapi.c int r = 0; r 851 src/portapi.c if (p->ungotten != SCM_CHAR_INVALID) r = TRUE; r 855 src/portapi.c if (p->src.buf.current < p->src.buf.end) r = TRUE; r 856 src/portapi.c else if (p->src.buf.ready == NULL) r = TRUE; r 858 src/portapi.c SAFE_CALL(p, r = (p->src.buf.ready(p) != SCM_FD_WOULDBLOCK)); r 862 src/portapi.c SAFE_CALL(p, r = p->src.vt.Ready(p, TRUE)); r 865 src/portapi.c r = TRUE; r 869 src/portapi.c return r; r 880 src/portapi.c off_t r; r 882 src/portapi.c r = (off_t)(p->src.istr.current - p->src.istr.start); r 891 src/portapi.c r = (off_t)-1; r 894 src/portapi.c r = (off_t)(p->src.istr.current - p->src.istr.start); r 898 src/portapi.c return r; r 908 src/portapi.c off_t r = (off_t)-1, o = Scm_IntegerToOffset(off); r 927 src/portapi.c SAFE_CALL(p, r = p->src.buf.seeker(p, 0, SEEK_CUR)); r 929 src/portapi.c r -= (off_t)(p->src.buf.end - p->src.buf.current); r 931 src/portapi.c r += (off_t)(p->src.buf.current - p->src.buf.buffer); r 941 src/portapi.c SAFE_CALL(p, r = p->src.buf.seeker(p, o, whence)); r 944 src/portapi.c SAFE_CALL(p, r = p->src.buf.seeker(p, o, whence)); r 951 src/portapi.c r = SEEK_ISTR(p, o, whence, nomove); r 955 src/portapi.c r = (off_t)Scm_DStringSize(&(p->src.ostr)); r 958 src/portapi.c r = (off_t)-1; r 963 src/portapi.c SAFE_CALL(p, r = p->src.vt.Seek(p, o, whence)); r 968 src/portapi.c if (r == (off_t)-1) return SCM_FALSE; r 969 src/portapi.c else return Scm_OffsetToInteger(r); r 94 src/prof.c ssize_t r; r 100 src/prof.c r = write(vm->prof->samplerFd, vm->prof->samples, r 102 src/prof.c if (r == (ssize_t)-1) { r 290 src/prof.c ssize_t r; r 318 src/prof.c r = read(vm->prof->samplerFd, vm->prof->samples, r 320 src/prof.c if (r <= 0) break; r 321 src/prof.c vm->prof->currentSample = r / sizeof(ScmProfSample[1]); r 93 src/read.c volatile ScmObj r = SCM_NIL; r 102 src/read.c r = read_item(SCM_PORT(port), ctx); r 105 src/read.c PORT_SAFE_CALL(SCM_PORT(port), r = read_item(SCM_PORT(port), ctx)); r 111 src/read.c return r; r 124 src/read.c ScmObj inp = Scm_MakeInputStringPort(str, TRUE), r; r 127 src/read.c r = read_item(SCM_PORT(inp), &ctx); r 129 src/read.c return r; r 136 src/read.c ScmObj r; r 139 src/read.c r = read_item(SCM_PORT(inp), &ctx); r 141 src/read.c return r; r 147 src/read.c volatile ScmObj r = SCM_NIL; r 156 src/read.c r = read_list(SCM_PORT(port), closer, ctx); r 159 src/read.c PORT_SAFE_CALL(SCM_PORT(port), r = read_list(SCM_PORT(port), closer, ctx)); r 165 src/read.c return r; r 614 src/read.c ScmObj r; r 618 src/read.c r = read_list_int(port, closer, ctx, &has_ref, line); r 620 src/read.c if (SCM_PAIRP(r) && (ctx->flags & SCM_READ_SOURCE_INFO) && line >= 0) { r 623 src/read.c r = Scm_ExtendedCons(SCM_CAR(r), SCM_CDR(r)); r 624 src/read.c Scm_PairAttrSet(SCM_PAIR(r), SCM_SYM_SOURCE_INFO, r 628 src/read.c if (has_ref) ref_push(ctx, r, SCM_FALSE); r 629 src/read.c return r; r 636 src/read.c ScmObj r; r 639 src/read.c r = read_list_int(port, closer, ctx, &has_ref, line); r 640 src/read.c r = Scm_ListToVector(r, 0, -1); r 641 src/read.c if (has_ref) ref_push(ctx, r, SCM_FALSE); r 642 src/read.c return r; r 648 src/read.c ScmObj item, r; r 654 src/read.c r = Scm_ExtendedCons(quoter, Scm_Cons(item, SCM_NIL)); r 655 src/read.c Scm_PairAttrSet(SCM_PAIR(r), SCM_SYM_SOURCE_INFO, r 658 src/read.c r = Scm_Cons(quoter, Scm_Cons(item, SCM_NIL)); r 660 src/read.c if (SCM_READ_REFERENCE_P(item)) ref_push(ctx, SCM_CDR(r), SCM_FALSE); r 661 src/read.c return r; r 673 src/read.c ScmChar r; r 675 src/read.c r = Scm_ReadXdigitsFromPort(port, ndigs, buf, &nread); r 676 src/read.c if (r == SCM_CHAR_INVALID) { r 699 src/read.c return r; r 1054 src/read.c ScmObj form, r; r 1069 src/read.c r = process_sharp_comma(port, SCM_CAR(form), SCM_CDR(form), ctx, has_ref); r 1070 src/read.c return r; r 1077 src/read.c ScmObj r; r 1085 src/read.c r = Scm_Apply(SCM_CAR(e->value), args); r 1086 src/read.c if (has_ref) ref_push(ctx, r, SCM_CDR(e->value)); r 1087 src/read.c return r; r 401 src/regexp.c ScmChar r; r 403 src/regexp.c r = Scm_ReadXdigitsFromPort(port, ndigs, buf, &nread); r 404 src/regexp.c if (r == SCM_CHAR_INVALID) { r 422 src/regexp.c return r; r 547 src/regexp.c ScmObj r = SCM_NIL, ap; r 551 src/regexp.c r = Scm_Cons(SCM_CAR(alt), r); r 553 src/regexp.c r = Scm_Cons(Scm_Cons(SCM_SYM_SEQ, alt), r); r 556 src/regexp.c return Scm_Cons(SCM_SYM_ALT, r); r 2017 src/regexp.c ScmObj r = rex(rx, str, start, end); r 2018 src/regexp.c if (!SCM_FALSEP(r)) return r; r 530 src/signal.c ScmObj r; r 535 src/signal.c r = sigHandlers.handlers[signum]; r 537 src/signal.c return r; r 1090 src/stdlib.c double r; r 1096 src/stdlib.c r = Scm_GetDouble(r_scm); r 1103 src/stdlib.c SCM_RESULT = Scm_MakeComplexPolar(r, t); r 1479 src/stdlib.c ScmObj cell = Scm_C##tail##r(obj); \ r 2614 src/stdlib.c ScmChar r = Scm_StringRef(str, k, SCM_UNBOUNDP(fallback)); r 2615 src/stdlib.c SCM_RESULT = (r == SCM_CHAR_INVALID)? fallback : SCM_MAKE_CHAR(r); r 2643 src/stdlib.c ScmObj r = Scm_StringSet(str, k, c); r 2644 src/stdlib.c if (r == SCM_FALSE) Scm_Error("argument out of range: %d", k); r 3838 src/stdlib.c ScmObj r = (ch == SCM_CHAR_INVALID)? SCM_EOF : SCM_MAKE_CHAR(ch); r 3839 src/stdlib.c SCM_RETURN(r); r 367 src/string.c int sizx, sizy, siz, r; r 377 src/string.c r = memcmp(SCM_STRING_BODY_START(xb), SCM_STRING_BODY_START(yb), siz); r 378 src/string.c if (r == 0) return (sizx - sizy); r 379 src/string.c else return r; r 1085 src/string.c const unsigned char *s, *r; r 1118 src/string.c r = s; r 1120 src/string.c midlen = s - r; r 981 src/syslib.c int r; SCM_SYSCALL(r, kill(pid, sig)); r 982 src/syslib.c if (r < 0) Scm_SysError("kill failed"); r 1108 src/syslib.c int r; r 1109 src/syslib.c SCM_SYSCALL(r, remove(filename)); r 1110 src/syslib.c if (r < 0) Scm_SysError("removing %s failed", filename); r 1132 src/syslib.c int r; r 1141 src/syslib.c SCM_SYSCALL(r, rename(oldname, newname)); r 1142 src/syslib.c if (r < 0) Scm_SysError("renaming %s to %s failed", oldname, newname); r 1326 src/syslib.c int r; r 1327 src/syslib.c SCM_SYSCALL(r, stat(path, &s->statrec)); r 1328 src/syslib.c if (r < 0) Scm_SysError("stat failed for %s", path); r 1347 src/syslib.c int r; r 1348 src/syslib.c SCM_SYSCALL(r, lstat(path, &s->statrec)); r 1349 src/syslib.c if (r < 0) Scm_SysError("lstat failed for %s", path); r 1367 src/syslib.c int fd = Scm_GetPortFd(port_or_fd, FALSE), r; r 1369 src/syslib.c SCM_SYSCALL(r, fstat(fd, &s->statrec)); r 1370 src/syslib.c if (r < 0) Scm_SysError("fstat failed for %d", fd); r 1386 src/syslib.c int status; pid_t r = wait(&status); r 1387 src/syslib.c if (r < 0) { r 1391 src/syslib.c SCM_RESULT0 = r; SCM_RESULT1 = status; r 1431 src/syslib.c int status, options = 0; pid_t r; r 1434 src/syslib.c r = waitpid(pid, &status, options); r 1435 src/syslib.c if (r < 0) { r 1439 src/syslib.c SCM_RESULT0 = r; SCM_RESULT1 = status; r 1844 src/syslib.c int r; r 1848 src/syslib.c SCM_SYSCALL(r, access(pathname, amode)); r 1849 src/syslib.c SCM_RESULT = (r == 0); r 1869 src/syslib.c int r; SCM_SYSCALL(r, chdir(pathname)); r 1870 src/syslib.c if (r < 0) Scm_SysError("chdir failed"); r 1896 src/syslib.c int r; SCM_SYSCALL(r, chmod(pathname, mode)); r 1897 src/syslib.c if (r < 0) Scm_SysError("chmod failed"); r 2121 src/syslib.c int r; SCM_SYSCALL(r, link(existing, newpath)); r 2122 src/syslib.c if (r < 0) Scm_SysError("link failed"); r 2193 src/syslib.c int fds[2], r, bufmode; r 2194 src/syslib.c SCM_SYSCALL(r, pipe(fds)); r 2195 src/syslib.c if (r < 0) Scm_SysError("pipe failed"); r 2222 src/syslib.c int r; r 2223 src/syslib.c SCM_SYSCALL(r, close(fd)); r 2224 src/syslib.c if (r < 0) Scm_SysError("close failed"); r 2250 src/syslib.c int r; r 2252 src/syslib.c SCM_SYSCALL(r, mkdir(pathname, mode)); r 2254 src/syslib.c SCM_SYSCALL(r, mkdir(pathname)); r 2256 src/syslib.c if (r < 0) Scm_SysError("mkdir failed"); r 2277 src/syslib.c int r; SCM_SYSCALL(r, rmdir(pathname)); r 2278 src/syslib.c if (r < 0) Scm_SysError("rmdir failed"); r 2375 src/syslib.c int r; SCM_SYSCALL(r, unlink(pathname)); r 2376 src/syslib.c if (r < 0) { r 2446 src/syslib.c int r; SCM_SYSCALL(r, truncate(path, Scm_IntegerToOffset(length))); r 2447 src/syslib.c if (r < 0) Scm_SysError("truncate failed"); r 2472 src/syslib.c int r; int fd = Scm_GetPortFd(port_or_fd, TRUE); r 2473 src/syslib.c SCM_SYSCALL(r, ftruncate(fd, Scm_IntegerToOffset(length))); r 2474 src/syslib.c if (r < 0) Scm_SysError("ftruncate failed"); r 2528 src/syslib.c int r; r 2529 src/syslib.c SCM_SYSCALL(r, symlink(existing, newpath)); r 2530 src/syslib.c if (r < 0) Scm_SysError("link failed"); r 112 src/system.c int Scm_SysCall(int r) r 115 src/system.c if (r < 0 && errno == EINTR) { r 120 src/system.c return r; r 123 src/system.c void *Scm_PtrSysCall(void *r) r 126 src/system.c if (r == NULL && errno == EINTR) { r 131 src/system.c return r; r 192 src/system.c int i, r; r 193 src/system.c SCM_SYSCALL(r, glob(Scm_GetStringConst(pattern), 0, NULL, &globbed)); r 194 src/system.c if (r) { r 197 src/system.c if (r == GLOB_NOMATCH) return SCM_NIL; r 759 src/system.c int r; r 760 src/system.c SCM_SYSCALL(r, gettimeofday(&tv, NULL)); r 761 src/system.c if (r < 0) Scm_SysError("gettimeofday failed"); r 1390 src/system.c ScmSysFdset *r = select_checkfd(rfds); r 1393 src/system.c return select_int((r? fdset_copy(r) : NULL), r 1401 src/system.c ScmSysFdset *r = select_checkfd(rfds); r 1404 src/system.c return select_int(r, w, e, timeout); r 1590 src/system.c int r = _pipe(fd, PIPE_BUFFER_SIZE, O_BINARY); r 1591 src/system.c return r; r 1623 src/system.c BOOL r = CreateHardLink((LPCTSTR)newpath, (LPCTSTR)existing, NULL); r 1624 src/system.c return r? -1 : 0; r 43 src/test-arith.c op(r, c, x, y); \ r 44 src/test-arith.c if (r == rexp && c == cexp) { \ r 49 src/test-arith.c ", c=" numfmt "\n", r, c); \ r 63 src/test-arith.c op(r, c, x, y); \ r 69 src/test-arith.c ", c=" numfmt "\n", r, c); \ r 72 src/test-arith.c if (r == rexp) printf("ok\n"); \ r 75 src/test-arith.c printf("ERROR: got r=" numfmt "\n", r); \ r 88 src/test-arith.c u_long r, c, x, y; r 125 src/test-arith.c u_long r, c, x, y; r 154 src/test-arith.c long r, c, x, y; r 201 src/test-arith.c u_long r, c, x, y; r 238 src/test-arith.c u_long r, c, x, y; r 265 src/test-arith.c long r, c, x, y; r 347 src/test-arith.c u_long r, c, x, y; r 382 src/test-arith.c long r, c, x, y; r 683 src/vm.c #define NUM_CMP(op, r) \ r 688 src/vm.c r = ((signed long)x_ op (signed long)y_); \ r 690 src/vm.c r = (SCM_FLONUM_VALUE(x_) op SCM_FLONUM_VALUE(y_)); \ r 693 src/vm.c r = (Scm_NumCmp(x_, y_) op 0); \ r 698 src/vm.c #define NUM_CCMP(op, r) \ r 702 src/vm.c r = (SCM_FLONUM_VALUE(x_) op Scm_GetDouble(y_)); \ r 1481 src/vm.c int r; r 1482 src/vm.c NUM_CMP(<, r); r 1483 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 1484 src/vm.c if (r) INCR_PC; r 1489 src/vm.c int r; r 1490 src/vm.c NUM_CMP(<=, r); r 1491 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 1492 src/vm.c if (r) INCR_PC; r 1497 src/vm.c int r; r 1498 src/vm.c NUM_CMP(>, r); r 1499 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 1500 src/vm.c if (r) INCR_PC; r 1505 src/vm.c int r; r 1506 src/vm.c NUM_CMP(>=, r); r 1507 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 1508 src/vm.c if (r) INCR_PC; r 2105 src/vm.c int r; r 2106 src/vm.c NUM_CMP(<, r); r 2108 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 2112 src/vm.c int r; r 2113 src/vm.c NUM_CMP(<=, r); r 2115 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 2119 src/vm.c int r; r 2120 src/vm.c NUM_CMP(>, r); r 2122 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 2126 src/vm.c int r; r 2127 src/vm.c NUM_CMP(>=, r); r 2129 src/vm.c VAL0 = SCM_MAKE_BOOL(r); r 2136 src/vm.c long r = SCM_INT_VALUE(arg) + SCM_INT_VALUE(VAL0); r 2137 src/vm.c if (SCM_SMALL_INT_FITS(r)) { r 2138 src/vm.c VAL0 = SCM_MAKE_INT(r); r 2140 src/vm.c VAL0 = Scm_MakeInteger(r); r 2153 src/vm.c long r = SCM_INT_VALUE(arg) - SCM_INT_VALUE(VAL0); r 2154 src/vm.c if (SCM_SMALL_INT_FITS(r)) { r 2155 src/vm.c VAL0 = SCM_MAKE_INT(r); r 2157 src/vm.c VAL0 = Scm_MakeInteger(r); r 2200 src/vm.c long r = -SCM_INT_VALUE(v); r 2201 src/vm.c if (SCM_SMALL_INT_FITS(r)) { r 2202 src/vm.c VAL0 = SCM_MAKE_INT(r); r 2204 src/vm.c VAL0 = Scm_MakeInteger(r);