k 66 examples/spigot/spigot.c int k, i, j, l, b, q, r, *array;
k 76 examples/spigot/spigot.c k = (int)floor(digits * 3.3219280948873626);
k 77 examples/spigot/spigot.c array = SCM_NEW_ATOMIC2(int *, (k+1)*sizeof(int));
k 78 examples/spigot/spigot.c for (i=0; i<k; i++) array[i] = 2;
k 79 examples/spigot/spigot.c array[k] = 4;
k 83 examples/spigot/spigot.c for (j=k; j>0; j--) {
k 110 examples/spigot/spigot.c int k, i, j, l, b, q, r, *array;
k 120 examples/spigot/spigot.c k = (int)floor(digits * 3.3219280948873626);
k 121 examples/spigot/spigot.c array = SCM_NEW_ATOMIC2(int *, (k+1)*sizeof(int));
k 122 examples/spigot/spigot.c for (i=0; i<k; i++) array[i] = 1;
k 123 examples/spigot/spigot.c array[k] = 2;
k 127 examples/spigot/spigot.c for (j=k; j>0; j--) {
k 135 ext/digest/sha.c #define subRound(a, b, c, d, e, f, k, data) \
k 136 ext/digest/sha.c ( e += ROTL(5,a) + f(b, c, d) + k + data, b = ROTL(30, b) )
k 94 ext/mt-random/mt-random.c int i, j, k;
k 97 ext/mt-random/mt-random.c k = (N>key_length ? N : key_length);
k 98 ext/mt-random/mt-random.c for (; k; k--) {
k 106 ext/mt-random/mt-random.c for (k=N-1; k; k--) {
k 631 ext/threads/thrlib.c ScmClass *k = SCM_CLASS_OF(obj);
k 634 ext/threads/thrlib.c Scm_Printf(port, "#<%A %S>", Scm__InternalClassName(k), SCM_OBJ_SAFE(exc->thread));
k 636 ext/threads/thrlib.c Scm_Printf(port, "#<%A %S %S>", Scm__InternalClassName(k), SCM_OBJ_SAFE(exc->thread), exc->data);
k 607 ext/uvector/uvector.c long k, v, m;
k 609 ext/uvector/uvector.c SADDOV(k, v, acc, m);
k 614 ext/uvector/uvector.c return k;
k 622 ext/uvector/uvector.c long k, v, m;
k 629 ext/uvector/uvector.c SADDOV(k, v, acc, m);
k 634 ext/uvector/uvector.c return k;
k 653 ext/uvector/uvector.c u_long k, v, m;
k 655 ext/uvector/uvector.c UADDOV(k, v, acc, m);
k 660 ext/uvector/uvector.c return k;
k 668 ext/uvector/uvector.c u_long k, v, m;
k 675 ext/uvector/uvector.c UADDOV(k, v, acc, m);
k 680 ext/uvector/uvector.c return k;
k 571 gc/dbg_mlc.c GC_PTR GC_debug_generic_malloc_inner(size_t lb, int k)
k 573 gc/dbg_mlc.c GC_PTR result = GC_generic_malloc_inner(lb + DEBUG_BYTES, k);
k 584 gc/dbg_mlc.c GC_PTR GC_debug_generic_malloc_inner_ignore_off_page(size_t lb, int k)
k 587 gc/dbg_mlc.c lb + DEBUG_BYTES, k);
k 111 gc/gcj_mlc.c #define GENERAL_MALLOC(lb,k) \
k 112 gc/gcj_mlc.c (GC_PTR)GC_clear_stack(GC_generic_malloc_inner((word)lb, k))
k 114 gc/gcj_mlc.c #define GENERAL_MALLOC_IOP(lb,k) \
k 115 gc/gcj_mlc.c (GC_PTR)GC_clear_stack(GC_generic_malloc_inner_ignore_off_page(lb, k))
k 179 gc/include/gc_mark.h /* ptr_t */char * GC_generic_malloc GC_PROTO((GC_word lb, int k));
k 1129 gc/include/private/gc_priv.h # define IS_UNCOLLECTABLE(k) (((k) & ~1) == UNCOLLECTABLE)
k 1132 gc/include/private/gc_priv.h # define IS_UNCOLLECTABLE(k) ((k) == UNCOLLECTABLE)
k 1542 gc/include/private/gc_priv.h ptr_t GC_alloc_large GC_PROTO((word lw, int k, unsigned flags));
k 1552 gc/include/private/gc_priv.h ptr_t GC_alloc_large_and_clear GC_PROTO((word lw, int k, unsigned flags));
k 1629 gc/include/private/gc_priv.h ptr_t GC_generic_malloc_ignore_off_page GC_PROTO((size_t b, int k));
k 1633 gc/include/private/gc_priv.h ptr_t GC_generic_malloc_inner GC_PROTO((word lb, int k));
k 1635 gc/include/private/gc_priv.h ptr_t GC_generic_malloc_words_small_inner GC_PROTO((word lw, int k));
k 1639 gc/include/private/gc_priv.h ptr_t GC_generic_malloc_words_small GC_PROTO((size_t lw, int k));
k 1643 gc/include/private/gc_priv.h ptr_t GC_generic_malloc_inner_ignore_off_page GC_PROTO((size_t lb, int k));
k 1744 gc/include/private/gc_priv.h extern GC_PTR GC_debug_generic_malloc_inner(size_t lb, int k);
k 1746 gc/include/private/gc_priv.h int k);
k 40 gc/malloc.c ptr_t GC_alloc_large(lw, k, flags)
k 42 gc/malloc.c int k;
k 53 gc/malloc.c h = GC_allochblk(lw, k, flags);
k 57 gc/malloc.c h = GC_allochblk(lw, k, flags);
k 61 gc/malloc.c h = GC_allochblk(lw, k, flags);
k 81 gc/malloc.c ptr_t GC_alloc_large_and_clear(lw, k, flags)
k 83 gc/malloc.c int k;
k 86 gc/malloc.c ptr_t result = GC_alloc_large(lw, k, flags);
k 90 gc/malloc.c if (GC_debugging_started || GC_obj_kinds[k].ok_init) {
k 103 gc/malloc.c ptr_t GC_generic_malloc_inner(lb, k)
k 105 gc/malloc.c register int k;
k 112 gc/malloc.c register struct obj_kind * kind = GC_obj_kinds + k;
k 125 gc/malloc.c return(GC_generic_malloc_inner(lb, k));
k 130 gc/malloc.c return(GC_generic_malloc_inner(lb, k));
k 136 gc/malloc.c op = GC_allocobj(lw, k);
k 154 gc/malloc.c op = (ptr_t)GC_alloc_large_and_clear(lw, k, 0);
k 165 gc/malloc.c ptr_t GC_generic_malloc_inner_ignore_off_page(lb, k)
k 167 gc/malloc.c register int k;
k 173 gc/malloc.c return(GC_generic_malloc_inner((word)lb, k));
k 175 gc/malloc.c op = (ptr_t)GC_alloc_large_and_clear(lw, k, IGNORE_OFF_PAGE);
k 180 gc/malloc.c ptr_t GC_generic_malloc(lb, k)
k 182 gc/malloc.c register int k;
k 192 gc/malloc.c result = GC_generic_malloc_inner((word)lb, k);
k 201 gc/malloc.c init = GC_obj_kinds[k].ok_init;
k 204 gc/malloc.c result = (ptr_t)GC_alloc_large(lw, k, 0);
k 234 gc/malloc.c #define GENERAL_MALLOC(lb,k) \
k 235 gc/malloc.c (GC_PTR)GC_clear_stack(GC_generic_malloc((word)lb, k))
k 178 gc/mallocx.c ptr_t GC_generic_malloc_ignore_off_page(lb, k)
k 180 gc/mallocx.c register int k;
k 189 gc/mallocx.c return(GC_generic_malloc((word)lb, k));
k 192 gc/mallocx.c init = GC_obj_kinds[k].ok_init;
k 197 gc/mallocx.c result = (ptr_t)GC_alloc_large(lw, k, IGNORE_OFF_PAGE);
k 262 gc/mallocx.c ptr_t GC_generic_malloc_words_small_inner(lw, k)
k 264 gc/mallocx.c register int k;
k 268 gc/mallocx.c register struct obj_kind * kind = GC_obj_kinds + k;
k 276 gc/mallocx.c op = GC_clear_stack(GC_allocobj((word)lw, k));
k 293 gc/mallocx.c ptr_t GC_generic_malloc_words_small(size_t lw, int k)
k 295 gc/mallocx.c ptr_t GC_generic_malloc_words_small(lw, k)
k 297 gc/mallocx.c register int k;
k 307 gc/mallocx.c op = GC_generic_malloc_words_small_inner(lw, k);
k 346 gc/mallocx.c void GC_generic_malloc_many(lb, k, result)
k 348 gc/mallocx.c register int k;
k 356 gc/mallocx.c struct obj_kind * ok = &(GC_obj_kinds[k]);
k 366 gc/mallocx.c op = GC_generic_malloc(lb, k);
k 466 gc/mallocx.c opp = &(GC_obj_kinds[k].ok_freelist[lw]);
k 483 gc/mallocx.c struct hblk *h = GC_allochblk(lw, k, 0);
k 485 gc/mallocx.c if (IS_UNCOLLECTABLE(k)) GC_set_hdr_marks(HDR(h));
k 513 gc/mallocx.c op = GC_generic_malloc_inner(lb, k);
k 276 gc/pthread_support.c GC_key_t k = GC_thread_key;
k 281 gc/pthread_support.c if (EXPECT(0 == k, 0)) {
k 286 gc/pthread_support.c k = GC_thread_key;
k 24 gc/stubborn.c #define GENERAL_MALLOC(lb,k) \
k 25 gc/stubborn.c (GC_PTR)GC_clear_stack(GC_generic_malloc((word)lb, k))
k 623 gc/typd_mlc.c #define GENERAL_MALLOC(lb,k) \
k 624 gc/typd_mlc.c (GC_PTR)GC_clear_stack(GC_generic_malloc((word)lb, k))
k 626 gc/typd_mlc.c #define GENERAL_MALLOC_IOP(lb,k) \
k 627 gc/typd_mlc.c (GC_PTR)GC_clear_stack(GC_generic_malloc_ignore_off_page(lb, k))
k 943 src/bignum.c int j, k, n, m;
k 1001 src/bignum.c for (k = 0; k < n; k++) {
k 1002 src/bignum.c vv = qq * DIGIT(v, k);
k 1003 src/bignum.c uj = DIGIT2(u, j+k);
k 1006 src/bignum.c SETDIGIT2(u, j+k, uj2);
k 1016 src/bignum.c for (k = 0; k < n; k++) {
k 1017 src/bignum.c vv = DIGIT(v, k);
k 1018 src/bignum.c uj = DIGIT(u, j+k) + vv + cy;
k 1020 src/bignum.c SETDIGIT(u, j+k, uj);
k 468 src/class.c ScmClass *k;
k 469 src/class.c while ((k = *cp++) != NULL) {
k 470 src/class.c if (SCM_CLASS_CATEGORY(k) == SCM_CLASS_BASE) {
k 471 src/class.c return k;
k 488 src/class.c ScmClass *k = Scm_ClassOf(obj);
k 489 src/class.c if (!SCM_FALSEP(k->redefined)) {
k 491 src/class.c return instance_class_redefinition(obj, k);
k 493 src/class.c return SCM_OBJ(k);
k 507 src/class.c ScmClass *k = Scm_ClassOf(obj);
k 508 src/class.c if (!SCM_FALSEP(k->redefined)) {
k 513 src/class.c return instance_class_redefinition(obj, k);
k 1151 src/class.c ScmClass *k = Scm_ClassOf(obj);
k 1152 src/class.c if (number < 0 || number >= k->numInstanceSlots)
k 1159 src/class.c ScmClass *k = Scm_ClassOf(obj);
k 1160 src/class.c if (number < 0 || number >= k->numInstanceSlots)
k 89 src/error.c ScmClass *k = Scm_ClassOf(obj);
k 91 src/error.c Scm__InternalClassName(k),
k 415 src/error.c int Scm_ConditionHasType(ScmObj c, ScmObj k)
k 420 src/error.c if (!SCM_CLASSP(k)) return FALSE;
k 421 src/error.c if (!SCM_COMPOUND_CONDITION_P(c)) return SCM_ISA(c, SCM_CLASS(k));
k 423 src/error.c if (SCM_ISA(SCM_CAR(cp), SCM_CLASS(k))) return TRUE;
k 147 src/exclib.c ScmObj k;
k 152 src/exclib.c k = (k_scm);
k 156 src/exclib.c SCM_RESULT = Scm_ConditionHasType(c, k);
k 1759 src/extlib.c int k;
k 1771 src/extlib.c k = SCM_INT_VALUE(k_scm);
k 1781 src/extlib.c int r = Scm_StringByteRef(str, k, SCM_UNBOUNDP(fallback));
k 1796 src/extlib.c int k;
k 1805 src/extlib.c k = SCM_INT_VALUE(k_scm);
k 1812 src/extlib.c SCM_RESULT = Scm_StringByteSet(str, k, b);
k 312 src/gauche.h #define SCM_SET_CLASS(obj, k) (SCM_OBJ(obj)->tag = (ScmByte*)(k) + 3)
k 1075 src/gauche.h SCM_EXTERN const char *Scm_StringPosition(ScmString *str, int k);
k 1076 src/gauche.h SCM_EXTERN ScmChar Scm_StringRef(ScmString *str, int k, int range_error);
k 1077 src/gauche.h SCM_EXTERN ScmObj Scm_StringSet(ScmString *str, int k, ScmChar sc);
k 1078 src/gauche.h SCM_EXTERN int Scm_StringByteRef(ScmString *str, int k, int range_error);
k 1079 src/gauche.h SCM_EXTERN ScmObj Scm_StringByteSet(ScmString *str, int k, ScmByte b);
k 1973 src/gauche.h #define SCM_SMALL_INT_FITS(k) \
k 1974 src/gauche.h (((k)<=SCM_SMALL_INT_MAX)&&((k)>=SCM_SMALL_INT_MIN))
k 2477 src/gauche.h SCM_EXTERN int Scm_ConditionHasType(ScmObj c, ScmObj k);
k 143 src/gauche/code.h #define SCM_VM_INSN_ARG_FITS(k) \
k 144 src/gauche/code.h (((k)<=SCM_VM_INSN_ARG_MAX)&&((k)>=SCM_VM_INSN_ARG_MIN))
k 82 src/gauche/exception.h SCM_EXTERN int Scm_ConditionHasType(ScmObj c, ScmObj k);
k 382 src/hash.c static ScmHashEntry *string_access(ScmHashTable *table, void *k,
k 388 src/hash.c ScmObj key = SCM_OBJ(k), value = SCM_OBJ(v);
k 449 src/hash.c static ScmHashEntry *multiword_access(ScmHashTable *table, void *k,
k 456 src/hash.c hashval = multiword_hash(table, k);
k 460 src/hash.c if (memcmp(k, e->key, keysize*sizeof(ScmWord)) == 0) {
k 471 src/hash.c else return insert_entry(table, k, v, index);
k 72 src/keyword.c ScmKeyword *k = SCM_NEW(ScmKeyword);
k 73 src/keyword.c SCM_SET_CLASS(k, SCM_CLASS_KEYWORD);
k 74 src/keyword.c k->name = SCM_STRING(Scm_CopyString(name));
k 75 src/keyword.c Scm_HashTablePut(keywords.table, SCM_OBJ(name), SCM_OBJ(k));
k 76 src/keyword.c r = SCM_OBJ(k);
k 388 src/list.c int k;
k 390 src/list.c for (k=0; k<i; k++) {
k 106 src/moplib.c ScmClass* k;
k 110 src/moplib.c k = SCM_CLASS(k_scm);
k 112 src/moplib.c Scm_StartClassRedefinition(k);
k 123 src/moplib.c ScmClass* k;
k 129 src/moplib.c k = SCM_CLASS(k_scm);
k 133 src/moplib.c Scm_CommitClassRedefinition(k, newk);
k 168 src/moplib.c ScmClass* k;
k 174 src/moplib.c k = SCM_CLASS(k_scm);
k 179 src/moplib.c Scm_ReplaceClassBinding(k, newk);
k 1095 src/number.c long k = result_int * vv;
k 1097 src/number.c if ((vv != 0 && k/vv != result_int)
k 1098 src/number.c || k < SCM_SMALL_INT_MIN
k 1099 src/number.c || k > SCM_SMALL_INT_MAX) {
k 1104 src/number.c result_int = k;
k 1878 src/number.c u_long k;
k 1879 src/number.c for (k=1; n>0; n--) k *= r;
k 1880 src/number.c return k;
k 2315 src/number.c int k, s, kprev, sign_d;
k 2316 src/number.c m = Scm_DecodeFlonum(z, &k, &s);
k 2319 src/number.c if (k >= 0) {
k 2322 src/number.c y = Scm_Ash(m, k);
k 2325 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k);
k 2329 src/number.c x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k);
k 2332 src/number.c x = Scm_Ash(f, -k);
k 2336 src/number.c kprev = k;
k 2352 src/number.c return ldexp(Scm_GetDouble(m), k);
k 2360 src/number.c return ldexp(Scm_GetDouble(m), k);
k 2373 src/number.c if (k > -1074 && Scm_NumCmp(m, SCM_2_52) < 0) {
k 2375 src/number.c k--;
k 2382 src/number.c k++;
k 2387 src/number.c if (k >= 0) {
k 2390 src/number.c y = Scm_Ash(m, k);
k 2392 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k);
k 2399 src/number.c if (k < 0) {
k 2402 src/number.c if (k != kprev) x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k);
k 2405 src/number.c if (k != kprev) x = Scm_Ash(f, -k);
k 1779 src/stdlib.c int k;
k 1790 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 1800 src/stdlib.c SCM_RESULT = Scm_ListTail(list, k, fallback);
k 1814 src/stdlib.c int k;
k 1825 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 1835 src/stdlib.c SCM_RESULT = Scm_ListRef(list, k, fallback);
k 2592 src/stdlib.c int k;
k 2604 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 2614 src/stdlib.c ScmChar r = Scm_StringRef(str, k, SCM_UNBOUNDP(fallback));
k 2629 src/stdlib.c int k;
k 2638 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 2643 src/stdlib.c ScmObj r = Scm_StringSet(str, k, c);
k 2644 src/stdlib.c if (r == SCM_FALSE) Scm_Error("argument out of range: %d", k);
k 3110 src/stdlib.c int k;
k 3119 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 3129 src/stdlib.c SCM_RESULT = Scm_MakeVector(k, fill);
k 3183 src/stdlib.c int k;
k 3195 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 3205 src/stdlib.c SCM_RESULT = Scm_VectorRef(vec, k, fallback);
k 3219 src/stdlib.c int k;
k 3228 src/stdlib.c k = SCM_INT_VALUE(k_scm);
k 3232 src/stdlib.c Scm_VectorSet(vec, k, obj);
k 763 src/string.c ScmObj Scm_StringSet(ScmString *x, int k, ScmChar ch)
k 769 src/string.c return string_substitute(x, xb, k, &byte, 1, 1, TRUE);
k 774 src/string.c return string_substitute(x, xb, k, buf, size, 1, FALSE);
k 778 src/string.c ScmObj Scm_StringByteSet(ScmString *x, int k, ScmByte b)
k 785 src/string.c if (k < 0 || k >= size) Scm_Error("argument out of range: %d", k);
k 789 src/string.c p[k] = (char)b;
k 898 src/string.c int i, j, k;
k 904 src/string.c for (j=siz2-1, k = i; j>=0 && ss1[k] == ss2[j]; j--, k--)
k 906 src/string.c if (j == -1) return k+1;
k 2039 src/vm.c int k;
k 2045 src/vm.c k = SCM_INT_VALUE(VAL0);
k 2046 src/vm.c if (k < 0 || k >= SCM_VECTOR_SIZE(vec))
k 2047 src/vm.c VM_ERR(("index out of range: %d\n", k));
k 2048 src/vm.c VAL0 = SCM_VECTOR_ELEMENT(vec, k);
k 2053 src/vm.c int k = SCM_VM_INSN_ARG(code);
k 2056 src/vm.c if (k < 0 || k >= SCM_VECTOR_SIZE(vec))
k 2057 src/vm.c VM_ERR(("index out of range: %d\n", k));
k 2058 src/vm.c VAL0 = SCM_VECTOR_ELEMENT(vec, k);
k 2063 src/vm.c int k;
k 2070 src/vm.c k = SCM_INT_VALUE(ind);
k 2071 src/vm.c if (k < 0 || k >= SCM_VECTOR_SIZE(vec))
k 2072 src/vm.c VM_ERR(("index out of range: %d\n", k));
k 2073 src/vm.c SCM_VECTOR_ELEMENT(vec, k) = VAL0;
k 2079 src/vm.c int k = SCM_VM_INSN_ARG(code);
k 2083 src/vm.c if (k < 0 || k >= SCM_VECTOR_SIZE(vec))
k 2084 src/vm.c VM_ERR(("index out of range: %d\n", k));
k 2085 src/vm.c SCM_VECTOR_ELEMENT(vec, k) = VAL0;