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