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