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;