sp 9067 ext/uvector/uvlib.c u_int size, len; const char *ss, *sp, *ep; char *buf; sp 9070 ext/uvector/uvlib.c if (start == 0) sp = ss; sp 9071 ext/uvector/uvlib.c else sp = Scm_StringPosition(s, start); sp 9074 ext/uvector/uvlib.c buf = SCM_NEW_ATOMIC2(char *, ep-sp); sp 9075 ext/uvector/uvlib.c memcpy(buf, sp, ep-sp); sp 9076 ext/uvector/uvlib.c return Scm_MakeUVectorFull(klass, ep-sp, buf, FALSE, NULL); sp 9154 ext/uvector/uvlib.c u_int size, len; const char *ss, *sp, *ep; char *buf; sp 9161 ext/uvector/uvlib.c if (start == 0) sp = ss; sp 9162 ext/uvector/uvlib.c else sp = Scm_StringPosition(s, start); sp 9167 ext/uvector/uvlib.c if (tlen - tstart > ep - sp) { sp 9168 ext/uvector/uvlib.c memcpy(buf, sp, ep - sp); sp 9170 ext/uvector/uvlib.c memcpy(buf, sp, tlen - tstart); sp 9351 ext/uvector/uvlib.c u_int size, len, i; const char *ss, *sp, *ep; sp 9355 ext/uvector/uvlib.c if (start == 0) sp = ss; sp 9356 ext/uvector/uvlib.c else sp = Scm_StringPosition(s, start); sp 9361 ext/uvector/uvlib.c for (i=0; sp<ep; i++) { sp 9363 ext/uvector/uvlib.c SCM_CHAR_GET(sp, ch); sp 9365 ext/uvector/uvlib.c sp += SCM_CHAR_NBYTES(ch); sp 34 gc/mach_dep.c sub.w #4,sp // reserve space for one parameter. sp 35 gc/mach_dep.c move.l a2,(sp) sp 37 gc/mach_dep.c move.l a3,(sp) sp 39 gc/mach_dep.c move.l a4,(sp) sp 43 gc/mach_dep.c move.l a6,(sp) sp 47 gc/mach_dep.c move.l d2,(sp) sp 49 gc/mach_dep.c move.l d3,(sp) sp 51 gc/mach_dep.c move.l d4,(sp) sp 53 gc/mach_dep.c move.l d5,(sp) sp 55 gc/mach_dep.c move.l d6,(sp) sp 57 gc/mach_dep.c move.l d7,(sp) sp 59 gc/mach_dep.c add.w #4,sp // fix stack. sp 189 gc/mach_dep.c move.l reg,(sp) \ sp 192 gc/mach_dep.c sub.w #4,sp ; reserve space for one parameter. sp 203 gc/mach_dep.c add.w #4,sp ; fix stack. sp 385 gc/mach_dep.c register int * sp asm ("optop"); sp 388 gc/mach_dep.c GC_push_all_stack (sp, __libc_stack_end); sp 310 gc/misc.c register word sp = (word)GC_approx_sp(); /* Hotter than actual sp */ sp 337 gc/misc.c limit = sp; sp 356 gc/misc.c if (sp HOTTER_THAN GC_high_water) { sp 357 gc/misc.c GC_high_water = sp; sp 362 gc/misc.c if (sp COOLER_THAN limit) { sp 365 gc/misc.c GC_min_sp = sp; sp 370 gc/misc.c GC_min_sp = sp; sp 648 gc/os_dep.c ptr_t sp = (ptr_t)(&dummy); sp 649 gc/os_dep.c ptr_t trunc_sp = (ptr_t)((word)sp & ~(GC_page_size - 1)); sp 689 gc/solaris_threads.c register ptr_t sp = GC_approx_sp(); sp 713 gc/solaris_threads.c if ((word)sp > (word)bottom && (word)sp < (word)top) bottom = sp; sp 337 gc/win32_threads.c ptr_t sp, stack_min; sp 345 gc/win32_threads.c sp = (ptr_t) &dummy; sp 361 gc/win32_threads.c sp = (ptr_t)context.Esp; sp 364 gc/win32_threads.c sp = (ptr_t)context.Sp; sp 368 gc/win32_threads.c sp = (ptr_t)context.R15; sp 374 gc/win32_threads.c sp = (ptr_t)context.IntSp; sp 380 gc/win32_threads.c sp = (ptr_t)context.Gpr1; sp 386 gc/win32_threads.c sp = (ptr_t)context.IntSp; sp 394 gc/win32_threads.c if (sp >= stack_min && sp < thread->stack_base) sp 395 gc/win32_threads.c GC_push_all_stack(sp, thread->stack_base); sp 398 gc/win32_threads.c (unsigned long)sp); sp 1994 src/class.c ScmClass **sp; sp 1999 src/class.c for (ap = args, sp = m->specializers, n = 0; sp 2001 src/class.c ap++, sp++, n++) { sp 2002 src/class.c if (!Scm_SubtypeP(Scm_ClassOf(*ap), *sp)) break; sp 2296 src/class.c ScmClass **sp = m->specializers; sp 2298 src/class.c if (sp[i] == old) sp[i] = newc; sp 2757 src/class.c ScmObj cp, sp = supers; sp 2759 src/class.c if (SCM_EQ(SCM_CAR(cp), SCM_CAR(sp))) { sp 2760 src/class.c sp = SCM_CDR(sp); sp 2761 src/class.c if (SCM_NULLP(sp)) break; sp 2764 src/class.c if (!SCM_NULLP(sp)) { sp 2794 src/class.c ScmObj acc = SCM_NIL, sp; sp 2828 src/class.c SCM_FOR_EACH(sp, (*super)->directSlots) { sp 2829 src/class.c ScmObj slot = SCM_CAR(sp), snam, p, a; sp 2124 src/extlib.c ScmStringPointer* sp; sp 2128 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2132 src/extlib.c SCM_RESULT = Scm_StringPointerRef(sp); sp 2144 src/extlib.c ScmStringPointer* sp; sp 2148 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2152 src/extlib.c SCM_RESULT = Scm_StringPointerNext(sp); sp 2164 src/extlib.c ScmStringPointer* sp; sp 2168 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2172 src/extlib.c SCM_RESULT = Scm_StringPointerPrev(sp); sp 2184 src/extlib.c ScmStringPointer* sp; sp 2190 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2197 src/extlib.c SCM_RESULT = Scm_StringPointerSet(sp, index); sp 2211 src/extlib.c ScmStringPointer* sp; sp 2218 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2224 src/extlib.c SCM_RESULT = (Scm_StringPointerSubstring(sp, !SCM_FALSEP(after))); sp 2236 src/extlib.c ScmStringPointer* sp; sp 2240 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2244 src/extlib.c SCM_RESULT = (sp->index); sp 2256 src/extlib.c ScmStringPointer* sp; sp 2260 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2264 src/extlib.c SCM_RESULT = Scm_StringPointerCopy(sp); sp 2276 src/extlib.c ScmStringPointer* sp; sp 2280 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2284 src/extlib.c SCM_RESULT = (sp->current - sp->start); sp 2297 src/extlib.c ScmStringPointer* sp; sp 2301 src/extlib.c sp = SCM_STRING_POINTER(sp_scm); sp 2303 src/extlib.c Scm_StringPointerDump(sp); sp 1206 src/gauche.h SCM_EXTERN ScmObj Scm_StringPointerRef(ScmStringPointer *sp); sp 1207 src/gauche.h SCM_EXTERN ScmObj Scm_StringPointerNext(ScmStringPointer *sp); sp 1208 src/gauche.h SCM_EXTERN ScmObj Scm_StringPointerPrev(ScmStringPointer *sp); sp 1209 src/gauche.h SCM_EXTERN ScmObj Scm_StringPointerSet(ScmStringPointer *sp, int index); sp 1210 src/gauche.h SCM_EXTERN ScmObj Scm_StringPointerSubstring(ScmStringPointer *sp, int beforep); sp 1211 src/gauche.h SCM_EXTERN ScmObj Scm_StringPointerCopy(ScmStringPointer *sp); sp 1214 src/gauche.h SCM_EXTERN void Scm_StringPointerDump(ScmStringPointer *sp); sp 397 src/gauche/vm.h ScmObj *sp; /* stack pointer */ sp 624 src/list.c ScmObj *seqv, *sp, *tp; sp 629 src/list.c for (sp=seqv; SCM_PAIRP(sequences); sp++, sequences=SCM_CDR(sequences)) { sp 630 src/list.c *sp = SCM_CAR(sequences); sp 635 src/list.c for (sp=seqv; sp<seqv+nseqs; sp++) { sp 636 src/list.c if (!SCM_NULLP(*sp)) break; sp 638 src/list.c if (sp == seqv+nseqs) return Scm_ReverseX(result); sp 642 src/list.c for (sp = seqv; sp < seqv+nseqs; sp++) { sp 643 src/list.c if (!SCM_PAIRP(*sp)) continue; sp 644 src/list.c h = SCM_CAR(*sp); sp 660 src/list.c for (sp = seqv; sp < seqv+nseqs; sp++) { sp 661 src/list.c if (SCM_PAIRP(*sp) && SCM_EQ(next, SCM_CAR(*sp))) { sp 662 src/list.c *sp = SCM_CDR(*sp); sp 272 src/load.c ScmObj sp, fpath; sp 274 src/load.c SCM_FOR_EACH(sp, suffixes) { sp 275 src/load.c fpath = Scm_StringAppend2(SCM_STRING(base), SCM_STRING(SCM_CAR(sp))); sp 445 src/module.c ScmObj mpl, seqh = SCM_NIL, seqt = SCM_NIL, sp; sp 447 src/module.c SCM_FOR_EACH(sp, supers) { sp 448 src/module.c if (!SCM_MODULEP(SCM_CAR(sp))) { sp 450 src/module.c SCM_CAR(sp)); sp 452 src/module.c SCM_APPEND1(seqh, seqt, SCM_MODULE(SCM_CAR(sp))->mpl); sp 835 src/regexp.c ScmObj sp, sp2, e = SCM_UNBOUND, h, t; sp 836 src/regexp.c SCM_FOR_EACH(sp, SCM_CDR(ast)) { sp 837 src/regexp.c e = rc2_optimize(SCM_CAR(sp), rest); sp 838 src/regexp.c if (!SCM_EQ(e, SCM_CAR(sp))) break; sp 840 src/regexp.c if (SCM_NULLP(sp)) return ast; sp 844 src/regexp.c if (SCM_EQ(sp, sp2)) { SCM_APPEND1(h, t, e); break; } sp 1576 src/regexp.c ScmObj sp, sp2, obj, head = SCM_NIL, tail = SCM_NIL; sp 1577 src/regexp.c SCM_FOR_EACH(sp, seq) { sp 1578 src/regexp.c obj = rc_setup_context(ctx, SCM_CAR(sp)); sp 1579 src/regexp.c if (!SCM_EQ(obj, SCM_CAR(sp))) break; sp 1581 src/regexp.c if (SCM_NULLP(sp)) return seq; sp 1584 src/regexp.c if (SCM_EQ(sp2, sp)) break; sp 428 src/signal.c ScmObj tail, cell, sp; sp 468 src/signal.c SCM_FOR_EACH(sp, q->pending) { sp 469 src/signal.c ScmObj h = SCM_CAR(sp); sp 470 src/signal.c q->pending = SCM_CDR(sp); sp 1239 src/string.c ScmStringPointer *sp; sp 1255 src/string.c sp = SCM_NEW(ScmStringPointer); sp 1256 src/string.c SCM_SET_CLASS(sp, SCM_CLASS_STRING_POINTER); sp 1257 src/string.c sp->length = (SCM_STRING_BODY_INCOMPLETE_P(srcb)? -1 : (end-start)); sp 1258 src/string.c sp->size = effective_size; sp 1259 src/string.c sp->start = sptr; sp 1260 src/string.c sp->index = index; sp 1261 src/string.c sp->current = ptr; sp 1262 src/string.c return SCM_OBJ(sp); sp 1268 src/string.c ScmObj Scm_StringPointerRef(ScmStringPointer *sp) sp 1271 src/string.c if (sp->length < 0 || sp->size == sp->length) { sp 1272 src/string.c if (sp->index >= sp->size) return SCM_EOF; sp 1273 src/string.c ch = *sp->current; sp 1275 src/string.c if (sp->index >= sp->length) return SCM_EOF; sp 1276 src/string.c SCM_CHAR_GET(sp->current, ch); sp 1281 src/string.c ScmObj Scm_StringPointerNext(ScmStringPointer *sp) sp 1284 src/string.c if (sp->length < 0 || sp->size == sp->length) { sp 1285 src/string.c if (sp->index >= sp->size) return SCM_EOF; sp 1286 src/string.c sp->index++; sp 1287 src/string.c ch = *sp->current++; sp 1289 src/string.c if (sp->index >= sp->length) return SCM_EOF; sp 1290 src/string.c SCM_CHAR_GET(sp->current, ch); sp 1291 src/string.c sp->index++; sp 1292 src/string.c sp->current += SCM_CHAR_NFOLLOWS(*sp->current) + 1; sp 1297 src/string.c ScmObj Scm_StringPointerPrev(ScmStringPointer *sp) sp 1300 src/string.c if (sp->index <= 0) return SCM_EOF; sp 1301 src/string.c if (sp->length < 0 || sp->size == sp->length) { sp 1302 src/string.c sp->index--; sp 1303 src/string.c ch = *--sp->current; sp 1306 src/string.c SCM_CHAR_BACKWARD(sp->current, sp->start, prev); sp 1309 src/string.c sp->index--; sp 1310 src/string.c sp->current = prev; sp 1315 src/string.c ScmObj Scm_StringPointerSet(ScmStringPointer *sp, int index) sp 1318 src/string.c if (sp->length < 0 || sp->size == sp->length) { sp 1319 src/string.c if (index > sp->size) goto badindex; sp 1320 src/string.c sp->index = index; sp 1321 src/string.c sp->current = sp->start + index; sp 1323 src/string.c if (index > sp->length) goto badindex; sp 1324 src/string.c sp->index = index; sp 1325 src/string.c sp->current = forward_pos(sp->start, index); sp 1327 src/string.c return SCM_OBJ(sp); sp 1333 src/string.c ScmObj Scm_StringPointerSubstring(ScmStringPointer *sp, int afterp) sp 1335 src/string.c if (sp->length < 0) { sp 1337 src/string.c return SCM_OBJ(make_str(-1, sp->size - sp->index, sp->current, 0)); sp 1339 src/string.c return SCM_OBJ(make_str(-1, sp->index, sp->start, 0)); sp 1342 src/string.c return SCM_OBJ(make_str(sp->length - sp->index, sp 1343 src/string.c sp->start + sp->size - sp->current, sp 1344 src/string.c sp->current, 0)); sp 1346 src/string.c return SCM_OBJ(make_str(sp->index, sp 1347 src/string.c sp->current - sp->start, sp 1348 src/string.c sp->start, 0)); sp 1066 src/system.c ScmSysPasswd *sp = SCM_NEW(ScmSysPasswd); sp 1067 src/system.c SCM_SET_CLASS(sp, SCM_CLASS_SYS_PASSWD); sp 1069 src/system.c sp->name = SCM_MAKE_STR_COPYING(pw->pw_name); sp 1070 src/system.c sp->uid = Scm_MakeInteger(pw->pw_uid); sp 1071 src/system.c sp->gid = Scm_MakeInteger(pw->pw_gid); sp 1073 src/system.c sp->passwd = SCM_MAKE_STR_COPYING(pw->pw_passwd); sp 1075 src/system.c sp->passwd = SCM_FALSE; sp 1078 src/system.c sp->gecos = SCM_MAKE_STR_COPYING(pw->pw_gecos); sp 1080 src/system.c sp->gecos = SCM_FALSE; sp 1083 src/system.c sp->pwclass = SCM_MAKE_STR_COPYING(pw->pw_class); sp 1085 src/system.c sp->pwclass = SCM_FALSE; sp 1087 src/system.c sp->dir = SCM_MAKE_STR_COPYING(pw->pw_dir); sp 1088 src/system.c sp->shell = SCM_MAKE_STR_COPYING(pw->pw_shell); sp 1089 src/system.c return SCM_OBJ(sp); sp 26 src/test-vmstack.c ScmObj *pre_stack = Scm_VM()->sp, *post_stack; sp 36 src/test-vmstack.c post_stack = Scm_VM()->sp; sp 182 src/vm.c v->sp = v->stack; sp 341 src/vm.c #define SP sp sp 349 src/vm.c #define SP sp sp 357 src/vm.c #define SP sp sp 365 src/vm.c #define SP vm->sp sp 373 src/vm.c #define SP sp sp 392 src/vm.c ScmObj *VOLATILE sp = vm->sp; \ sp 398 src/vm.c ScmObj *VOLATILE sp = vm->sp; \ sp 404 src/vm.c ScmObj *VOLATILE sp = vm->sp sp 415 src/vm.c ScmObj *VOLATILE sp = vm->sp; \ sp 425 src/vm.c vm->sp = sp; \ sp 432 src/vm.c vm->sp = sp; \ sp 439 src/vm.c vm->sp = sp; \ sp 450 src/vm.c vm->sp = sp; \ sp 464 src/vm.c sp = vm->sp; \ sp 470 src/vm.c sp = vm->sp; \ sp 481 src/vm.c sp = vm->sp; \ sp 2633 src/vm.c (vm->sp - (ScmObj*)vm->argp) * sizeof(ScmObj*)); sp 2634 src/vm.c vm->sp -= (ScmObj*)vm->argp - vm->stackBase; sp 2637 src/vm.c for (p = vm->sp; p < vm->stackEnd; p++) *p = NULL; sp 3810 src/vm.c Scm_Printf(out, " sp: %p base: %p [%p-%p]\n", vm->sp, vm->stackBase, sp 3864 src/vm.c int i, limit = vm->sp - vm->stackBase + 5;