current 67 ext/threads/threads.c ScmVM *current = Scm_VM(), *vm;
current 72 ext/threads/threads.c vm = Scm_NewVM(current, name);
current 635 ext/vport/vport.c buf.current = NULL;
current 323 gc/backgraph.c word current = *currentp++;
current 324 gc/backgraph.c FIXUP_POINTER(current);
current 325 gc/backgraph.c if (current >= (word)GC_least_plausible_heap_addr &&
current 326 gc/backgraph.c current <= (word)GC_greatest_plausible_heap_addr) {
current 327 gc/backgraph.c ptr_t target = GC_base((GC_PTR)current);
current 600 gc/cord/cordbscs.c register size_t last, previous, current;
current 605 gc/cord/cordbscs.c current = last + previous;
current 606 gc/cord/cordbscs.c if (current < last) /* overflow */ current = last;
current 607 gc/cord/cordbscs.c min_len[i] = current;
current 609 gc/cord/cordbscs.c last = current;
current 64 gc/cord/cordprnt.c register char current;
current 70 gc/cord/cordprnt.c current = CORD_pos_fetch(source);
current 71 gc/cord/cordprnt.c buf[chars_so_far++] = current;
current 72 gc/cord/cordprnt.c switch(current) {
current 93 gc/cord/cordprnt.c current_number += current - '0';
current 165 gc/cord/cordprnt.c register char current;
current 171 gc/cord/cordprnt.c current = CORD_pos_fetch(pos);
current 172 gc/cord/cordprnt.c if (current == '%') {
current 175 gc/cord/cordprnt.c current = CORD_pos_fetch(pos);
current 176 gc/cord/cordprnt.c if (current == '%') {
current 177 gc/cord/cordprnt.c CORD_ec_append(result, current);
current 190 gc/cord/cordprnt.c current = CORD_pos_fetch(pos);
current 191 gc/cord/cordprnt.c switch(current) {
current 284 gc/cord/cordprnt.c switch(current) {
current 333 gc/cord/cordprnt.c CORD_ec_append(result, current);
current 89 gc/cord/de.c CORD current; /* == now -> file_contents. */
current 165 gc/cord/de.c cur = CORD_chr(current, cur, '\n');
current 171 gc/cord/de.c next = CORD_chr(current, cur, '\n');
current 185 gc/cord/de.c new_file -> file_contents = current = s;
current 195 gc/cord/de.c current = now -> file_contents;
current 197 gc/cord/de.c current_len = CORD_len(current);
current 267 gc/cord/de.c return(retrieve_line(current, pos, dis_col));
current 282 gc/cord/de.c replace_line(i, retrieve_line(current, pos, dis_col));
current 343 gc/cord/de.c line++, file_pos = CORD_chr(current, file_pos, '\n') + 1);
current 413 gc/cord/de.c new_pos = CORD_str(current, file_pos - CORD_len(locate_string) + 1,
current 472 gc/cord/de.c if (CORD_fetch(current, file_pos) == '\n') break;
current 489 gc/cord/de.c if (CORD_fetch(current, file_pos) == '\n') {
current 495 gc/cord/de.c CORD_substr(current, 0, file_pos),
current 496 gc/cord/de.c CORD_substr(current, file_pos+1, current_len)));
current 505 gc/cord/de.c || CORD_put(current, out) == EOF) {
current 515 gc/cord/de.c CORD left_part = CORD_substr(current, 0, file_pos);
current 516 gc/cord/de.c CORD right_part = CORD_substr(current, file_pos, current_len);
current 176 gc/dbg_mlc.c void *current = p;
current 182 gc/dbg_mlc.c GC_print_heap_obj(GC_base(current));
current 185 gc/dbg_mlc.c source = GC_get_back_ptr_info(current, &base, &offset);
current 213 gc/dbg_mlc.c current = base;
current 222 gc/dbg_mlc.c void * current;
current 223 gc/dbg_mlc.c current = GC_generate_random_valid_address();
current 224 gc/dbg_mlc.c GC_printf1("\n****Chose address 0x%lx in object\n", (unsigned long)current);
current 225 gc/dbg_mlc.c GC_print_backtrace(current);
current 138 gc/include/private/gc_pmark.h ptr_t GC_find_start(ptr_t current, hdr *hhdr, hdr **new_hdr_p);
current 176 gc/include/private/gc_pmark.h # define PUSH_CONTENTS(current, mark_stack_top, mark_stack_limit, \
current 180 gc/include/private/gc_pmark.h ptr_t my_current = current; \
current 194 gc/include/private/gc_pmark.h # define HC_PUSH_CONTENTS(current, mark_stack_top, mark_stack_limit, \
current 198 gc/include/private/gc_pmark.h ptr_t my_current = current; \
current 238 gc/include/private/gc_pmark.h # define PUSH_CONTENTS_HDR(current, mark_stack_top, mark_stack_limit, \
current 244 gc/include/private/gc_pmark.h displ = HBLKDISPL(current); \
current 252 gc/include/private/gc_pmark.h GC_ADD_TO_BLACK_LIST_NORMAL((word)current, source); \
current 256 gc/include/private/gc_pmark.h GC_ADD_TO_BLACK_LIST_NORMAL((word)current, source); goto exit_label; \
current 263 gc/include/private/gc_pmark.h GC_STORE_BACK_PTR((ptr_t)source, (ptr_t)HBLKPTR(current) \
current 265 gc/include/private/gc_pmark.h PUSH_OBJ(((word *)(HBLKPTR(current)) + displ), hhdr, \
current 548 gc/mark.c ptr_t GC_find_start(current, hhdr, new_hdr_p)
current 549 gc/mark.c register ptr_t current;
current 554 gc/mark.c register ptr_t orig = current;
current 556 gc/mark.c current = (ptr_t)HBLKPTR(current);
current 558 gc/mark.c current = current - HBLKSIZE*(word)hhdr;
current 559 gc/mark.c hhdr = HDR(current);
current 563 gc/mark.c if ((word *)orig - (word *)current
current 569 gc/mark.c return(current);
current 571 gc/mark.c return(current);
current 574 gc/mark.c return(current);
current 619 gc/mark.c register word current; /* Candidate pointer. */
current 684 gc/mark.c current = *current_p;
current 685 gc/mark.c FIXUP_POINTER(current);
current 686 gc/mark.c if ((ptr_t)current >= least_ha && (ptr_t)current < greatest_ha) {
current 687 gc/mark.c PREFETCH((ptr_t)current);
current 688 gc/mark.c HC_PUSH_CONTENTS((ptr_t)current, mark_stack_top,
current 784 gc/mark.c current = *current_p;
current 785 gc/mark.c FIXUP_POINTER(current);
current 787 gc/mark.c if ((ptr_t)current >= least_ha && (ptr_t)current < greatest_ha) {
current 790 gc/mark.c PREFETCH((ptr_t)current);
current 791 gc/mark.c HC_PUSH_CONTENTS((ptr_t)current, mark_stack_top,
current 2671 gc/os_dep.c struct hblk * current;
current 2679 gc/os_dep.c for (current = h_trunc; current < h_end; ++current) {
current 2680 gc/os_dep.c int index = PHT_HASH(current);
current 2682 gc/os_dep.c if (!is_ptrfree || current < h || current >= h + nblocks) {
current 2823 gc/os_dep.c struct hblk * current;
current 2837 gc/os_dep.c current_start = current = (struct hblk *)start;
current 2839 gc/os_dep.c while (current < limit) {
current 2844 gc/os_dep.c GC_ASSERT(PAGE_ALIGNED(current));
current 2845 gc/os_dep.c GET_HDR(current, hhdr);
current 2851 gc/os_dep.c GC_ASSERT(current_start == current);
current 2852 gc/os_dep.c current_start = ++current;
current 2864 gc/os_dep.c if (current_start < current) {
current 2865 gc/os_dep.c PROTECT(current_start, (ptr_t)current - (ptr_t)current_start);
current 2867 gc/os_dep.c current_start = (current += nhblks);
current 2869 gc/os_dep.c current += nhblks;
current 2872 gc/os_dep.c if (current_start < current) {
current 2873 gc/os_dep.c PROTECT(current_start, (ptr_t)current - (ptr_t)current_start);
current 409 gc/typd_mlc.c register word current;
current 415 gc/typd_mlc.c current = *current_p;
current 416 gc/typd_mlc.c FIXUP_POINTER(current);
current 417 gc/typd_mlc.c if ((ptr_t)current >= least_ha && (ptr_t)current <= greatest_ha) {
current 418 gc/typd_mlc.c PUSH_CONTENTS((ptr_t)current, mark_stack_ptr,
current 468 gc/typd_mlc.c register ptr_t current = (ptr_t) addr;
current 483 gc/typd_mlc.c msp -> mse_start = (word *)current;
current 485 gc/typd_mlc.c current += sz;
current 496 gc/typd_mlc.c msp = GC_push_complex_descriptor((word *)current, descr,
current 499 gc/typd_mlc.c current += sz;
current 506 gc/typd_mlc.c msp = GC_push_complex_descriptor((word *)current, d -> sd.sd_first,
current 509 gc/typd_mlc.c current += sz;
current 510 gc/typd_mlc.c msp = GC_push_complex_descriptor((word *)current, d -> sd.sd_second,
current 2284 src/extlib.c SCM_RESULT = (sp->current - sp->start);
current 3266 src/extlib.c int siz = (int)(p->src.buf.current - p->src.buf.buffer);
current 1150 src/gauche.h char *current; /* current ptr */
current 1170 src/gauche.h if ((dstr)->current >= (dstr)->end) Scm__DStringRealloc(dstr, 1);\
current 1171 src/gauche.h *(dstr)->current++ = (char)(byte); \
current 1180 src/gauche.h if (d_DSTR->current + siz_DSTR > d_DSTR->end) \
current 1182 src/gauche.h SCM_CHAR_PUT(d_DSTR->current, ch_DSTR); \
current 1183 src/gauche.h d_DSTR->current += siz_DSTR; \
current 1196 src/gauche.h const char *current;
current 1303 src/gauche.h char *current; /* current buffer position */
current 1324 src/gauche.h (int)((p)->src.buf.current-(p)->src.buf.buffer)
current 1384 src/gauche.h const char *current;
current 452 src/port.c p->src.buf.current = p->src.buf.buffer;
current 455 src/port.c p->src.buf.current = p->src.buf.buffer;
current 484 src/port.c p->src.buf.current = p->src.buf.buffer; /* for safety */
current 494 src/port.c p->src.buf.current -= nwrote;
current 496 src/port.c p->src.buf.current = p->src.buf.buffer;
current 505 src/port.c int room = (int)(p->src.buf.end - p->src.buf.current);
current 507 src/port.c memcpy(p->src.buf.current, src, siz);
current 508 src/port.c p->src.buf.current += siz;
current 511 src/port.c memcpy(p->src.buf.current, src, room);
current 512 src/port.c p->src.buf.current += room;
current 527 src/port.c int cursiz = (int)(p->src.buf.end - p->src.buf.current);
current 530 src/port.c memmove(p->src.buf.buffer, p->src.buf.current, cursiz);
current 531 src/port.c p->src.buf.current = p->src.buf.buffer;
current 532 src/port.c p->src.buf.end = p->src.buf.current + cursiz;
current 534 src/port.c p->src.buf.current = p->src.buf.end = p->src.buf.buffer;
current 566 src/port.c int avail = (int)(p->src.buf.end - p->src.buf.current);
current 570 src/port.c memcpy(dst, p->src.buf.current, req);
current 571 src/port.c p->src.buf.current += req;
current 581 src/port.c memcpy(dst, p->src.buf.current, siz);
current 582 src/port.c p->src.buf.current += siz;
current 586 src/port.c memcpy(dst, p->src.buf.current, r);
current 587 src/port.c p->src.buf.current += r;
current 905 src/port.c p->src.istr.current = s;
current 949 src/port.c cp = port->src.istr.current;
current 110 src/portapi.c if (p->src.buf.current >= p->src.buf.end) {
current 111 src/portapi.c SAFE_CALL(p, bufport_flush(p, p->src.buf.current - p->src.buf.buffer, FALSE));
current 113 src/portapi.c SCM_ASSERT(p->src.buf.current < p->src.buf.end);
current 114 src/portapi.c *p->src.buf.current++ = b;
current 154 src/portapi.c if (p->src.buf.current+nb > p->src.buf.end) {
current 155 src/portapi.c SAFE_CALL(p, bufport_flush(p, p->src.buf.current - p->src.buf.buffer, FALSE));
current 157 src/portapi.c SCM_ASSERT(p->src.buf.current+nb <= p->src.buf.end);
current 158 src/portapi.c SCM_CHAR_PUT(p->src.buf.current, c);
current 159 src/portapi.c p->src.buf.current += nb;
current 206 src/portapi.c const char *cp = p->src.buf.current;
current 209 src/portapi.c SAFE_CALL(p, bufport_flush(p, (int)(cp - p->src.buf.current), FALSE));
current 253 src/portapi.c const char *cp = p->src.buf.current;
current 256 src/portapi.c SAFE_CALL(p, bufport_flush(p, (int)(cp - p->src.buf.current), FALSE));
current 465 src/portapi.c if (p->src.buf.current >= p->src.buf.end) {
current 472 src/portapi.c b = (unsigned char)*p->src.buf.current++;
current 475 src/portapi.c if (p->src.istr.current >= p->src.istr.end) b = EOF;
current 476 src/portapi.c else b = (unsigned char)*p->src.istr.current++;
current 549 src/portapi.c if (p->src.buf.current >= p->src.buf.end) {
current 556 src/portapi.c first = (unsigned char)*p->src.buf.current++;
current 559 src/portapi.c if (p->src.buf.current + nb > p->src.buf.end) {
current 564 src/portapi.c p->scrcnt = (unsigned char)(p->src.buf.end - p->src.buf.current + 1);
current 565 src/portapi.c memcpy(p->scratch, p->src.buf.current-1, p->scrcnt);
current 566 src/portapi.c p->src.buf.current = p->src.buf.end;
current 577 src/portapi.c memcpy(p->scratch+p->scrcnt, p->src.buf.current, rest);
current 579 src/portapi.c p->src.buf.current += rest;
current 582 src/portapi.c memcpy(p->scratch+p->scrcnt, p->src.buf.current, filled);
current 584 src/portapi.c p->src.buf.current = p->src.buf.end;
current 591 src/portapi.c SCM_CHAR_GET(p->src.buf.current-1, c);
current 592 src/portapi.c p->src.buf.current += nb;
current 601 src/portapi.c if (p->src.istr.current >= p->src.istr.end) {
current 605 src/portapi.c first = (unsigned char)*p->src.istr.current++;
current 608 src/portapi.c if (p->src.istr.current + nb > p->src.istr.end) {
current 614 src/portapi.c SCM_CHAR_GET(p->src.istr.current-1, c);
current 615 src/portapi.c p->src.istr.current += nb;
current 672 src/portapi.c if (p->src.istr.current + buflen >= p->src.istr.end) {
current 673 src/portapi.c if (p->src.istr.current >= p->src.istr.end) return EOF;
current 674 src/portapi.c siz = (int)(p->src.istr.end - p->src.istr.current);
current 675 src/portapi.c memcpy(buf, p->src.istr.current, siz);
current 676 src/portapi.c p->src.istr.current = p->src.istr.end;
current 679 src/portapi.c memcpy(buf, p->src.istr.current, buflen);
current 680 src/portapi.c p->src.istr.current += buflen;
current 819 src/portapi.c if (p->src.buf.current < p->src.buf.end) r = TRUE;
current 855 src/portapi.c if (p->src.buf.current < p->src.buf.end) r = TRUE;
current 882 src/portapi.c r = (off_t)(p->src.istr.current - p->src.istr.start);
current 886 src/portapi.c z += (long)(p->src.istr.current - p->src.istr.start);
current 893 src/portapi.c p->src.istr.current = p->src.istr.start + z;
current 894 src/portapi.c r = (off_t)(p->src.istr.current - p->src.istr.start);
current 929 src/portapi.c r -= (off_t)(p->src.buf.end - p->src.buf.current);
current 931 src/portapi.c r += (off_t)(p->src.buf.current - p->src.buf.buffer);
current 938 src/portapi.c o -= (off_t)(p->src.buf.end - p->src.buf.current);
current 940 src/portapi.c p->src.buf.current = p->src.buf.end; /* invalidate buffer */
current 445 src/string.c static const char *forward_pos(const char *current, int offset)
current 450 src/string.c n = SCM_CHAR_NFOLLOWS(*current);
current 451 src/string.c current += n + 1;
current 453 src/string.c return current;
current 1261 src/string.c sp->current = ptr;
current 1273 src/string.c ch = *sp->current;
current 1276 src/string.c SCM_CHAR_GET(sp->current, ch);
current 1287 src/string.c ch = *sp->current++;
current 1290 src/string.c SCM_CHAR_GET(sp->current, ch);
current 1292 src/string.c sp->current += SCM_CHAR_NFOLLOWS(*sp->current) + 1;
current 1303 src/string.c ch = *--sp->current;
current 1306 src/string.c SCM_CHAR_BACKWARD(sp->current, sp->start, prev);
current 1310 src/string.c sp->current = prev;
current 1321 src/string.c sp->current = sp->start + index;
current 1325 src/string.c sp->current = forward_pos(sp->start, index);
current 1337 src/string.c return SCM_OBJ(make_str(-1, sp->size - sp->index, sp->current, 0));
current 1343 src/string.c sp->start + sp->size - sp->current,
current 1344 src/string.c sp->current, 0));
current 1347 src/string.c sp->current - sp->start,
current 1362 src/string.c sp2->current = sp1->current;
current 1374 src/string.c sp1->current);
current 1405 src/string.c dstr->current = dstr->init.data;
current 1406 src/string.c dstr->end = dstr->current + SCM_DSTRING_INIT_CHUNK_SIZE;
current 1417 src/string.c dstr->tail->chunk->bytes = (int)(dstr->current - dstr->tail->chunk->data);
current 1422 src/string.c size = (int)(dstr->current - dstr->init.data);
current 1435 src/string.c dstr->tail->chunk->bytes = (int)(dstr->current - dstr->tail->chunk->data);
current 1437 src/string.c dstr->init.bytes = (int)(dstr->current - dstr->init.data);
current 1464 src/string.c dstr->current = newchunk->data;
current 1476 src/string.c size = (int)(dstr->current - dstr->init.data);
current 1521 src/string.c if (dstr->current + size > dstr->end) {
current 1524 src/string.c memcpy(dstr->current, str, size);
current 1525 src/string.c dstr->current += size;
current 1538 src/string.c if (dstr->current + size > dstr->end) {
current 1541 src/string.c memcpy(dstr->current, SCM_STRING_BODY_START(b), size);
current 1542 src/string.c dstr->current += size;
current 1572 src/string.c int size = (chain->next? chain->chunk->bytes : (int)(dstr->current - dstr->tail->chunk->data));
current 1578 src/string.c int size = (int)(dstr->current - dstr->init.data);
current 3190 src/vm.c ScmObj target, current;
current 3211 src/vm.c current = vm->handlers;
current 3213 src/vm.c for (hp = current; SCM_PAIRP(hp)&&hp != target; hp = SCM_CDR(hp)) {
current 3380 src/vm.c ScmObj current = theVM->exceptionHandler;
current 3382 src/vm.c ScmObj after = Scm_MakeSubr(install_xhandler, current, 0, 0, SCM_FALSE);
current 3395 src/vm.c ScmObj current = vm->handlers;
current 3398 src/vm.c SCM_FOR_EACH(p, current) {
current 3406 src/vm.c if (!SCM_FALSEP(Scm_Memq(SCM_CAR(p), current))) continue;