h 208 ext/auxsys/auxsyslib.c ScmObj h = SCM_NIL, t = SCM_NIL; h 216 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, n); h 218 ext/auxsys/auxsyslib.c SCM_RETURN(h); h 507 ext/auxsys/auxsyslib.c ScmObj h = SCM_NIL, t; h 510 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(info.tms_utime)); h 511 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(info.tms_stime)); h 512 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(info.tms_cutime)); h 513 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(info.tms_cstime)); h 515 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(sysconf(_SC_CLK_TCK))); h 518 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(CLK_TCK)); /* older name */ h 520 ext/auxsys/auxsyslib.c SCM_APPEND1(h, t, Scm_MakeInteger(1)); /* or maybe 100, we don't know ...*/ h 523 ext/auxsys/auxsyslib.c SCM_RETURN(h); h 801 ext/auxsys/auxsyslib.c ScmObj h = SCM_NIL, t = SCM_NIL; h 803 ext/auxsys/auxsyslib.c #define APPCONS(a, b) SCM_APPEND1(h, t, Scm_Cons(a, b)) h 824 ext/auxsys/auxsyslib.c return h; h 68 ext/net/netdb.c ScmObj h = SCM_NIL, t = SCM_NIL; h 74 ext/net/netdb.c SCM_APPEND1(h, t, SCM_MAKE_STR_COPYING(*p)); h 76 ext/net/netdb.c entry->aliases = h; h 77 ext/net/netdb.c h = t = SCM_NIL; h 87 ext/net/netdb.c SCM_APPEND1(h, t, SCM_MAKE_STR_COPYING(buf)); h 93 ext/net/netdb.c entry->addresses = h; h 229 ext/net/netdb.c ScmObj h = SCM_NIL, t = SCM_NIL; h 235 ext/net/netdb.c SCM_APPEND1(h, t, SCM_MAKE_STR_COPYING(*p)); h 237 ext/net/netdb.c entry->aliases = h; h 353 ext/net/netdb.c ScmObj h = SCM_NIL, t = SCM_NIL; h 359 ext/net/netdb.c SCM_APPEND1(h, t, SCM_MAKE_STR_COPYING(*p)); h 361 ext/net/netdb.c entry->aliases = h; h 515 ext/net/netdb.c ScmObj h = SCM_NIL, t = SCM_NIL; h 523 ext/net/netdb.c SCM_APPEND1(h, t, SCM_OBJ(make_addrinfo(res))); h 526 ext/net/netdb.c return h; h 105 gc/allchblk.c struct hblk * h; h 112 gc/allchblk.c h = GC_hblkfreelist[i]; h 114 gc/allchblk.c if (0 != h) GC_printf1("Free list %ld:\n", h 117 gc/allchblk.c if (0 != h) GC_printf2("Free list %ld (Total size %ld):\n", h 121 gc/allchblk.c while (h != 0) { h 122 gc/allchblk.c hhdr = HDR(h); h 124 gc/allchblk.c GC_printf2("\t0x%lx size %lu ", (unsigned long)h, (unsigned long)sz); h 126 gc/allchblk.c if (GC_is_black_listed(h, HBLKSIZE) != 0) { h 128 gc/allchblk.c } else if (GC_is_black_listed(h, hhdr -> hb_sz) != 0) { h 133 gc/allchblk.c h = hhdr -> hb_next; h 150 gc/allchblk.c struct hblk * h; h 155 gc/allchblk.c h = GC_hblkfreelist[i]; h 156 gc/allchblk.c while (h != 0) { h 157 gc/allchblk.c hhdr = HDR(h); h 159 gc/allchblk.c h = hhdr -> hb_next; h 304 gc/allchblk.c struct hblk * p = h - 1; h 319 gc/allchblk.c p = GC_prev_block(h - 1); h 322 gc/allchblk.c if (HBLK_IS_FREE(phdr) && (ptr_t)p + phdr -> hb_sz == (ptr_t)h) { h 341 gc/allchblk.c struct hblk *next = (struct hblk *)((word)h + hhdr -> hb_sz); h 343 gc/allchblk.c struct hblk *prev = GC_free_block_ending_at(h); h 349 gc/allchblk.c GC_hblkfreelist[index] = h; h 356 gc/allchblk.c second_hdr -> hb_prev = h; h 367 gc/allchblk.c struct hblk * h; h 375 gc/allchblk.c for (h = GC_hblkfreelist[i]; 0 != h; h = hhdr -> hb_next) { h 376 gc/allchblk.c hhdr = HDR(h); h 383 gc/allchblk.c GC_unmap((ptr_t)h, sz); h 395 gc/allchblk.c struct hblk * h, *next; h 401 gc/allchblk.c h = GC_hblkfreelist[i]; h 402 gc/allchblk.c while (h != 0) { h 403 gc/allchblk.c GET_HDR(h, hhdr); h 405 gc/allchblk.c next = (struct hblk *)((word)h + size); h 416 gc/allchblk.c GC_unmap((ptr_t)h, size); h 424 gc/allchblk.c GC_remap((ptr_t)h, size); h 430 gc/allchblk.c GC_unmap_gap((ptr_t)h, size, (ptr_t)next, nexthdr -> hb_sz); h 437 gc/allchblk.c GC_add_to_fl(h, hhdr); h 439 gc/allchblk.c h = GC_hblkfreelist[i]; h 441 gc/allchblk.c h = hhdr -> hb_next; h 470 gc/allchblk.c if (total_size == bytes) return h; h 471 gc/allchblk.c rest = (struct hblk *)((word)h + bytes); h 485 gc/allchblk.c return h; h 508 gc/allchblk.c word h_size = (word)n - (word)h; h 535 gc/allchblk.c GC_add_to_fl(h, hhdr); h 700 gc/allchblk.c struct hblk * h; h 706 gc/allchblk.c for (h = hbp; h < limit; h++) { h 707 gc/allchblk.c if (h == hbp || 0 != (hhdr = GC_install_header(h))) { h 713 gc/allchblk.c BZERO(h, HBLKSIZE); h 588 gc/alloc.c struct hblk * h, * last_h = 0; h 593 gc/alloc.c h = HBLKPTR(p); h 594 gc/alloc.c if (h != last_h) { h 595 gc/alloc.c last_h = h; h 596 gc/alloc.c hhdr = HDR(h); h 598 gc/alloc.c word_no = (((word *)p) - ((word *)h)); h 613 gc/alloc.c struct hblk * h, * last_h = 0; h 618 gc/alloc.c h = HBLKPTR(p); h 619 gc/alloc.c if (h != last_h) { h 620 gc/alloc.c last_h = h; h 621 gc/alloc.c hhdr = HDR(h); h 623 gc/alloc.c word_no = (((word *)p) - ((word *)h)); h 852 gc/alloc.c struct hblk *h; h 857 gc/alloc.c for (h = (struct hblk *)start; h < (struct hblk *)(start + len); h++) { h 858 gc/alloc.c if (GC_is_black_listed(h, HBLKSIZE)) nbl++; h 261 gc/backgraph.c hdr * hhdr = HDR(h); h 268 gc/backgraph.c f((ptr_t)(h -> hb_body + i), sz, descr); h 237 gc/blacklst.c register int index = PHT_HASH((word)h); h 244 gc/blacklst.c return(h+1); h 256 gc/blacklst.c return(h+i+1); h 261 gc/blacklst.c index = PHT_HASH((word)(h+i)); h 273 gc/blacklst.c register struct hblk * h; h 276 gc/blacklst.c for (h = start; h < endp1; h++) { h 277 gc/blacklst.c register int index = PHT_HASH((word)h); h 40 gc/checksums.c register word *p = (word *)h; h 41 gc/checksums.c register word *lim = (word *)(h+1); h 56 gc/checksums.c register hdr * hhdr = HDR(h); h 62 gc/checksums.c if (HBLKPTR(p) == h) return(TRUE); h 78 gc/checksums.c register hdr * hhdr = HDR(h); h 81 gc/checksums.c if (pe -> block != 0 && pe -> block != h + OFFSET) ABORT("goofed"); h 83 gc/checksums.c pe -> new_sum = GC_checksum(h); h 85 gc/checksums.c if (pe -> new_sum != 0x80000000 && !GC_page_was_ever_dirty(h)) { h 87 gc/checksums.c (unsigned long)h); h 90 gc/checksums.c if (GC_page_was_dirty(h)) { h 95 gc/checksums.c b = h; h 103 gc/checksums.c if (!GC_page_was_dirty(h) || !GC_page_was_ever_dirty(h)) { h 109 gc/checksums.c && !GC_page_was_changed(h) h 110 gc/checksums.c && !GC_on_free_list(h)) { h 118 gc/checksums.c pe -> block = h + OFFSET; h 127 gc/checksums.c register hdr * hhdr = HDR(h); h 154 gc/checksums.c register struct hblk *h; h 167 gc/checksums.c for (h = (struct hblk *)start; h 168 gc/checksums.c h < (struct hblk *)(start + GC_heap_sects[i].hs_bytes); h 169 gc/checksums.c h++) { h 170 gc/checksums.c GC_update_check_page(h, index); h 41 gc/headers.c GET_HDR(h, result); h 44 gc/headers.c return(HDR_INNER(h)); h 209 gc/headers.c if (!get_index((word) h)) return(0); h 211 gc/headers.c SET_HDR(h, result); h 226 gc/headers.c for (hbp = h; (char *)hbp < (char *)h + sz; hbp += BOTTOM_SZ) { h 229 gc/headers.c if (!get_index((word)h + sz - 1)) return(FALSE); h 230 gc/headers.c for (hbp = h + 1; (char *)hbp < (char *)h + sz; hbp += 1) { h 231 gc/headers.c i = HBLK_PTR_DIFF(hbp, h); h 243 gc/headers.c GET_HDR_ADDR(h, ha); h 255 gc/headers.c for (hbp = h+1; (char *)hbp < (char *)h + sz; hbp += 1) { h 295 gc/headers.c register word j = ((word)h >> LOG_HBLKSIZE) & (BOTTOM_SZ-1); h 297 gc/headers.c GET_BI(h, bi); h 299 gc/headers.c register word hi = (word)h >> (LOG_BOTTOM_SZ + LOG_HBLKSIZE); h 332 gc/headers.c register signed_word j = ((word)h >> LOG_HBLKSIZE) & (BOTTOM_SZ-1); h 334 gc/headers.c GET_BI(h, bi); h 336 gc/headers.c register word hi = (word)h >> (LOG_BOTTOM_SZ + LOG_HBLKSIZE); h 98 gc/include/gc_gcj.h --> gc_local_alloc.h should be included after this. Otherwise h 101 gc/include/private/gc_hdrs.h # define HCE(h) hdr_cache + (((word)(h) >> LOG_HBLKSIZE) & (HDR_CACHE_SIZE-1)) h 104 gc/include/private/gc_hdrs.h ((word)(h) >> LOG_HBLKSIZE)) h 232 gc/include/private/gc_hdrs.h # define FORWARDED_ADDR(h, hhdr) ((struct hblk *)(h) - (unsigned long)(hhdr)) h 1411 gc/include/private/gc_priv.h # define GC_push_next_marked_dirty(h) GC_push_next_marked(h) h 215 gc/include/weakpointer.h void _CleanUp_Queue_Set( void* h, void* t ); h 216 gc/include/weakpointer.h int _CleanUp_Queue_Call( void* h ); h 45 gc/malloc.c struct hblk * h; h 53 gc/malloc.c h = GC_allochblk(lw, k, flags); h 55 gc/malloc.c if (0 == h) { h 57 gc/malloc.c h = GC_allochblk(lw, k, flags); h 60 gc/malloc.c while (0 == h && GC_collect_or_expand(n_blocks, (flags != 0))) { h 61 gc/malloc.c h = GC_allochblk(lw, k, flags); h 63 gc/malloc.c if (h == 0) { h 72 gc/malloc.c result = (ptr_t) (h -> hb_body); h 393 gc/malloc.c register struct hblk *h; h 403 gc/malloc.c h = HBLKPTR(p); h 404 gc/malloc.c hhdr = HDR(h); h 445 gc/malloc.c GC_freehblk(h); h 457 gc/malloc.c register struct hblk *h; h 465 gc/malloc.c h = HBLKPTR(p); h 466 gc/malloc.c hhdr = HDR(h); h 482 gc/malloc.c GC_freehblk(h); h 79 gc/mallocx.c register struct hblk * h; h 86 gc/mallocx.c h = HBLKPTR(p); h 87 gc/mallocx.c hhdr = HDR(h); h 483 gc/mallocx.c struct hblk *h = GC_allochblk(lw, k, 0); h 484 gc/mallocx.c if (h != 0) { h 485 gc/mallocx.c if (IS_UNCOLLECTABLE(k)) GC_set_hdr_marks(HDR(h)); h 496 gc/mallocx.c op = GC_build_fl(h, lw, ok -> ok_init, 0); h 580 gc/mallocx.c register struct hblk * h; h 582 gc/mallocx.c h = HBLKPTR(op); h 583 gc/mallocx.c lw = HDR(h) -> hb_sz; h 680 gc/mallocx.c register struct hblk * h; h 682 gc/mallocx.c h = HBLKPTR(op); h 683 gc/mallocx.c lw = HDR(h) -> hb_sz; h 172 gc/mark.c register hdr * hhdr = HDR(h); h 185 gc/mark.c register struct hblk *h = HBLKPTR(p); h 186 gc/mark.c register hdr * hhdr = HDR(h); h 187 gc/mark.c register int word_no = (word *)p - (word *)h; h 195 gc/mark.c register struct hblk *h = HBLKPTR(p); h 196 gc/mark.c register hdr * hhdr = HDR(h); h 197 gc/mark.c register int word_no = (word *)p - (word *)h; h 205 gc/mark.c register struct hblk *h = HBLKPTR(p); h 206 gc/mark.c register hdr * hhdr = HDR(h); h 207 gc/mark.c register int word_no = (word *)p - (word *)h; h 1232 gc/mark.c register struct hblk * h; h 1238 gc/mark.c h = HBLKPTR(bottom + HBLKSIZE); h 1239 gc/mark.c if (top <= (ptr_t) h) { h 1240 gc/mark.c if ((*dirty_fn)(h-1)) { h 1245 gc/mark.c if ((*dirty_fn)(h-1)) { h 1246 gc/mark.c (*push_fn)(bottom, (ptr_t)h); h 1248 gc/mark.c while ((ptr_t)(h+1) <= top) { h 1249 gc/mark.c if ((*dirty_fn)(h)) { h 1253 gc/mark.c (*push_fn)((ptr_t)h, top); h 1256 gc/mark.c (*push_fn)((ptr_t)h, (ptr_t)(h+1)); h 1259 gc/mark.c h++; h 1261 gc/mark.c if ((ptr_t)h != top) { h 1262 gc/mark.c if ((*dirty_fn)(h)) { h 1263 gc/mark.c (*push_fn)((ptr_t)h, top); h 1547 gc/mark.c p = (word *)(h->hb_body); h 1548 gc/mark.c plim = (word *)(((word)h) + HBLKSIZE); h 1595 gc/mark.c p = (word *)(h->hb_body); h 1596 gc/mark.c plim = (word *)(((word)h) + HBLKSIZE); h 1644 gc/mark.c p = (word *)(h->hb_body); h 1645 gc/mark.c plim = (word *)(((word)h) + HBLKSIZE); h 1697 gc/mark.c lim = (word *)h; h 1699 gc/mark.c lim = (word *)(h + 1) - sz; h 1705 gc/mark.c GC_push_marked1(h, hhdr); h 1711 gc/mark.c GC_push_marked2(h, hhdr); h 1714 gc/mark.c GC_push_marked4(h, hhdr); h 1719 gc/mark.c for (p = (word *)h, word_no = 0; p <= lim; p += sz, word_no += sz) { h 1743 gc/mark.c return(GC_page_was_dirty(h)); h 1745 gc/mark.c register ptr_t p = (ptr_t)h; h 1747 gc/mark.c while (p < (ptr_t)h + sz) { h 1762 gc/mark.c h = GC_next_used_block(h); h 1763 gc/mark.c if (h == 0) return(0); h 1764 gc/mark.c hhdr = HDR(h); h 1765 gc/mark.c GC_push_marked(h, hhdr); h 1766 gc/mark.c return(h + OBJ_SZ_TO_BLOCKS(hhdr -> hb_sz)); h 1778 gc/mark.c h = GC_next_used_block(h); h 1779 gc/mark.c if (h == 0) return(0); h 1780 gc/mark.c hhdr = HDR(h); h 1783 gc/mark.c if (GC_page_was_changed(h) && GC_block_was_dirty(h, hhdr)) { h 1787 gc/mark.c if (GC_block_was_dirty(h, hhdr)) break; h 1790 gc/mark.c if (GC_block_was_dirty(h, hhdr)) break; h 1792 gc/mark.c h += OBJ_SZ_TO_BLOCKS(hhdr -> hb_sz); h 1794 gc/mark.c GC_push_marked(h, hhdr); h 1795 gc/mark.c return(h + OBJ_SZ_TO_BLOCKS(hhdr -> hb_sz)); h 1804 gc/mark.c register hdr * hhdr = HDR(h); h 1807 gc/mark.c h = GC_next_used_block(h); h 1808 gc/mark.c if (h == 0) return(0); h 1809 gc/mark.c hhdr = HDR(h); h 1811 gc/mark.c h += OBJ_SZ_TO_BLOCKS(hhdr -> hb_sz); h 1813 gc/mark.c GC_push_marked(h, hhdr); h 1814 gc/mark.c return(h + OBJ_SZ_TO_BLOCKS(hhdr -> hb_sz)); h 122 gc/mark_rts.c register int h = rt_hash(b); h 123 gc/mark_rts.c register struct roots *p = GC_root_index[h]; h 136 gc/mark_rts.c register int h = rt_hash(p -> r_start); h 138 gc/mark_rts.c p -> r_next = GC_root_index[h]; h 139 gc/mark_rts.c GC_root_index[h] = p; h 390 gc/misc.c register struct hblk *h; h 397 gc/misc.c h = HBLKPTR(r); h 404 gc/misc.c h = FORWARDED_ADDR(h,candidate_hdr); h 405 gc/misc.c r = (word)h; h 406 gc/misc.c candidate_hdr = HDR(h); h 422 gc/misc.c if (limit > (word)(h + 1) h 34 gc/new_hblk.c register word * p = h -> hb_body; h 35 gc/new_hblk.c register word * lim = (word *)(h + 1); h 56 gc/new_hblk.c register word * p = h -> hb_body; h 57 gc/new_hblk.c register word * lim = (word *)(h + 1); h 78 gc/new_hblk.c register word * p = h -> hb_body; h 79 gc/new_hblk.c register word * lim = (word *)(h + 1) - 2; h 98 gc/new_hblk.c register word * p = h -> hb_body; h 99 gc/new_hblk.c register word * lim = (word *)(h + 1); h 120 gc/new_hblk.c register word * p = h -> hb_body; h 121 gc/new_hblk.c register word * lim = (word *)(h + 1); h 138 gc/new_hblk.c register word * p = h -> hb_body; h 139 gc/new_hblk.c register word * lim = (word *)(h + 1); h 174 gc/new_hblk.c PREFETCH_FOR_WRITE((ptr_t)h); h 175 gc/new_hblk.c PREFETCH_FOR_WRITE((ptr_t)h + 128); h 176 gc/new_hblk.c PREFETCH_FOR_WRITE((ptr_t)h + 256); h 177 gc/new_hblk.c PREFETCH_FOR_WRITE((ptr_t)h + 378); h 182 gc/new_hblk.c case 1: return GC_build_fl1(h, list); h 184 gc/new_hblk.c return GC_build_fl_clear2(h, list); h 186 gc/new_hblk.c return GC_build_fl2(h, list); h 189 gc/new_hblk.c return GC_build_fl_clear3(h, list); h 195 gc/new_hblk.c return GC_build_fl_clear4(h, list); h 197 gc/new_hblk.c return GC_build_fl4(h, list); h 205 gc/new_hblk.c if (clear) BZERO(h, HBLKSIZE); h 208 gc/new_hblk.c p = &(h -> hb_body[sz]); /* second object in *h */ h 209 gc/new_hblk.c prev = &(h -> hb_body[0]); /* One object behind p */ h 210 gc/new_hblk.c last_object = (word *)((char *)h + HBLKSIZE); h 227 gc/new_hblk.c obj_link(h -> hb_body) = list; h 242 gc/new_hblk.c register struct hblk *h; /* the new heap block */ h 253 gc/new_hblk.c h = GC_allochblk(sz, kind, 0); h 254 gc/new_hblk.c if (h == 0) return; h 257 gc/new_hblk.c if (IS_UNCOLLECTABLE(kind)) GC_set_hdr_marks(HDR(h)); h 261 gc/new_hblk.c GC_build_fl(h, sz, clear, GC_obj_kinds[kind].ok_freelist[sz]); h 720 gc/os_dep.c act.sa_handler = h; h 747 gc/os_dep.c old_segv_handler = signal(SIGSEGV, h); h 749 gc/os_dep.c old_bus_handler = signal(SIGBUS, h); h 2549 gc/os_dep.c register struct hblk * h = h 2557 gc/os_dep.c if (HDR(h+i) != 0) { h 2620 gc/os_dep.c UNPROTECT(h, GC_page_size); h 2633 gc/os_dep.c register int index = PHT_HASH(h+i); h 2675 gc/os_dep.c h_trunc = (struct hblk *)((word)h & ~(GC_page_size-1)); h 2676 gc/os_dep.c h_end = (struct hblk *)(((word)(h + nblocks) + GC_page_size-1) h 2682 gc/os_dep.c if (!is_ptrfree || current < h || current >= h + nblocks) { h 2892 gc/os_dep.c register word index = PHT_HASH(h); h 2894 gc/os_dep.c return(HDR(h) == 0 || get_pht_entry_from_index(GC_grungy_pages, index)); h 2929 gc/os_dep.c register struct hblk *h; h 2941 gc/os_dep.c for (h = start_block; h <= end_block; h++) { h 2942 gc/os_dep.c register word index = PHT_HASH(h); h 3090 gc/os_dep.c # define FRESH_PAGE_SLOT(h) (divHBLKSZ((word)(h)) & (MAX_FRESH_PAGES-1)) h 3092 gc/os_dep.c GC_fresh_pages[FRESH_PAGE_SLOT(h)] = (h) h 3094 gc/os_dep.c (GC_fresh_pages[FRESH_PAGE_SLOT(h)] == (h) && (h) != 0) h 3219 gc/os_dep.c register struct hblk * h = (struct hblk *) current_addr; h 3221 gc/os_dep.c while ((ptr_t)h < current_addr + ps) { h 3222 gc/os_dep.c register word index = PHT_HASH(h); h 3227 gc/os_dep.c register int slot = FRESH_PAGE_SLOT(h); h 3229 gc/os_dep.c if (GC_fresh_pages[slot] == h) { h 3234 gc/os_dep.c h++; h 3255 gc/os_dep.c register word index = PHT_HASH(h); h 3260 gc/os_dep.c if (result && PAGE_IS_FRESH(h)) result = FALSE; h 3273 gc/os_dep.c register word index = PHT_HASH(h); h 3278 gc/os_dep.c if (result && PAGE_IS_FRESH(h)) result = FALSE; h 3296 gc/os_dep.c ADD_FRESH_PAGE(h + i); h 3353 gc/os_dep.c if((ptr_t)h < GC_vd_base || (ptr_t)h >= GC_vd_base + NPAGES*HBLKSIZE) { h 3356 gc/os_dep.c return(GC_grungy_bits[h - (struct hblk *)GC_vd_base] & PCR_VD_DB_dirtyBit); h 3365 gc/os_dep.c PCR_VD_WriteProtectDisable(h, nblocks*HBLKSIZE); h 3366 gc/os_dep.c PCR_VD_WriteProtectEnable(h, nblocks*HBLKSIZE); h 3796 gc/os_dep.c struct hblk *h; h 3882 gc/os_dep.c h = (struct hblk*)((word)addr & ~(GC_page_size-1)); h 3883 gc/os_dep.c UNPROTECT(h, GC_page_size); h 3885 gc/os_dep.c register int index = PHT_HASH(h+i); h 77 gc/pcr_interface.c hhdr = HDR(h); h 82 gc/pcr_interface.c lim = (word *)(h+1) - sz; h 83 gc/pcr_interface.c p = (word *)h; h 52 gc/ptr_chck.c register struct hblk *h; h 69 gc/ptr_chck.c h = HBLKPTR(p) - (word)hhdr; h 70 gc/ptr_chck.c hhdr = HDR(h); h 72 gc/ptr_chck.c h = FORWARDED_ADDR(h, hhdr); h 73 gc/ptr_chck.c hhdr = HDR(h); h 75 gc/ptr_chck.c limit = (ptr_t)((word *)h + hhdr -> hb_sz); h 76 gc/ptr_chck.c if ((ptr_t)p >= limit || (ptr_t)q >= limit || (ptr_t)q < (ptr_t)h ) { h 147 gc/ptr_chck.c register struct hblk *h; h 154 gc/ptr_chck.c h = HBLKPTR(p); h 157 gc/ptr_chck.c h = FORWARDED_ADDR(h, hhdr); h 158 gc/ptr_chck.c hhdr = HDR(h); h 168 gc/ptr_chck.c || sz > MAXOBJBYTES && (ptr_t)p >= (ptr_t)h + sz) { h 872 gc/reclaim.c register hdr * hhdr = HDR(h); h 536 gc/solaris_threads.c register struct hblk * h; h 543 gc/solaris_threads.c h = (struct hblk *)(((word)p + HBLKSIZE-1) & ~(HBLKSIZE-1)); h 544 gc/solaris_threads.c if ((ptr_t)h == p) { h 548 gc/solaris_threads.c BZERO(p, (ptr_t)h - p); h 117 gc/stubborn.c register struct hblk * h = HBLKPTR(p); \ h 118 gc/stubborn.c register word index = PHT_HASH(h); \ h 245 gc/stubborn.c register struct hblk * h; h 254 gc/stubborn.c h = HBLKPTR(q); h 255 gc/stubborn.c index = PHT_HASH(h); h 264 gc/stubborn.c register word index = PHT_HASH(h); h 564 gc/tests/test.c HANDLE h; h 565 gc/tests/test.c h = GC_CreateThread(NULL, 0, tiny_reverse_test, 0, 0, &thread_id); h 566 gc/tests/test.c if (h == (HANDLE)NULL) { h 571 gc/tests/test.c if (WaitForSingleObject(h, INFINITE) != WAIT_OBJECT_0) { h 610 gc/tests/test.c sexpr *f, *g, *h; h 651 gc/tests/test.c h = (sexpr *)GC_MALLOC(1025 * sizeof(sexpr)); h 653 gc/tests/test.c h = (sexpr *)GC_REALLOC((GC_PTR)h, 2000 * sizeof(sexpr)); h 655 gc/tests/test.c h[1999] = gcj_ints(1,200); h 657 gc/tests/test.c h[1999] = gcj_reverse(h[1999]); h 660 gc/tests/test.c h[1999] = ints(1,200); h 710 gc/tests/test.c h[1999] = gcj_reverse(h[1999]); h 712 gc/tests/test.c check_ints(h[1999], 1,200); h 1640 gc/tests/test.c HANDLE h[NTEST]; h 1670 gc/tests/test.c h[i] = GC_CreateThread(NULL, 0, thr_run_one_test, 0, 0, &thread_id); h 1671 gc/tests/test.c if (h[i] == (HANDLE)NULL) { h 1680 gc/tests/test.c if (WaitForSingleObject(h[i], INFINITE) != WAIT_OBJECT_0) { h 1258 src/bignum.c ScmObj h = SCM_NIL, t = SCM_NIL; h 1267 src/bignum.c SCM_APPEND1(h, t, SCM_MAKE_CHAR(tab[rem])); h 1271 src/bignum.c if (q->sign < 0) SCM_APPEND1(h, t, SCM_MAKE_CHAR('-')); h 1272 src/bignum.c return Scm_ListToString(Scm_ReverseX(h)); h 549 src/char.c ScmObj h = SCM_NIL, t = SCM_NIL, cell; h 558 src/char.c SCM_APPEND1(h, t, cell); h 566 src/char.c SCM_APPEND1(h, t, cell); h 570 src/char.c SCM_APPEND1(h, t, cell); h 578 src/char.c SCM_APPEND1(h, t, cell); h 580 src/char.c return h; h 209 src/class.c ScmObj h = SCM_NIL, t = SCM_NIL; h 210 src/class.c if (array) while (len-- > 0) SCM_APPEND1(h, t, SCM_OBJ(*array++)); h 211 src/class.c return h; h 216 src/class.c ScmObj h = SCM_NIL, t = SCM_NIL; h 218 src/class.c for (i=0; i<len; i++, array++) SCM_APPEND1(h, t, (*array)->name); h 219 src/class.c return h; h 1989 src/class.c ScmObj h = SCM_NIL, t = SCM_NIL; h 2004 src/class.c if (n == m->common.required) SCM_APPEND1(h, t, SCM_OBJ(m)); h 2006 src/class.c return h; h 2171 src/class.c ScmObj lp, h, t; h 2208 src/class.c h = t = SCM_NIL; h 2210 src/class.c SCM_APPEND1(h, t, specarray[i]->name); h 2212 src/class.c SCM_COMPILED_CODE(m->data)->name = Scm_Cons(SCM_PROCEDURE_INFO(g), h); h 2750 src/class.c ScmObj h = SCM_NIL, t; h 2752 src/class.c SCM_APPEND1(h, t, SCM_OBJ(klass)); h 2753 src/class.c for (p = klass->cpa; *p; p++) SCM_APPEND1(h, t, SCM_OBJ(*p)); h 2754 src/class.c klass->cpl = h; h 2774 src/class.c } else if (SCM_PAIRP(SCM_CDR(h))) { h 2776 src/class.c klass->directSupers = SCM_LIST1(SCM_CADR(h)); h 57 src/code.c ScmObj h = SCM_NIL, t = SCM_NIL; h 59 src/code.c SCM_APPEND1(h, t, cc->name); h 64 src/code.c return Scm_ReverseX(h); h 869 src/code.c ScmObj h = SCM_NIL, t = SCM_NIL; h 878 src/code.c SCM_APPEND1(h, t, SCM_LIST1(SCM_INTERN(name))); h 881 src/code.c SCM_APPEND1(h, t, SCM_LIST2(SCM_INTERN(name), h 885 src/code.c SCM_APPEND1(h, t, SCM_LIST3(SCM_INTERN(name), h 895 src/code.c SCM_APPEND1(h, t, SCM_OBJ(cc->code[++i])); h 899 src/code.c SCM_APPEND1(h, t, SCM_MAKE_INT(off)); h 903 src/code.c SCM_APPEND(h, t, SCM_LIST2(SCM_OBJ(cc->code[i+1]), h 909 src/code.c return h; h 257 src/core.c r->handler = h; h 307 src/error.c ScmObj h = SCM_NIL, t = SCM_NIL, cp, cond; h 338 src/error.c SCM_APPEND(h, t, cc->conditions); h 340 src/error.c SCM_APPEND1(h, t, c); h 347 src/error.c SCM_COMPOUND_CONDITION(cond)->conditions = h; h 460 src/error.c ScmObj h = SCM_NIL, t = SCM_NIL, cp; h 463 src/error.c SCM_APPEND1(h, t, Scm__InternalClassName(Scm_ClassOf(cc))); h 465 src/error.c if (SCM_NULLP(h)) { h 469 src/error.c sname = Scm_StringJoin(h, &cond_name_delim, SCM_STRING_JOIN_INFIX); h 814 src/extlib.c ScmObj cp, h = SCM_NIL, t = SCM_NIL; h 818 src/extlib.c if (SCM_NULLP(h)) return SCM_CAR(cp); h 819 src/extlib.c else { SCM_SET_CDR(t, SCM_CAR(cp)); return h; } h 821 src/extlib.c SCM_APPEND(h, t, SCM_CAR(cp)); h 823 src/extlib.c SCM_RETURN(h); h 5781 src/extlib.c ScmObj h = SCM_NIL, t = SCM_NIL; h 5782 src/extlib.c SCM_APPEND(h, t, SCM_LIST2(key_total_heap_size, h 5784 src/extlib.c SCM_APPEND(h, t, SCM_LIST2(key_free_bytes, h 5786 src/extlib.c SCM_APPEND(h, t, SCM_LIST2(key_bytes_since_gc, h 5788 src/extlib.c SCM_APPEND(h, t, SCM_LIST2(key_total_bytes, h 5790 src/extlib.c SCM_RETURN(h); h 163 src/hash.c unsigned long h = 0, h2; h 167 src/hash.c h = COMBINE(h, h2); h 170 src/hash.c h = COMBINE(h, h2); h 171 src/hash.c return h; h 174 src/hash.c unsigned long h = 0, h2; h 178 src/hash.c h = COMBINE(h, h2); h 180 src/hash.c return h; h 440 src/hash.c unsigned long h = 0, h1; h 444 src/hash.c h = COMBINE(h, h1); h 446 src/hash.c return h; h 720 src/hash.c ScmObj h = SCM_NIL, t = SCM_NIL; h 724 src/hash.c SCM_APPEND1(h, t, e->key); h 726 src/hash.c return h; h 733 src/hash.c ScmObj h = SCM_NIL, t = SCM_NIL; h 737 src/hash.c SCM_APPEND1(h, t, e->value); h 739 src/hash.c return h; h 744 src/hash.c ScmObj h = SCM_NIL, t; h 749 src/hash.c SCM_APPEND1(h, t, SCM_MAKE_KEYWORD("num-entries")); h 750 src/hash.c SCM_APPEND1(h, t, Scm_MakeInteger(table->numEntries)); h 751 src/hash.c SCM_APPEND1(h, t, SCM_MAKE_KEYWORD("num-buckets")); h 752 src/hash.c SCM_APPEND1(h, t, Scm_MakeInteger(table->numBuckets)); h 753 src/hash.c SCM_APPEND1(h, t, SCM_MAKE_KEYWORD("num-buckets-log2")); h 754 src/hash.c SCM_APPEND1(h, t, Scm_MakeInteger(table->numBucketsLog2)); h 761 src/hash.c SCM_APPEND1(h, t, SCM_MAKE_KEYWORD("contents")); h 762 src/hash.c SCM_APPEND1(h, t, SCM_OBJ(v)); h 763 src/hash.c return h; h 1528 src/intlib.c ScmObj h = SCM_NIL, t = SCM_NIL; h 1534 src/intlib.c SCM_APPEND1(h, t, v); h 1536 src/intlib.c SCM_RETURN(h); h 1728 src/intlib.c ScmObj h = SCM_NIL, t = SCM_NIL; h 1730 src/intlib.c SCM_APPEND1(h, t, Scm_Cons(SCM_CAR(lis1), SCM_CAR(lis2))); h 1734 src/intlib.c SCM_RETURN(h); h 107 src/keyword.c ScmObj h = SCM_NIL, t = SCM_NIL; h 112 src/keyword.c SCM_APPEND(h, t, tail); h 113 src/keyword.c return h; h 115 src/keyword.c SCM_APPEND1(h, t, SCM_CAR(cp2)); h 146 src/list.c ScmObj h = SCM_NIL, t = SCM_NIL; h 150 src/list.c SCM_APPEND1(h, t, *elts++); h 153 src/list.c return h; h 623 src/list.c ScmObj result = Scm_Cons(start, SCM_NIL), next, h; h 644 src/list.c h = SCM_CAR(*sp); h 647 src/list.c if (!SCM_FALSEP(Scm_Memq(h, SCM_CDR(*tp)))) { h 652 src/list.c next = h; h 354 src/macro.c ScmObj lp, h = SCM_NIL, t = SCM_NIL; h 358 src/macro.c SCM_APPEND1(h, t, lit); h 360 src/macro.c SCM_APPEND1(h, t, Scm_MakeIdentifier(SCM_SYMBOL(lit), mod, env)); h 366 src/macro.c return h; h 383 src/macro.c ScmObj pp, h = SCM_NIL, t = SCM_NIL; h 392 src/macro.c SCM_APPEND1(h, t, SCM_OBJ(nspat)); h 414 src/macro.c SCM_APPEND1(h, t, h 419 src/macro.c SCM_APPEND(h, t, compile_rule1(pp, spat, ctx, patternp)); h 420 src/macro.c return h; h 758 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL; h 761 src/macro.c SCM_APPEND1(h, t, SCM_VECTOR_ELEMENT(form, i)); h 763 src/macro.c return match_subpattern(h, SCM_SYNTAX_PATTERN(pat), env, mvec); h 785 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r, e; h 791 src/macro.c SCM_APPEND(h, t, r); h 795 src/macro.c SCM_APPEND1(h, t, r); h 802 src/macro.c if (SCM_NULLP(h)) return r; /* (a ... . b) and a ... is empty */ h 803 src/macro.c SCM_APPEND(h, t, r); h 805 src/macro.c return h; h 812 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r; h 816 src/macro.c if (SCM_UNBOUNDP(r)) return (*exlev < pat->level)? r : h; h 817 src/macro.c SCM_APPEND1(h, t, r); h 822 src/macro.c ScmObj h = SCM_NIL, t = SCM_NIL, r, *pe; h 830 src/macro.c SCM_APPEND(h, t, r); h 834 src/macro.c SCM_APPEND1(h, t, r); h 837 src/macro.c return Scm_ListToVector(h, 0, -1); h 493 src/module.c ScmObj h = SCM_NIL, t = SCM_NIL; h 500 src/module.c SCM_APPEND1(h, t, e->value); h 503 src/module.c return h; h 626 src/port.c int i, h, c; h 627 src/port.c h = i = PORT_HASH(port); h 633 src/port.c if (i == h) Scm_Panic("active buffered port table overflow"); h 643 src/port.c int i, h, c; h 646 src/port.c h = i = PORT_HASH(port); h 656 src/port.c } while (i != h); h 835 src/regexp.c ScmObj sp, sp2, e = SCM_UNBOUND, h, t; h 842 src/regexp.c h = t = SCM_NIL; h 844 src/regexp.c if (SCM_EQ(sp, sp2)) { SCM_APPEND1(h, t, e); break; } h 845 src/regexp.c SCM_APPEND1(h, t, SCM_CAR(sp2)); h 848 src/regexp.c SCM_APPEND1(h, t, rc2_optimize(SCM_CAR(sp2), rest)); h 850 src/regexp.c return Scm_Cons(SCM_SYM_ALT, h); h 469 src/signal.c ScmObj h = SCM_CAR(sp); h 471 src/signal.c Scm_Apply(SCM_CAR(h), SCM_LIST1(SCM_CDR(h))); h 542 src/signal.c ScmObj h = SCM_NIL, hp; h 557 src/signal.c SCM_FOR_EACH(hp, h) { h 566 src/signal.c h = Scm_Acons(SCM_OBJ(set), handlers[desc->num], h); h 569 src/signal.c return h; h 1144 src/string.c ScmObj h = SCM_NIL, t = SCM_NIL; h 1146 src/string.c for (;*array; array++) SCM_APPEND1(h, t, SCM_MAKE_STR(*array)); h 1148 src/string.c for (i=0; i<size; i++) SCM_APPEND1(h, t, SCM_MAKE_STR(*array++)); h 1150 src/string.c return h; h 1156 src/string.c ScmObj h = SCM_NIL, t = SCM_NIL; h 1159 src/string.c SCM_APPEND1(h, t, SCM_MAKE_STR_COPYING(*array)); h 1162 src/string.c SCM_APPEND1(h, t, SCM_MAKE_STR_COPYING(*array++)); h 1164 src/string.c return h; h 3396 src/vm.c ScmObj h = SCM_NIL, t = SCM_NIL, p; h 3402 src/vm.c SCM_APPEND1(h, t, SCM_CDAR(p)); h 3408 src/vm.c SCM_APPEND1(h, t, SCM_CAAR(p)); h 3410 src/vm.c return h; h 3629 src/vm.c ScmObj h = SCM_NIL, t = SCM_NIL; h 3632 src/vm.c SCM_APPEND1(h, t, vm->vals[i]); h 3634 src/vm.c data[2] = h; h 1161 src/write.c ScmObj h = SCM_NIL, t = SCM_NIL; h 1179 src/write.c SCM_APPEND1(h, t, Scm_MakeInteger(val)); h 1185 src/write.c SCM_APPEND1(h, t, Scm_MakeIntegerU(val)); h 1191 src/write.c SCM_APPEND1(h, t, Scm_MakeFlonum(val)); h 1198 src/write.c if (val != NULL) SCM_APPEND1(h, t, SCM_MAKE_STR(val)); h 1199 src/write.c else SCM_APPEND1(h, t, SCM_MAKE_STR("(null)")); h 1209 src/write.c SCM_APPEND1(h, t, Scm_MakeIntegerU((unsigned long)val)); h 1215 src/write.c SCM_APPEND1(h, t, o); h 1221 src/write.c SCM_APPEND1(h, t, Scm_MakeInteger(c)); h 1238 src/write.c PORT_SAFE_CALL(out, vprintf_proc(out, fmt, h, sharedp));