op 135 ext/fcntl/fcntl.c ScmObj Scm_SysFcntl(ScmObj port_or_fd, int op, ScmObj arg)
op 141 ext/fcntl/fcntl.c switch (op) {
op 152 ext/fcntl/fcntl.c SCM_SYSCALL(r, fcntl(fd, op));
op 154 ext/fcntl/fcntl.c Scm_SysError("fcntl(%s) failed", flag_name(op));
op 172 ext/fcntl/fcntl.c flag_name(op), arg);
op 174 ext/fcntl/fcntl.c SCM_SYSCALL(r, fcntl(fd, op, Scm_GetInteger(arg)));
op 176 ext/fcntl/fcntl.c Scm_SysError("fcntl(%s) failed", flag_name(op));
op 182 ext/fcntl/fcntl.c flag_name(op), arg);
op 185 ext/fcntl/fcntl.c SCM_SYSCALL(r, fcntl(fd, op, &fl->lock));
op 186 ext/fcntl/fcntl.c if (op == F_SETLK) {
op 190 ext/fcntl/fcntl.c if (r < 0) Scm_SysError("fcntl(%s) failed", flag_name(op));
op 193 ext/fcntl/fcntl.c Scm_Error("unknown operation code (%d) for fcntl", op);
op 124 ext/fcntl/fcntlib.c int op;
op 135 ext/fcntl/fcntlib.c op = SCM_INT_VALUE(op_scm);
op 145 ext/fcntl/fcntlib.c SCM_RESULT = Scm_SysFcntl(port_or_fd, op, arg);
op 53 ext/fcntl/gauche/fcntl.h extern ScmObj Scm_SysFcntl(ScmObj port_or_fd, int op, ScmObj arg);
op 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))
op 601 ext/uvector/uvector.c #define INT64BITOP(r, x, op, y) (r = x op y)
op 141 gc/gcj_mlc.c register ptr_t op;
op 154 gc/gcj_mlc.c op = *opp;
op 155 gc/gcj_mlc.c if(EXPECT(op == 0, 0)) {
op 157 gc/gcj_mlc.c op = (ptr_t)GENERAL_MALLOC((word)lb, GC_gcj_kind);
op 158 gc/gcj_mlc.c if (0 == op) {
op 166 gc/gcj_mlc.c *opp = obj_link(op);
op 169 gc/gcj_mlc.c *(void **)op = ptr_to_struct_containing_descr;
op 170 gc/gcj_mlc.c GC_ASSERT(((void **)op)[1] == 0);
op 175 gc/gcj_mlc.c op = (ptr_t)GENERAL_MALLOC((word)lb, GC_gcj_kind);
op 176 gc/gcj_mlc.c if (0 == op) {
op 180 gc/gcj_mlc.c *(void **)op = ptr_to_struct_containing_descr;
op 183 gc/gcj_mlc.c return((GC_PTR) op);
op 221 gc/gcj_mlc.c ptr_t op;
op 227 gc/gcj_mlc.c op = *opp;
op 228 gc/gcj_mlc.c if( EXPECT(op == 0, 0) ) {
op 230 gc/gcj_mlc.c op = (ptr_t)GC_clear_stack(
op 232 gc/gcj_mlc.c if (0 == op) {
op 237 gc/gcj_mlc.c *opp = obj_link(op);
op 240 gc/gcj_mlc.c *(void **)op = ptr_to_struct_containing_descr;
op 242 gc/gcj_mlc.c return((GC_PTR) op);
op 280 gc/gcj_mlc.c register ptr_t op;
op 293 gc/gcj_mlc.c if( (op = *opp) == 0 ) {
op 295 gc/gcj_mlc.c op = (ptr_t)GENERAL_MALLOC_IOP(lb, GC_gcj_kind);
op 300 gc/gcj_mlc.c *opp = obj_link(op);
op 303 gc/gcj_mlc.c *(void **)op = ptr_to_struct_containing_descr;
op 308 gc/gcj_mlc.c op = (ptr_t)GENERAL_MALLOC_IOP(lb, GC_gcj_kind);
op 309 gc/gcj_mlc.c if (0 != op) {
op 310 gc/gcj_mlc.c *(void **)op = ptr_to_struct_containing_descr;
op 314 gc/gcj_mlc.c return((GC_PTR) op);
op 180 gc/include/gc_alloc.h void * op;
op 184 gc/include/gc_alloc.h if (0 == (op = *flh)) {
op 187 gc/include/gc_alloc.h *flh = GC_obj_link(op);
op 189 gc/include/gc_alloc.h return op;
op 195 gc/include/gc_alloc.h void * op;
op 199 gc/include/gc_alloc.h if (0 == (op = *flh)) {
op 202 gc/include/gc_alloc.h *flh = GC_obj_link(op);
op 204 gc/include/gc_alloc.h return op;
op 248 gc/include/gc_alloc.h void * op;
op 252 gc/include/gc_alloc.h if (0 == (op = *flh)) {
op 255 gc/include/gc_alloc.h *flh = GC_obj_link(op);
op 257 gc/include/gc_alloc.h return op;
op 263 gc/include/gc_alloc.h void * op;
op 267 gc/include/gc_alloc.h if (0 == (op = *flh)) {
op 270 gc/include/gc_alloc.h *flh = GC_obj_link(op);
op 272 gc/include/gc_alloc.h return op;
op 47 gc/include/gc_inl.h register ptr_t op; \
op 53 gc/include/gc_inl.h if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) { \
op 57 gc/include/gc_inl.h *opp = obj_link(op); \
op 58 gc/include/gc_inl.h obj_link(op) = 0; \
op 61 gc/include/gc_inl.h (result) = (GC_PTR) op; \
op 69 gc/include/gc_inl.h register ptr_t op; \
op 75 gc/include/gc_inl.h if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) { \
op 79 gc/include/gc_inl.h *opp = obj_link(op); \
op 80 gc/include/gc_inl.h obj_link(op) = 0; \
op 83 gc/include/gc_inl.h (result) = (GC_PTR) op; \
op 90 gc/include/gc_inl.h register ptr_t op; \
op 96 gc/include/gc_inl.h if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) { \
op 98 gc/include/gc_inl.h op = GC_generic_malloc_words_small(2, NORMAL); \
op 100 gc/include/gc_inl.h *opp = obj_link(op); \
op 104 gc/include/gc_inl.h ((word *)op)[0] = (word)(first); \
op 105 gc/include/gc_inl.h ((word *)op)[1] = (word)(second); \
op 106 gc/include/gc_inl.h (result) = (GC_PTR) op; \
op 195 gc/include/new_gc_alloc.h void * op;
op 199 gc/include/new_gc_alloc.h if (0 == (op = *flh)) {
op 202 gc/include/new_gc_alloc.h *flh = GC_obj_link(op);
op 204 gc/include/new_gc_alloc.h return op;
op 210 gc/include/new_gc_alloc.h void * op;
op 214 gc/include/new_gc_alloc.h if (0 == (op = *flh)) {
op 217 gc/include/new_gc_alloc.h *flh = GC_obj_link(op);
op 219 gc/include/new_gc_alloc.h return op;
op 263 gc/include/new_gc_alloc.h void * op;
op 267 gc/include/new_gc_alloc.h if (0 == (op = *flh)) {
op 270 gc/include/new_gc_alloc.h *flh = GC_obj_link(op);
op 272 gc/include/new_gc_alloc.h return op;
op 278 gc/include/new_gc_alloc.h void * op;
op 282 gc/include/new_gc_alloc.h if (0 == (op = *flh)) {
op 285 gc/include/new_gc_alloc.h *flh = GC_obj_link(op);
op 287 gc/include/new_gc_alloc.h return op;
op 108 gc/malloc.c register ptr_t op;
op 120 gc/malloc.c if( (op = *opp) == 0 ) {
op 136 gc/malloc.c op = GC_allocobj(lw, k);
op 137 gc/malloc.c if (op == 0) goto out;
op 150 gc/malloc.c *opp = obj_link(op);
op 151 gc/malloc.c obj_link(op) = 0;
op 154 gc/malloc.c op = (ptr_t)GC_alloc_large_and_clear(lw, k, 0);
op 159 gc/malloc.c return op;
op 170 gc/malloc.c ptr_t op;
op 175 gc/malloc.c op = (ptr_t)GC_alloc_large_and_clear(lw, k, IGNORE_OFF_PAGE);
op 177 gc/malloc.c return op;
op 247 gc/malloc.c register ptr_t op;
op 260 gc/malloc.c if( EXPECT(!FASTLOCK_SUCCEEDED() || (op = *opp) == 0, 0) ) {
op 265 gc/malloc.c *opp = obj_link(op);
op 268 gc/malloc.c return((GC_PTR) op);
op 282 gc/malloc.c register ptr_t op;
op 295 gc/malloc.c if( EXPECT(!FASTLOCK_SUCCEEDED() || (op = *opp) == 0, 0) ) {
op 300 gc/malloc.c GC_ASSERT(0 == obj_link(op)
op 301 gc/malloc.c || (word)obj_link(op)
op 303 gc/malloc.c && (word)obj_link(op)
op 305 gc/malloc.c *opp = obj_link(op);
op 306 gc/malloc.c obj_link(op) = 0;
op 309 gc/malloc.c return((GC_PTR) op);
op 266 gc/mallocx.c register ptr_t op;
op 271 gc/mallocx.c if( (op = *opp) == 0 ) {
op 276 gc/mallocx.c op = GC_clear_stack(GC_allocobj((word)lw, k));
op 278 gc/mallocx.c if (op == 0) {
op 284 gc/mallocx.c *opp = obj_link(op);
op 285 gc/mallocx.c obj_link(op) = 0;
op 287 gc/mallocx.c return((ptr_t)op);
op 300 gc/mallocx.c register ptr_t op;
op 307 gc/mallocx.c op = GC_generic_malloc_words_small_inner(lw, k);
op 310 gc/mallocx.c return((ptr_t)op);
op 351 gc/mallocx.c ptr_t op;
op 366 gc/mallocx.c op = GC_generic_malloc(lb, k);
op 367 gc/mallocx.c if(0 != op) obj_link(op) = 0;
op 368 gc/mallocx.c *result = op;
op 416 gc/mallocx.c op = GC_reclaim_generic(hbp, hhdr, lw,
op 418 gc/mallocx.c if (op != 0) {
op 423 gc/mallocx.c for (p = op; p != 0; p = obj_link(p)) {
op 435 gc/mallocx.c *result = op;
op 467 gc/mallocx.c if ( (op = *opp) != 0 ) {
op 470 gc/mallocx.c for (p = op; p != 0; p = obj_link(p)) {
op 496 gc/mallocx.c op = GC_build_fl(h, lw, ok -> ok_init, 0);
op 498 gc/mallocx.c *result = op;
op 513 gc/mallocx.c op = GC_generic_malloc_inner(lb, k);
op 514 gc/mallocx.c if (0 != op) obj_link(op) = 0;
op 517 gc/mallocx.c *result = op;
op 542 gc/mallocx.c register ptr_t op;
op 558 gc/mallocx.c if( FASTLOCK_SUCCEEDED() && (op = *opp) != 0 ) {
op 560 gc/mallocx.c *opp = obj_link(op);
op 561 gc/mallocx.c obj_link(op) = 0;
op 568 gc/mallocx.c return((GC_PTR) op);
op 571 gc/mallocx.c op = (ptr_t)GC_generic_malloc((word)lb, UNCOLLECTABLE);
op 573 gc/mallocx.c op = (ptr_t)GC_generic_malloc((word)lb, UNCOLLECTABLE);
op 575 gc/mallocx.c if (0 == op) return(0);
op 582 gc/mallocx.c h = HBLKPTR(op);
op 587 gc/mallocx.c GC_set_mark_bit(op);
op 591 gc/mallocx.c return((GC_PTR) op);
op 644 gc/mallocx.c register ptr_t op;
op 660 gc/mallocx.c if( FASTLOCK_SUCCEEDED() && (op = *opp) != 0 ) {
op 662 gc/mallocx.c *opp = obj_link(op);
op 663 gc/mallocx.c obj_link(op) = 0;
op 668 gc/mallocx.c return((GC_PTR) op);
op 671 gc/mallocx.c op = (ptr_t)GC_generic_malloc((word)lb, AUNCOLLECTABLE);
op 673 gc/mallocx.c op = (ptr_t)GC_generic_malloc((word)lb, AUNCOLLECTABLE);
op 675 gc/mallocx.c if (0 == op) return(0);
op 682 gc/mallocx.c h = HBLKPTR(op);
op 687 gc/mallocx.c GC_set_mark_bit(op);
op 691 gc/mallocx.c return((GC_PTR) op);
op 199 gc/stubborn.c register ptr_t op;
op 213 gc/stubborn.c if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) {
op 218 gc/stubborn.c *opp = obj_link(op);
op 219 gc/stubborn.c obj_link(op) = 0;
op 221 gc/stubborn.c result = (GC_PTR) op;
op 637 gc/typd_mlc.c register ptr_t op;
op 651 gc/typd_mlc.c if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) {
op 653 gc/typd_mlc.c op = (ptr_t)GENERAL_MALLOC((word)lb, GC_explicit_kind);
op 654 gc/typd_mlc.c if (0 == op) return 0;
op 659 gc/typd_mlc.c *opp = obj_link(op);
op 660 gc/typd_mlc.c obj_link(op) = 0;
op 665 gc/typd_mlc.c op = (ptr_t)GENERAL_MALLOC((word)lb, GC_explicit_kind);
op 666 gc/typd_mlc.c if (op != NULL)
op 667 gc/typd_mlc.c lw = BYTES_TO_WORDS(GC_size(op));
op 669 gc/typd_mlc.c if (op != NULL)
op 670 gc/typd_mlc.c ((word *)op)[lw - 1] = d;
op 671 gc/typd_mlc.c return((GC_PTR) op);
op 682 gc/typd_mlc.c register ptr_t op;
op 696 gc/typd_mlc.c if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) {
op 698 gc/typd_mlc.c op = (ptr_t)GENERAL_MALLOC_IOP(lb, GC_explicit_kind);
op 703 gc/typd_mlc.c *opp = obj_link(op);
op 704 gc/typd_mlc.c obj_link(op) = 0;
op 709 gc/typd_mlc.c op = (ptr_t)GENERAL_MALLOC_IOP(lb, GC_explicit_kind);
op 710 gc/typd_mlc.c if (op != NULL)
op 711 gc/typd_mlc.c lw = BYTES_TO_WORDS(GC_size(op));
op 713 gc/typd_mlc.c if (op != NULL)
op 714 gc/typd_mlc.c ((word *)op)[lw - 1] = d;
op 715 gc/typd_mlc.c return((GC_PTR) op);
op 729 gc/typd_mlc.c register ptr_t op;
op 760 gc/typd_mlc.c if( !FASTLOCK_SUCCEEDED() || (op = *opp) == 0 ) {
op 762 gc/typd_mlc.c op = (ptr_t)GENERAL_MALLOC((word)lb, GC_array_kind);
op 763 gc/typd_mlc.c if (0 == op) return(0);
op 768 gc/typd_mlc.c *opp = obj_link(op);
op 769 gc/typd_mlc.c obj_link(op) = 0;
op 774 gc/typd_mlc.c op = (ptr_t)GENERAL_MALLOC((word)lb, GC_array_kind);
op 775 gc/typd_mlc.c if (0 == op) return(0);
op 776 gc/typd_mlc.c lw = BYTES_TO_WORDS(GC_size(op));
op 782 gc/typd_mlc.c ((word *)op
op 789 gc/typd_mlc.c ((VOLATILE word *)op)[lw - 1] = (word)lp;
op 794 gc/typd_mlc.c ((word *)op)[lw - 1] = (word)complex_descr;
op 799 gc/typd_mlc.c ((word *)op+lw-1),
op 800 gc/typd_mlc.c (GC_PTR) op);
op 808 gc/typd_mlc.c return((GC_PTR) op);
op 1689 src/gauche.h void *key, int op, void *val);
op 935 src/macro.c ScmObj sym, op;
op 939 src/macro.c op = SCM_CAR(expr);
op 940 src/macro.c if (SCM_MACROP(op)) {
op 941 src/macro.c mac = SCM_MACRO(op);
op 942 src/macro.c } else if (!SCM_SYMBOLP(op) && !SCM_IDENTIFIERP(op)) {
op 946 src/macro.c sym = op;
op 35 src/test-arith.c #define TEST5(x_, y_, c_, rexp, cexp, numfmt, opmsg, op) \
op 43 src/test-arith.c op(r, c, x, y); \
op 53 src/test-arith.c #define TESTOV(x_, y_, rexp, cexp, numfmt, opmsg, op) \
op 63 src/test-arith.c op(r, c, x, y); \
op 683 src/vm.c #define NUM_CMP(op, r) \
op 688 src/vm.c r = ((signed long)x_ op (signed long)y_); \
op 690 src/vm.c r = (SCM_FLONUM_VALUE(x_) op SCM_FLONUM_VALUE(y_)); \
op 693 src/vm.c r = (Scm_NumCmp(x_, y_) op 0); \
op 698 src/vm.c #define NUM_CCMP(op, r) \
op 702 src/vm.c r = (SCM_FLONUM_VALUE(x_) op Scm_GetDouble(y_)); \