e 135 ext/digest/sha.c #define subRound(a, b, c, d, e, f, k, data) \ e 136 ext/digest/sha.c ( e += ROTL(5,a) + f(b, c, d) + k + data, b = ROTL(30, b) ) e 195 ext/mt-random/mt-random.c int e = START_BIT; e 201 ext/mt-random/mt-random.c e--; e 202 ext/mt-random/mt-random.c if (n == m) return e; e 203 ext/mt-random/mt-random.c } while (e >= 0 && n < m); e 207 ext/mt-random/mt-random.c e++; e 208 ext/mt-random/mt-random.c if (n == m) return e; e 209 ext/mt-random/mt-random.c } while (e < MAX_BIT && n > m); e 211 ext/mt-random/mt-random.c return e; e 222 ext/mt-random/mt-random.c int e; e 224 ext/mt-random/mt-random.c if ((e = xlog2(n)) == 0) { e 226 ext/mt-random/mt-random.c } else if (e > 0) { e 229 ext/mt-random/mt-random.c if (e == 32) return Scm_MakeIntegerFromUI(r); e 230 ext/mt-random/mt-random.c else return Scm_MakeIntegerFromUI(r >> (32-e)); e 210 ext/threads/threads.c ScmObj e = Scm_MakeThreadException(SCM_CLASS_JOIN_TIMEOUT_EXCEPTION, target); e 211 ext/threads/threads.c result = Scm_Raise(e); e 623 ext/threads/thrlib.c ScmThreadException *e = SCM_ALLOCATE(ScmThreadException, klass); e 624 ext/threads/thrlib.c SCM_SET_CLASS(e, klass); e 625 ext/threads/thrlib.c e->thread = NULL; e 626 ext/threads/thrlib.c e->data = SCM_UNDEFINED; e 627 ext/threads/thrlib.c return SCM_OBJ(e); e 73 gc/allchblk.c # define FREE_ASSERT(e) GC_ASSERT(e) e 78 gc/allchblk.c # define FREE_ASSERT(e) e 233 gc/dyn_load.c struct exec *e; e 235 gc/dyn_load.c e = (struct exec *) lm->lm_addr; e 237 gc/dyn_load.c ((char *) (N_DATOFF(*e) + lm->lm_addr)), e 238 gc/dyn_load.c ((char *) (N_BSSADDR(*e) + e->a_bss + lm->lm_addr)), e 242 gc/dyn_load.c ElfW(Ehdr) * e; e 248 gc/dyn_load.c e = (ElfW(Ehdr) *) lm->l_addr; e 249 gc/dyn_load.c p = ((ElfW(Phdr) *)(((char *)(e)) + e->e_phoff)); e 251 gc/dyn_load.c for( i = 0; i < (int)(e->e_phnum); ((i++),(p++)) ) { e 536 gc/dyn_load.c ElfW(Ehdr) * e; e 542 gc/dyn_load.c e = (ElfW(Ehdr) *) lm->l_addr; e 543 gc/dyn_load.c p = ((ElfW(Phdr) *)(((char *)(e)) + e->e_phoff)); e 545 gc/dyn_load.c for( i = 0; i < (int)(e->e_phnum); ((i++),(p++)) ) { e 1431 gc/include/private/gc_priv.h void GC_add_roots_inner GC_PROTO((char * b, char * e, GC_bool tmp)); e 1432 gc/include/private/gc_priv.h void GC_remove_roots_inner GC_PROTO((char * b, char * e)); e 1853 gc/include/private/gc_priv.h # define GC_printf5(f,a,b,c,d,e) GC_printf(f, (long)a, (long)b, (long)c, \ e 1854 gc/include/private/gc_priv.h (long)d, (long)e, 0l) e 1855 gc/include/private/gc_priv.h # define GC_printf6(f,a,b,c,d,e,g) GC_printf(f, (long)a, (long)b, (long)c, \ e 1856 gc/include/private/gc_priv.h (long)d, (long)e, (long)g) e 1866 gc/include/private/gc_priv.h # define GC_err_printf5(f,a,b,c,d,e) GC_err_printf(f, (long)a, (long)b, \ e 1868 gc/include/private/gc_priv.h (long)e, 0l) e 1869 gc/include/private/gc_priv.h # define GC_err_printf6(f,a,b,c,d,e,g) GC_err_printf(f, (long)a, (long)b, \ e 1871 gc/include/private/gc_priv.h (long)e, (long)g) e 153 gc/mark_rts.c void GC_add_roots(b, e) e 154 gc/mark_rts.c char * b; char * e; e 160 gc/mark_rts.c GC_add_roots_inner(b, e, FALSE); e 172 gc/mark_rts.c void GC_add_roots_inner(b, e, tmp) e 173 gc/mark_rts.c char * b; char * e; e 190 gc/mark_rts.c if ((ptr_t)b <= old -> r_end && (ptr_t)e >= old -> r_start) { e 195 gc/mark_rts.c if ((ptr_t)e > old -> r_end) { e 196 gc/mark_rts.c old -> r_end = (ptr_t)e; e 197 gc/mark_rts.c GC_root_size += ((ptr_t)e - old -> r_end); e 210 gc/mark_rts.c e = (char *)(other -> r_end); e 211 gc/mark_rts.c if ((ptr_t)b <= old -> r_end && (ptr_t)e >= old -> r_start) { e 216 gc/mark_rts.c if ((ptr_t)e > old -> r_end) { e 217 gc/mark_rts.c old -> r_end = (ptr_t)e; e 218 gc/mark_rts.c GC_root_size += ((ptr_t)e - old -> r_end); e 234 gc/mark_rts.c if ((ptr_t)e <= old -> r_end) /* already there */ return; e 236 gc/mark_rts.c GC_root_size += (ptr_t)e - old -> r_end; e 237 gc/mark_rts.c old -> r_end = (ptr_t)e; e 245 gc/mark_rts.c GC_static_roots[n_root_sets].r_end = (ptr_t)e; e 251 gc/mark_rts.c GC_root_size += (ptr_t)e - (ptr_t)b; e 317 gc/mark_rts.c void GC_remove_roots(b, e) e 318 gc/mark_rts.c char * b; char * e; e 324 gc/mark_rts.c GC_remove_roots_inner(b, e); e 330 gc/mark_rts.c void GC_remove_roots_inner(b,e) e 331 gc/mark_rts.c char * b; char * e; e 335 gc/mark_rts.c if (GC_static_roots[i].r_start >= (ptr_t)b && GC_static_roots[i].r_end <= (ptr_t)e) { e 971 gc/misc.c void GC_printf(format, a, b, c, d, e, f) e 973 gc/misc.c long a, b, c, d, e, f; e 979 gc/misc.c (void) sprintf(buf, format, a, b, c, d, e, f); e 984 gc/misc.c void GC_err_printf(format, a, b, c, d, e, f) e 986 gc/misc.c long a, b, c, d, e, f; e 991 gc/misc.c (void) sprintf(buf, format, a, b, c, d, e, f); e 609 gc/tests/test.c sexpr e; e 638 gc/tests/test.c e = uncollectable_ints(1, 1); e 671 gc/tests/test.c GC_FREE((void *)e); e 673 gc/tests/test.c GC_FREE((char *)e); e 53 gc/tests/test_cpp.cc #define my_assert( e ) \ e 54 gc/tests/test_cpp.cc if (! (e)) { \ e 55 gc/tests/test_cpp.cc GC_printf1( "Assertion failure in " __FILE__ ", line %d: " #e "\n", \ e 161 gc/tests/test_cpp.cc E e; e 2629 src/class.c ScmHashEntry *e = Scm_HashTableAddRaw(data->identity_map, ptr, NULL); e 2630 src/class.c if (e->value) { e 2631 src/class.c if (Scm_WeakBoxEmptyP((ScmWeakBox*)e->value)) { e 2633 src/class.c Scm_WeakBoxSet((ScmWeakBox*)e->value, obj); e 2635 src/class.c obj = (ScmForeignPointer*)Scm_WeakBoxRef((ScmWeakBox*)e->value); e 2639 src/class.c e->value = Scm_MakeWeakBox(obj); e 97 src/error.c ScmError *e = SCM_ALLOCATE(ScmError, klass); e 98 src/error.c SCM_SET_CLASS(e, klass); e 99 src/error.c e->message = SCM_FALSE; /* would be set by initialize */ e 100 src/error.c return SCM_OBJ(e); e 165 src/error.c ScmSystemError *e = SCM_ALLOCATE(ScmSystemError, klass); e 166 src/error.c SCM_SET_CLASS(e, klass); e 167 src/error.c e->common.message = SCM_FALSE; /* set by initialize */ e 168 src/error.c e->error_number = 0; /* set by initialize */ e 169 src/error.c return SCM_OBJ(e); e 174 src/error.c ScmReadError *e = SCM_ALLOCATE(ScmReadError, klass); e 175 src/error.c SCM_SET_CLASS(e, klass); e 176 src/error.c e->common.message = SCM_FALSE; /* set by initialize */ e 177 src/error.c e->port = NULL; /* set by initialize */ e 178 src/error.c e->line = -1; /* set by initialize */ e 179 src/error.c return SCM_OBJ(e); e 184 src/error.c ScmPortError *e = SCM_ALLOCATE(ScmPortError, klass); e 185 src/error.c SCM_SET_CLASS(e, klass); e 186 src/error.c e->common.message = SCM_FALSE; /* set by initialize */ e 187 src/error.c e->port = NULL; /* set by initialize */ e 188 src/error.c return SCM_OBJ(e); e 299 src/error.c ScmCompoundCondition *e = SCM_ALLOCATE(ScmCompoundCondition, klass); e 300 src/error.c SCM_SET_CLASS(e, klass); e 301 src/error.c e->conditions = SCM_NIL; e 302 src/error.c return SCM_OBJ(e); e 382 src/error.c ScmThreadException *e = SCM_NEW(ScmThreadException); e 383 src/error.c SCM_SET_CLASS(e, klass); e 384 src/error.c e->thread = thread; e 385 src/error.c e->data = SCM_UNDEFINED; e 386 src/error.c return SCM_OBJ(e); e 391 src/error.c ScmError *e = SCM_ERROR(message_allocate(SCM_CLASS_ERROR, SCM_NIL)); e 392 src/error.c e->message = message; e 393 src/error.c return SCM_OBJ(e); e 398 src/error.c ScmSystemError *e = e 400 src/error.c e->common.message = message; e 401 src/error.c e->error_number = en; e 402 src/error.c return SCM_OBJ(e); e 407 src/error.c ScmReadError *e = e 409 src/error.c e->common.message = message; e 410 src/error.c e->port = port; e 411 src/error.c e->line = line; e 412 src/error.c return SCM_OBJ(e); e 489 src/error.c ScmObj e; e 494 src/error.c e = Scm_MakeError(SCM_MAKE_STR("Error occurred in error handler")); e 495 src/error.c Scm_VMThrowException(vm, e); e 504 src/error.c e = Scm_MakeError(Scm_GetOutputString(SCM_PORT(ostr))); e 508 src/error.c e = Scm_MakeError(SCM_MAKE_STR("Error occurred in error handler")); e 511 src/error.c Scm_VMThrowException(vm, e); e 550 src/error.c ScmObj e; e 563 src/error.c e = Scm_MakeSystemError(Scm_GetOutputString(SCM_PORT(ostr)), en); e 567 src/error.c e = Scm_MakeError(SCM_MAKE_STR("Error occurred in error handler")); e 570 src/error.c Scm_VMThrowException(vm, e); e 585 src/error.c ScmObj e, smsg, pe; e 620 src/error.c e = Scm_MakeCompoundCondition(SCM_LIST2(Scm_MakeSystemError(smsg, en), e 623 src/error.c e = pe; e 628 src/error.c e = Scm_MakeError(SCM_MAKE_STR("Error occurred in error handler")); e 631 src/error.c Scm_VMThrowException(vm, e); e 806 src/error.c static void Scm_PrintDefaultErrorHeading(ScmObj e, ScmPort *out) e 811 src/error.c if (SCM_CONDITIONP(e)) { e 812 src/error.c heading = Scm_GetString(SCM_STRING(Scm_ConditionTypeName(e))); e 818 src/error.c msg = Scm_ConditionMessage(e); e 825 src/error.c Scm_Printf(out, "*** ERROR: unhandled exeption: %S\n", e); e 829 src/error.c static void report_error_inner(ScmVM *vm, ScmObj e) e 834 src/error.c Scm_PrintDefaultErrorHeading(e, err); e 843 src/error.c void Scm_ReportError(ScmObj e) e 864 src/error.c Scm_Apply(vm->defaultEscapeHandler, SCM_LIST1(e)); e 866 src/error.c report_error_inner(vm, e); e 4553 src/extlib.c ScmHashEntry *e = Scm_HashTableGet(hash, key); e 4554 src/extlib.c if (!e || e->value == SCM_UNBOUND) { e 4558 src/extlib.c SCM_RETURN(e->value); e 4640 src/extlib.c ScmHashEntry *e = (ScmHashEntry*)data[0]; e 4641 src/extlib.c e->value = result; e 4674 src/extlib.c ScmHashEntry *e; e 4678 src/extlib.c e = Scm_HashTableGet(hash, key); e 4679 src/extlib.c if (!e) Scm_Error("hash table doesn't have an entry for key %S", key); e 4681 src/extlib.c e = Scm_HashTableAdd(hash, key, defval); e 4683 src/extlib.c data[0] = (void*)e; e 4685 src/extlib.c SCM_RESULT = Scm_VMApply1(proc, e->value); e 4711 src/extlib.c ScmHashEntry *e = Scm_HashTableAdd(hash, key, SCM_UNBOUND); e 4712 src/extlib.c if (SCM_UNBOUNDP(e->value)) e->value = SCM_LIST1(value); e 4713 src/extlib.c else e->value = Scm_Cons(value, e->value); e 4745 src/extlib.c ScmHashEntry *e = Scm_HashTableGet(hash, key); ScmObj r; e 4746 src/extlib.c if (e == NULL) { e 4751 src/extlib.c } else if (!SCM_PAIRP(e->value)) { e 4753 src/extlib.c Scm_Error("hash table value for key %S is not a pair: %S", key, e->value); e 4757 src/extlib.c r = SCM_CAR(e->value); e->value = SCM_CDR(e->value); e 4769 src/extlib.c ScmHashEntry *e = Scm_HashIterNext(iter); e 4771 src/extlib.c if (e == NULL) SCM_RETURN(Scm_Values2(eofval, eofval)); e 4772 src/extlib.c else SCM_RETURN(Scm_Values2(e->key, e->value)); e 807 src/gauche.h #define SCM_LIST5(a,b,c,d,e) Scm_Cons(a, SCM_LIST4(b, c, d, e)) e 1691 src/gauche.h typedef int (*ScmHashCmpProc)(ScmHashTable *ht, void *key, ScmHashEntry *e); e 2491 src/gauche.h SCM_EXTERN void Scm_ReportError(ScmObj e); e 279 src/hash.c ScmHashEntry *e = SCM_NEW(ScmHashEntry); e 280 src/hash.c e->key = key; e 281 src/hash.c e->value = value; e 282 src/hash.c e->next = table->buckets[index]; e 283 src/hash.c table->buckets[index] = e; e 307 src/hash.c return e; e 328 src/hash.c ScmHashEntry *e, *p; e 333 src/hash.c for (e = table->buckets[index], p = NULL; e; p = e, e = e->next) { e 334 src/hash.c if (e->key == key) { e 335 src/hash.c if (mode == HASH_FIND || mode == HASH_ADD) return e; e 336 src/hash.c if (mode == HASH_DELETE) return delete_entry(table, e, p, index); e 338 src/hash.c e->value = value; e 339 src/hash.c return e; e 363 src/hash.c static int eqv_cmp(ScmHashTable *table, void *key, ScmHashEntry *e) e 365 src/hash.c return Scm_EqvP(SCM_OBJ(key), e->key); e 373 src/hash.c static int equal_cmp(ScmHashTable *table, void *key, ScmHashEntry *e) e 375 src/hash.c return Scm_EqualP(SCM_OBJ(key), SCM_OBJ(e->key)); e 389 src/hash.c ScmHashEntry *e, *p; e 402 src/hash.c for (e = table->buckets[index], p = NULL; e; p = e, e = e->next) { e 403 src/hash.c ScmObj ee = SCM_OBJ(e->key); e 409 src/hash.c if (mode == HASH_FIND || mode == HASH_ADD) return e; e 410 src/hash.c if (mode == HASH_DELETE) return delete_entry(table, e, p, index); e 412 src/hash.c e->value = value; e 413 src/hash.c return e; e 454 src/hash.c ScmHashEntry *e, *p; e 459 src/hash.c for (e = table->buckets[index], p = NULL; e; p = e, e = e->next) { e 460 src/hash.c if (memcmp(k, e->key, keysize*sizeof(ScmWord)) == 0) { e 461 src/hash.c if (mode == HASH_FIND || mode == HASH_ADD) return e; e 462 src/hash.c if (mode == HASH_DELETE) return delete_entry(table, e, p, index); e 464 src/hash.c e->value = v; e 465 src/hash.c return e; e 483 src/hash.c ScmHashEntry *e, *p; e 488 src/hash.c for (e = table->buckets[index], p = NULL; e; p = e, e = e->next) { e 489 src/hash.c if (table->cmpfn(table, key, e)) { e 490 src/hash.c if (mode == HASH_FIND || mode == HASH_ADD) return e; e 491 src/hash.c if (mode == HASH_DELETE) return delete_entry(table, e, p, index); e 493 src/hash.c e->value = value; e 494 src/hash.c return e; e 646 src/hash.c ScmHashEntry *e = iter->currentEntry; e 647 src/hash.c if (e != NULL) { e 648 src/hash.c if (e->next) iter->currentEntry = e->next; e 655 src/hash.c return e; e 661 src/hash.c return e; e 719 src/hash.c ScmHashEntry *e; e 723 src/hash.c while ((e = Scm_HashIterNext(&iter)) != NULL) { e 724 src/hash.c SCM_APPEND1(h, t, e->key); e 732 src/hash.c ScmHashEntry *e; e 736 src/hash.c while ((e = Scm_HashIterNext(&iter)) != NULL) { e 737 src/hash.c SCM_APPEND1(h, t, e->value); e 756 src/hash.c ScmHashEntry *e = table->buckets[i]; e 757 src/hash.c for (; e; e = e->next) { e 758 src/hash.c *vp = Scm_Acons(e->key, e->value, *vp); e 795 src/hash.c while ((e = Scm_HashIterNext(&iter)) != NULL) { e 796 src/hash.c Scm_Printf(port, " %S %S", e->key, e->value); e 65 src/keyword.c ScmHashEntry *e; e 69 src/keyword.c e = Scm_HashTableGet(keywords.table, SCM_OBJ(name)); e 70 src/keyword.c if (e) r = e->value; e 560 src/list.c ScmObj e = SCM_CAR(cp); e 561 src/list.c if (SCM_PAIRP(e)) { e 562 src/list.c if (Scm_EqualM(elt, SCM_CAR(e), cmpmode)) { e 456 src/load.c const char *e = getenv(envname); e 463 src/load.c if (e == NULL) { e 469 src/load.c return Scm_StringSplitByChar(SCM_STRING(SCM_MAKE_STR_COPYING(e)), e 785 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r, e; e 787 src/macro.c e = SCM_CAR(template); e 788 src/macro.c if (SCM_SYNTAX_PATTERN_P(e)) { e 789 src/macro.c r = realize_template_rec(e, mvec, level, indices, idlist, exlev); e 793 src/macro.c r = realize_template_rec(e, mvec, level, indices, idlist, exlev); e 134 src/module.c ScmHashEntry *e; e 136 src/module.c e = Scm_HashTableGet(modules.table, SCM_OBJ(name)); e 138 src/module.c if (e) return SCM_MODULE(e->value); e 145 src/module.c ScmHashEntry *e; e 147 src/module.c e = Scm_HashTableAdd(modules.table, SCM_OBJ(name), SCM_FALSE); e 148 src/module.c if (e->value == SCM_FALSE) { e 149 src/module.c e->value = make_module(name); e 155 src/module.c return SCM_MODULE(e->value); e 188 src/module.c ScmHashEntry *e; e 205 src/module.c e = Scm_HashTableGet(m->table, SCM_OBJ(symbol)); e 206 src/module.c if (e) { e 207 src/module.c gloc = SCM_GLOC(e->value); e 230 src/module.c e = Scm_HashTableGet(m->table, SCM_OBJ(symbol)); e 232 src/module.c if (e && (g = SCM_GLOC(e->value))->exported e 251 src/module.c e = Scm_HashTableGet(m->table, SCM_OBJ(symbol)); e 252 src/module.c if (e) { gloc = SCM_GLOC(e->value); goto found; } e 274 src/module.c ScmHashEntry *e; e 278 src/module.c e = Scm_HashTableGet(module->table, SCM_OBJ(symbol)); e 279 src/module.c if (e) { e 280 src/module.c g = SCM_GLOC(e->value); e 307 src/module.c ScmHashEntry *e; e 312 src/module.c e = Scm_HashTableGet(module->table, SCM_OBJ(symbol)); e 314 src/module.c if (e) { e 315 src/module.c g = SCM_GLOC(e->value); e 368 src/module.c ScmHashEntry *e; e 388 src/module.c e = Scm_HashTableAdd(module->table, SCM_OBJ(s), SCM_UNBOUND); e 389 src/module.c if (SCM_GLOCP(e->value)) { e 390 src/module.c g = SCM_GLOC(e->value); e 398 src/module.c e->value = SCM_OBJ(g); e 411 src/module.c ScmHashEntry *e; e 421 src/module.c while ((e = Scm_HashIterNext(&iter)) != NULL) { e 422 src/module.c ScmGloc *g = SCM_GLOC(e->value); e 495 src/module.c ScmHashEntry *e; e 499 src/module.c while ((e = Scm_HashIterNext(&iter)) != NULL) { e 500 src/module.c SCM_APPEND1(h, t, e->value); e 527 src/module.c char *p = buf, *e = buf + SCM_STRING_BODY_SIZE(b); e 529 src/module.c while (p < e) { e 534 src/module.c *e = '\0'; e 543 src/module.c char *p = buf, *e = buf + SCM_STRING_BODY_SIZE(b); e 545 src/module.c while (p < e) { e 551 src/module.c *e = '\0'; e 1868 src/number.c static inline ScmObj iexpt10(int e) e 1870 src/number.c SCM_ASSERT(e < IEXPT10_TABLESIZ); e 1871 src/number.c return iexpt10_n[e]; e 2312 src/number.c static double algorithmR(ScmObj f, int e, double z) e 2320 src/number.c if (e >= 0) { e 2321 src/number.c x = Scm_Multiply2(f, iexpt10(e)); e 2325 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k); e 2328 src/number.c if (e >= 0) { e 2329 src/number.c x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k); e 2333 src/number.c y = Scm_Multiply2(m, iexpt10(-e)); e 2389 src/number.c if (e >= 0) { e 2392 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k); e 2401 src/number.c if (e >= 0) { e 2402 src/number.c if (k != kprev) x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k); e 2406 src/number.c y = Scm_Multiply2(m, iexpt10(-e)); e 149 src/prof.c ScmHashEntry *e = Scm_HashTableGet(prof->statHash, e 151 src/prof.c if (e == NULL) { e 156 src/prof.c SCM_ASSERT(SCM_PAIRP(e->value)); e 157 src/prof.c cnt = SCM_INT_VALUE(SCM_CDR(e->value)) + 1; e 158 src/prof.c SCM_SET_CDR(e->value, SCM_MAKE_INT(cnt)); e 186 src/prof.c ScmHashEntry *e; e 197 src/prof.c e = Scm_HashTableAdd(vm->prof->statHash, e 200 src/prof.c if (SCM_FALSEP(e->value)) { e 201 src/prof.c e->value = Scm_Cons(SCM_MAKE_INT(0), SCM_MAKE_INT(0)); e 204 src/prof.c SCM_ASSERT(SCM_PAIRP(e->value)); e 205 src/prof.c cnt = SCM_INT_VALUE(SCM_CAR(e->value)) + 1; e 206 src/prof.c SCM_SET_CAR(e->value, SCM_MAKE_INT(cnt)); e 984 src/read.c ScmHashEntry *e = NULL; e 1005 src/read.c || (e = Scm_HashTableGet(ctx->table, Scm_MakeInteger(refnum))) == NULL) { e 1008 src/read.c if (SCM_READ_REFERENCE_P(e->value) e 1009 src/read.c && SCM_READ_REFERENCE_REALIZED(e->value)) { e 1010 src/read.c return SCM_READ_REFERENCE(e->value)->value; e 1012 src/read.c return e->value; e 1076 src/read.c ScmHashEntry *e; e 1080 src/read.c e = Scm_HashTableGet(readCtorData.table, key); e 1083 src/read.c if (e == NULL) Scm_ReadError(port, "unknown #,-key: %S", key); e 1084 src/read.c SCM_ASSERT(SCM_PAIRP(e->value)); e 1085 src/read.c r = Scm_Apply(SCM_CAR(e->value), args); e 1086 src/read.c if (has_ref) ref_push(ctx, r, SCM_CDR(e->value)); e 835 src/regexp.c ScmObj sp, sp2, e = SCM_UNBOUND, h, t; e 837 src/regexp.c e = rc2_optimize(SCM_CAR(sp), rest); e 838 src/regexp.c if (!SCM_EQ(e, SCM_CAR(sp))) break; e 844 src/regexp.c if (SCM_EQ(sp, sp2)) { SCM_APPEND1(h, t, e); break; } e 727 src/string.c const char *s, *e; e 729 src/string.c e = forward_pos(s, end - start); e 730 src/string.c sizez = sizex + sizey - (e - s); e 736 src/string.c memcpy(p + (s - SCM_STRING_BODY_START(xb)) + sizey, e, e 737 src/string.c SCM_STRING_BODY_START(xb) + sizex - e); e 814 src/string.c const char *s, *e; e 817 src/string.c e = forward_pos(s, end - start); e 818 src/string.c return SCM_OBJ(make_str(end - start, e - s, s, 0)); e 864 src/string.c const char *s = SCM_STRING_BODY_START(strb), *p = s, *e = s + size; e 872 src/string.c while (p < e) { e 59 src/symbol.c ScmHashEntry *e = Scm_HashTableGet(obtable, SCM_OBJ(name)); e 60 src/symbol.c if (e) return e->value; e 1392 src/system.c ScmSysFdset *e = select_checkfd(efds); e 1395 src/system.c (e? fdset_copy(e) : NULL), e 1403 src/system.c ScmSysFdset *e = select_checkfd(efds); e 1404 src/system.c return select_int(r, w, e, timeout); e 82 src/vector.c ScmObj e; e 94 src/vector.c e = Scm_ListTail(l, start, SCM_UNBOUND); e 95 src/vector.c for (i=0; i<end-start; i++, e=SCM_CDR(e)) { e 96 src/vector.c if (!SCM_PAIRP(e)) { e 99 src/vector.c v->elements[i] = SCM_CAR(e); e 1136 src/vm.c ScmEnvFrame *e = ENV; e 1139 src/vm.c VM_ASSERT(e != NULL); e 1140 src/vm.c e = e->up; e 1142 src/vm.c VM_ASSERT(e != NULL); e 1143 src/vm.c VM_ASSERT(e->size > off); e 1144 src/vm.c VAL0 = ENV_DATA(e, off); e 1168 src/vm.c ScmEnvFrame *e = ENV; e 1171 src/vm.c VM_ASSERT(e != NULL); e 1172 src/vm.c e = e->up; e 1174 src/vm.c VM_ASSERT(e != NULL); e 1175 src/vm.c VM_ASSERT(e->size > off); e 1176 src/vm.c PUSH_ARG(ENV_DATA(e, off)); e 1277 src/vm.c ScmEnvFrame *e; e 1285 src/vm.c e = get_env(vm); e 1286 src/vm.c z = (ScmObj*)e - nlocals; e 1289 src/vm.c *z++ = clo = Scm_MakeClosure(SCM_CAR(cp), e); e 1345 src/vm.c ScmEnvFrame *e = ENV; e 1348 src/vm.c VM_ASSERT(e != NULL); e 1349 src/vm.c e = e->up; e 1351 src/vm.c VM_ASSERT(e != NULL); e 1352 src/vm.c VM_ASSERT(e->size > off); e 1353 src/vm.c ENV_DATA(e, off) = VAL0; e 2478 src/vm.c #define FORWARDED_ENV_P(e) ((e)&&((e)->size == -1)) e 2479 src/vm.c #define FORWARDED_ENV(e) ((e)->up) e 2506 src/vm.c ScmEnvFrame *e = env_begin, *prev = NULL, *next, *head = NULL, *saved; e 2508 src/vm.c if (!IN_STACK_P((ScmObj*)e)) return e; e 2511 src/vm.c int esize = e->size, i; e 2514 src/vm.c if (e->size < 0) { e 2516 src/vm.c if (prev) prev->up = FORWARDED_ENV(e); e 2521 src/vm.c for (i=ENV_SIZE(esize), s = (ScmObj*)e - esize; i>0; i--) { e 2527 src/vm.c next = e->up; e 2528 src/vm.c e->up = prev = saved; /* forwarding pointer */ e 2529 src/vm.c e->size = -1; /* indicates forwarded */ e 2530 src/vm.c e->info = SCM_FALSE; e 2531 src/vm.c e = next; e 2532 src/vm.c } while (IN_STACK_P((ScmObj*)e)); e 2651 src/vm.c ScmEnvFrame *e; e 2654 src/vm.c e = save_env(vm, vm->env); e 2655 src/vm.c if (e != vm->env) { e 2656 src/vm.c vm->env = e; e 2663 src/vm.c return e; e 2785 src/vm.c ScmObj Scm_VMEval(ScmObj expr, ScmObj e) e 2789 src/vm.c int restore_module = SCM_MODULEP(e); e 2791 src/vm.c v = Scm_Compile(expr, e); e 2801 src/vm.c ScmObj before = Scm_MakeSubr(eval_restore_env, SCM_MODULE(e), e 2930 src/vm.c ScmObj Scm_Eval(ScmObj expr, ScmObj e) e 2933 src/vm.c v = Scm_Compile(expr, e); e 2941 src/vm.c ScmObj Scm_EvalCString(const char *expr, ScmObj e) e 2943 src/vm.c return Scm_Eval(Scm_ReadFromCString(expr), e); e 3182 src/vm.c void Scm_VMDefaultExceptionHandler(ScmObj e) e 3206 src/vm.c result = Scm_Apply(ep->ehandler, SCM_LIST1(e)); e 3237 src/vm.c Scm_ReportError(e); e 3249 src/vm.c vm->escapeData[1] = e; e 3861 src/vm.c struct GC_ms_entry *e = mark_sp; e 3874 src/vm.c e = GC_mark_and_push((GC_PTR)z, e, mark_sp_limit, (GC_PTR)addr); e 3877 src/vm.c return e; e 341 src/write.c ScmHashEntry *e; e 354 src/write.c e = Scm_HashTableGet(ht, obj); e 355 src/write.c if (e) { e->value = SCM_TRUE; return; } e 364 src/write.c e = Scm_HashTableGet(ht, obj); e 365 src/write.c if (e) { e->value = SCM_TRUE; return; } e 372 src/write.c e = Scm_HashTableGet(ht, obj); e 373 src/write.c if (e) { e->value = SCM_TRUE; return; } e 385 src/write.c e = Scm_HashTableGet(ht, obj); e 386 src/write.c if (e) { e->value = SCM_TRUE; return; } e 398 src/write.c ScmHashEntry *e; e 456 src/write.c e = Scm_HashTableGet(ht, obj); e 457 src/write.c if (e && e->value != SCM_FALSE) { e 458 src/write.c if (SCM_INTP(e->value)) { e 460 src/write.c snprintf(numbuf, 50, "#%ld#", SCM_INT_VALUE(e->value)); e 467 src/write.c e->value = SCM_MAKE_INT(count); e 511 src/write.c e = Scm_HashTableGet(ht, obj); /* check for shared cdr */ e 512 src/write.c if (e && e->value != SCM_FALSE) { e 652 src/write.c const char *s = Scm_GetStringContent(tmpstr, NULL, NULL, NULL), *e; e 654 src/write.c e = Scm_StringPosition(tmpstr, maxcol-4); e 655 src/write.c Scm_PutzUnsafe(s, e-s, out); e 658 src/write.c e = Scm_StringPosition(tmpstr, maxcol); e 659 src/write.c Scm_PutzUnsafe(s, e-s, out);