code 72 ext/charconv/charconv.c const char* Scm_GetCESName(ScmObj code, const char *argname) code 75 ext/charconv/charconv.c if (SCM_UNBOUNDP(code) || SCM_FALSEP(code)) { code 77 ext/charconv/charconv.c } else if (SCM_STRINGP(code)) { code 78 ext/charconv/charconv.c c = Scm_GetStringConst(SCM_STRING(code)); code 79 ext/charconv/charconv.c } else if (SCM_SYMBOLP(code)) { code 80 ext/charconv/charconv.c c = Scm_GetStringConst(SCM_SYMBOL_NAME(code)); code 83 ext/charconv/charconv.c argname, code); code 96 ext/charconv/charconv.c void Scm_RegisterCodeGuessingProc(const char *code, code 101 ext/charconv/charconv.c rec->codeName = code; code 110 ext/charconv/charconv.c static conv_guess *findGuessingProc(const char *code) code 115 ext/charconv/charconv.c if (strcasecmp(rec->codeName, code) == 0) break; code 489 ext/charconv/charconv.c const char *Scm_GuessCES(const char *code, const char *buf, int buflen) code 491 ext/charconv/charconv.c conv_guess *guess = findGuessingProc(code); code 493 ext/charconv/charconv.c Scm_Error("unknown code guessing scheme: %s", code); code 93 ext/charconv/charconv.h extern const char *Scm_GetCESName(ScmObj code, const char *argname); code 96 ext/charconv/charconv.h extern void Scm_RegisterCodeGuessingProc(const char *code, code 100 ext/charconv/charconv.h extern const char *Scm_GuessCES(const char *code, code 1142 ext/charconv/jconv.c int code; code 1186 ext/charconv/jconv.c return cvtab->code; code 2380 gc/os_dep.c void GC_write_fault_handler(sig, code, scp, addr) code 2381 gc/os_dep.c int sig, code; code 2386 gc/os_dep.c # define CODE_OK (FC_CODE(code) == FC_PROT \ code 2387 gc/os_dep.c || (FC_CODE(code) == FC_OBJERR \ code 2388 gc/os_dep.c && FC_ERRNO(code) == FC_PROT)) code 2398 gc/os_dep.c void GC_write_fault_handler(int sig, int code, struct sigcontext *scp) code 2401 gc/os_dep.c # define CODE_OK (code == 2 /* experimentally determined */) code 2405 gc/os_dep.c # define CODE_OK (code == EACCES) code 2415 gc/os_dep.c void GC_write_fault_handler(int sig, int code, s_c * sc) code 2471 gc/os_dep.c char *addr = (char *) code; code 2587 gc/os_dep.c (*old_handler) (sig, code, scp, addr); code 2601 gc/os_dep.c (*(REAL_SIG_PF)old_handler) (sig, code, sc); code 2612 gc/os_dep.c (*(REAL_SIG_PF)old_handler) (sig, code, scp); code 3784 gc/os_dep.c #define FWD() GC_forward_exception(thread,task,exception,code,code_count) code 3791 gc/os_dep.c exception_type_t exception,exception_data_t code, code 3813 gc/os_dep.c if(exception != EXC_BAD_ACCESS || code[0] != KERN_PROTECTION_FAILURE) { code 3818 gc/os_dep.c code_count > 0 ? code[0] : -1, code 3819 gc/os_dep.c code_count > 1 ? code[1] : -1); code 3903 gc/os_dep.c int exception, exception_data_t code, mach_msg_type_number_t codeCnt, code 3912 gc/os_dep.c int exception, exception_data_t code, mach_msg_type_number_t codeCnt, code 347 gc/pthread_stop_world.c int code; code 395 gc/pthread_stop_world.c while (0 != (code = sem_wait(&GC_suspend_ack_sem))) { code 397 gc/pthread_stop_world.c GC_err_printf1("Sem_wait returned %ld\n", (unsigned long)code); code 482 gc/pthread_support.c int code; code 139 gc/reclaim.c --> potential overflow; fix the code code 41 gc/solaris_threads.c --> Not yet supported. Try porting the code from linux_threads.c. code 547 gc/tests/test.c int code; code 548 gc/tests/test.c if ((code = pthread_create(&t, 0, tiny_reverse_test, 0)) != 0) { code 550 gc/tests/test.c (unsigned long)code); code 553 gc/tests/test.c if ((code = pthread_join(t, 0)) != 0) { code 555 gc/tests/test.c (unsigned long)code); code 1703 gc/tests/test.c int code; code 1711 gc/tests/test.c if (PCR_Th_T_Join(th1, &code, NIL, PCR_allSigsBlocked, PCR_waitForever) code 1712 gc/tests/test.c != PCR_ERes_okay || code != 0) { code 1715 gc/tests/test.c if (PCR_Th_T_Join(th2, &code, NIL, PCR_allSigsBlocked, PCR_waitForever) code 1716 gc/tests/test.c != PCR_ERes_okay || code != 0) { code 1740 gc/tests/test.c int code; code 1749 gc/tests/test.c (void)GC_printf1("Key creation failed %lu\n", (unsigned long)code); code 1752 gc/tests/test.c if ((code = thr_create(0, 1024*1024, thr_run_one_test, 0, 0, &th1)) != 0) { code 1753 gc/tests/test.c (void)GC_printf1("Thread 1 creation failed %lu\n", (unsigned long)code); code 1756 gc/tests/test.c if ((code = thr_create(0, 1024*1024, thr_run_one_test, 0, THR_NEW_LWP, &th2)) != 0) { code 1757 gc/tests/test.c (void)GC_printf1("Thread 2 creation failed %lu\n", (unsigned long)code); code 1761 gc/tests/test.c if ((code = thr_join(th1, 0, 0)) != 0) { code 1762 gc/tests/test.c (void)GC_printf1("Thread 1 failed %lu\n", (unsigned long)code); code 1766 gc/tests/test.c (void)GC_printf1("Thread 2 failed %lu\n", (unsigned long)code); code 1784 gc/tests/test.c int code; code 1789 gc/tests/test.c *((volatile char *)&code - 1024*1024) = 0; /* Require 1 Mb */ code 1822 gc/tests/test.c if ((code = pthread_key_create(&fl_key, 0)) != 0) { code 1823 gc/tests/test.c (void)GC_printf1("Key creation failed %lu\n", (unsigned long)code); code 1826 gc/tests/test.c if ((code = pthread_create(&th1, &attr, thr_run_one_test, 0)) != 0) { code 1827 gc/tests/test.c (void)GC_printf1("Thread 1 creation failed %lu\n", (unsigned long)code); code 1830 gc/tests/test.c if ((code = pthread_create(&th2, &attr, thr_run_one_test, 0)) != 0) { code 1831 gc/tests/test.c (void)GC_printf1("Thread 2 creation failed %lu\n", (unsigned long)code); code 1835 gc/tests/test.c if ((code = pthread_join(th1, 0)) != 0) { code 1836 gc/tests/test.c (void)GC_printf1("Thread 1 failed %lu\n", (unsigned long)code); code 1840 gc/tests/test.c (void)GC_printf1("Thread 2 failed %lu\n", (unsigned long)code); code 25 gc/tests/thread_leak_test.c int code; code 28 gc/tests/thread_leak_test.c if ((code = pthread_create(t + i, 0, test, 0)) != 0) { code 29 gc/tests/thread_leak_test.c printf("Thread creation failed %d\n", code); code 33 gc/tests/thread_leak_test.c if ((code = pthread_join(t[i], 0)) != 0) { code 34 gc/tests/thread_leak_test.c printf("Thread join failed %lu\n", code); code 212 src/char.c int prev, code; code 217 src/char.c for (prev = -1, code = 0; code < SCM_CHARSET_MASK_CHARS; code++) { code 218 src/char.c if (MASK_ISSET(cs, code) && prev < 0) { code 219 src/char.c charset_print_ch(out, code); code 220 src/char.c prev = code; code 222 src/char.c else if (!MASK_ISSET(cs, code) && prev >= 0) { code 223 src/char.c if (code - prev > 1) { code 224 src/char.c if (code - prev > 2) Scm_Printf(out, "-"); code 225 src/char.c charset_print_ch(out, code-1); code 231 src/char.c if (code - prev > 1) { code 233 src/char.c charset_print_ch(out, code-1); code 847 src/char.c int i, code; code 855 src/char.c for (code = 0; code < SCM_CHARSET_MASK_CHARS; code++) { code 856 src/char.c if (isalnum(code)) MASK_SET(CS(SCM_CHARSET_ALNUM), code); code 857 src/char.c if (isalpha(code)) MASK_SET(CS(SCM_CHARSET_ALPHA), code); code 858 src/char.c if (iscntrl(code)) MASK_SET(CS(SCM_CHARSET_CNTRL), code); code 859 src/char.c if (isdigit(code)) MASK_SET(CS(SCM_CHARSET_DIGIT), code); code 860 src/char.c if (isgraph(code)) MASK_SET(CS(SCM_CHARSET_GRAPH), code); code 861 src/char.c if (islower(code)) MASK_SET(CS(SCM_CHARSET_LOWER), code); code 862 src/char.c if (isprint(code)) MASK_SET(CS(SCM_CHARSET_PRINT), code); code 863 src/char.c if (ispunct(code)) MASK_SET(CS(SCM_CHARSET_PUNCT), code); code 864 src/char.c if (isspace(code)) MASK_SET(CS(SCM_CHARSET_SPACE), code); code 865 src/char.c if (isupper(code)) MASK_SET(CS(SCM_CHARSET_UPPER), code); code 866 src/char.c if (isxdigit(code)) MASK_SET(CS(SCM_CHARSET_XDIGIT), code); code 869 src/char.c if (isalnum(code)||code=='_') code 870 src/char.c MASK_SET(CS(SCM_CHARSET_WORD), code); code 872 src/char.c if (code == ' ' || code == '\t') code 873 src/char.c MASK_SET(CS(SCM_CHARSET_BLANK), code); code 2200 src/class.c m->data = SCM_CLOSURE(body)->code; code 82 src/code.c cc->code = NULL; code 114 src/code.c vm->pc = vm->base->code; code 135 src/code.c cc->name, cc->code, cc->codeSize, cc->constantSize, code 139 src/code.c p = cc->code; code 145 src/code.c u_int code; code 149 src/code.c code = SCM_VM_INSN_CODE(insn); code 150 src/code.c insn_name = Scm_VMInsnName(code); code 152 src/code.c switch (Scm_VMInsnNumParams(code)) { code 165 src/code.c switch (Scm_VMInsnOperandType(code)) { code 167 src/code.c Scm_Printf(out, "%d", (ScmWord*)p[i+1] - cc->code); code 175 src/code.c Scm_Printf(out, "%S, %d", p[i+1], (ScmWord*)p[i+2] - cc->code); code 229 src/code.c SCM_CDAR(closures), cc->name, cc->code, code 247 src/code.c ScmWord code[CC_BUILDER_CHUNK_SIZE]; code 307 src/code.c b->chunks->code[ni] = w; code 343 src/code.c u_int code; code 349 src/code.c code = SCM_VM_INSN_CODE(b->currentInsn); code 350 src/code.c switch (Scm_VMInsnOperandType(code)) { code 402 src/code.c ScmWord *cp = cc->code; code 403 src/code.c u_int code, i; code 407 src/code.c code = SCM_VM_INSN_CODE(*cp); cp++; code 408 src/code.c switch (Scm_VMInsnOperandType(code)) { code 420 src/code.c || (code == SCM_VM_BF code 488 src/code.c cc->code = SCM_NEW_ATOMIC2(ScmWord *, b->currentIndex * sizeof(ScmWord)); code 507 src/code.c cc->code[i] = bc->code[j]; code 531 src/code.c cc->code[operandAddr] = SCM_WORD(cc->code + destAddr); code 622 src/code.c int code, /* instruction code number */ code 636 src/code.c switch (code) { code 838 src/code.c switch (Scm_VMInsnNumParams(code)) { code 839 src/code.c case 0: PUT(INSN(code), operand); break; code 840 src/code.c case 1: PUT(INSN1(code, arg0), operand); break; code 841 src/code.c case 2: PUT(INSN2(code, arg0, arg1), operand); break; code 872 src/code.c ScmWord insn = cc->code[i]; code 873 src/code.c int code = SCM_VM_INSN_CODE(insn); code 874 src/code.c const char *name = Scm_VMInsnName(code); code 876 src/code.c switch (Scm_VMInsnNumParams(code)) { code 891 src/code.c switch (Scm_VMInsnOperandType(code)) { code 895 src/code.c SCM_APPEND1(h, t, SCM_OBJ(cc->code[++i])); code 898 src/code.c off = (ScmWord*)cc->code[++i] - cc->code; code 902 src/code.c off = (ScmWord*)cc->code[i+2] - cc->code; code 903 src/code.c SCM_APPEND(h, t, SCM_LIST2(SCM_OBJ(cc->code[i+1]), code 986 src/code.c #define CHECK_CODE(code) \ code 988 src/code.c if (code >= SCM_VM_NUM_INSNS) { \ code 989 src/code.c Scm_Error("invalid VM instruction code: %d", code); \ code 993 src/code.c const char *Scm_VMInsnName(u_int code) code 995 src/code.c CHECK_CODE(code); code 996 src/code.c return insn_table[code].name; code 999 src/code.c int Scm_VMInsnNumParams(u_int code) code 1001 src/code.c CHECK_CODE(code); code 1002 src/code.c return insn_table[code].nparams; code 1005 src/code.c int Scm_VMInsnOperandType(u_int code) code 1007 src/code.c CHECK_CODE(code); code 1008 src/code.c return insn_table[code].operandType; code 1035 src/code.c int len = Scm_Length(obj), code, arg0, arg1; code 1038 src/code.c code = Scm_VMInsnNameToCode(SCM_CAR(obj)); code 1040 src/code.c switch (Scm_VMInsnNumParams(code)) { code 1046 src/code.c return SCM_VM_INSN(code); code 1054 src/code.c return SCM_VM_INSN1(code, arg0); code 1064 src/code.c return SCM_VM_INSN2(code, arg0, arg1); code 77 src/compaux.c if (cc->code == NULL) { code 80 src/compaux.c if (cc->code == NULL) { code 288 src/core.c void Scm_Exit(int code) code 291 src/core.c exit(code); code 52 src/dl_win.c DWORD code = GetLastError(); code 53 src/dl_win.c sprintf(buf, "error code %d", code); code 5259 src/extlib.c int code; code 5270 src/extlib.c code = SCM_INT_VALUE(code_scm); code 5272 src/extlib.c Scm_Exit(code); code 5904 src/extlib.c SCM_RESULT = (clo->code); code 2266 src/gauche.h ScmObj code; /* compiled code */ code 2274 src/gauche.h SCM_EXTERN ScmObj Scm_MakeClosure(ScmObj code, ScmEnvFrame *env); code 2443 src/gauche.h SCM_EXTERN ScmObj Scm_MakePromise(int forced, ScmObj code); code 2500 src/gauche.h const unsigned char *code; code 2837 src/gauche.h SCM_EXTERN void Scm_Exit(int code); code 47 src/gauche/code.h ScmWord *code; /* Code vector (*1). This is allocated as code 102 src/gauche/code.h #define SCM_COMPILED_CODE_CONST_INITIALIZER(code, codesize, maxstack, reqargs, optargs, name, info, arginfo, parent, iform) \ code 104 src/gauche/code.h (code), NULL, (codesize), 0, (maxstack), \ code 132 src/gauche/code.h int code, code 154 src/gauche/code.h #define SCM_VM_INSN(code) SCM_WORD(code) code 155 src/gauche/code.h #define SCM_VM_INSN1(code, arg) SCM_WORD((long)((arg)<<8) | (code)) code 156 src/gauche/code.h #define SCM_VM_INSN2(code, arg0, arg1) \ code 157 src/gauche/code.h SCM_WORD((long)((arg1) << 18) | ((arg0) << 8) | (code)) code 169 src/gauche/code.h SCM_EXTERN const char *Scm_VMInsnName(u_int code); code 170 src/gauche/code.h SCM_EXTERN int Scm_VMInsnNumParams(u_int code); code 171 src/gauche/code.h SCM_EXTERN int Scm_VMInsnOperandType(u_int code); code 214 src/gauche/exception.h int code; /* exit code */ code 441 src/gauche/vm.h SCM_EXTERN ScmObj Scm_VMGetSourceInfo(ScmCompiledCode *code, SCM_PCTYPE pc); code 442 src/gauche/vm.h SCM_EXTERN ScmObj Scm_VMGetBindInfo(ScmCompiledCode *code, SCM_PCTYPE pc); code 469 src/intlib.c ScmCompiledCode* code; code 473 src/intlib.c code = SCM_COMPILED_CODE(code_scm); code 477 src/intlib.c SCM_RESULT = (Scm_MakeClosure(SCM_OBJ(code), NULL)); code 745 src/intlib.c int code; code 752 src/intlib.c code = Scm_GetInteger(code_scm); code 754 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, SCM_FALSE, SCM_FALSE); code 767 src/intlib.c int code; code 776 src/intlib.c code = Scm_GetInteger(code_scm); code 780 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, operand, SCM_FALSE); code 793 src/intlib.c int code; code 802 src/intlib.c code = Scm_GetInteger(code_scm); code 806 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, SCM_FALSE, info); code 819 src/intlib.c int code; code 830 src/intlib.c code = Scm_GetInteger(code_scm); code 836 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, operand, info); code 849 src/intlib.c int code; code 858 src/intlib.c code = Scm_GetInteger(code_scm); code 863 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, SCM_FALSE, SCM_FALSE); code 876 src/intlib.c int code; code 887 src/intlib.c code = Scm_GetInteger(code_scm); code 894 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, operand, SCM_FALSE); code 907 src/intlib.c int code; code 918 src/intlib.c code = Scm_GetInteger(code_scm); code 925 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, SCM_FALSE, info); code 938 src/intlib.c int code; code 951 src/intlib.c code = Scm_GetInteger(code_scm); code 960 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, operand, info); code 973 src/intlib.c int code; code 984 src/intlib.c code = Scm_GetInteger(code_scm); code 992 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, SCM_FALSE); code 1005 src/intlib.c int code; code 1018 src/intlib.c code = Scm_GetInteger(code_scm); code 1028 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, SCM_FALSE); code 1041 src/intlib.c int code; code 1054 src/intlib.c code = Scm_GetInteger(code_scm); code 1064 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, info); code 1077 src/intlib.c int code; code 1092 src/intlib.c code = Scm_GetInteger(code_scm); code 1104 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, info); code 1182 src/intlib.c ScmCompiledCode* code; code 1186 src/intlib.c code = SCM_COMPILED_CODE(code_scm); code 1188 src/intlib.c Scm_CompiledCodeDump(code); code 1199 src/intlib.c ScmCompiledCode* code; code 1203 src/intlib.c code = SCM_COMPILED_CODE(code_scm); code 1207 src/intlib.c SCM_RESULT = Scm_CompiledCodeToList(code); code 67 src/proc.c ScmObj Scm_MakeClosure(ScmObj code, ScmEnvFrame *env) code 73 src/proc.c SCM_ASSERT(SCM_COMPILED_CODE(code)); code 74 src/proc.c info = Scm_CompiledCodeFullName(SCM_COMPILED_CODE(code)); code 75 src/proc.c req = SCM_COMPILED_CODE_REQUIRED_ARGS(code); code 76 src/proc.c opt = SCM_COMPILED_CODE_OPTIONAL_ARGS(code); code 80 src/proc.c c->code = code; code 82 src/proc.c SCM_PROCEDURE(c)->inliner = SCM_COMPILED_CODE(code)->intermediateForm; code 72 src/promise.c ScmObj code; code 96 src/promise.c ScmObj Scm_MakePromise(int forced, ScmObj code) code 102 src/promise.c c->code = code; code 123 src/promise.c p->content->code = SCM_PROMISE(result)->content->code; code 130 src/promise.c p->content->code = result; code 142 src/promise.c if (p->content->forced) SCM_RETURN(p->content->code); code 145 src/promise.c SCM_RETURN(Scm_VMApply0(p->content->code)); code 819 src/read.c int code = Scm_ReadXdigitsFromString(cname+1, namesize-1, NULL); code 820 src/read.c if (code < 0) goto unknown; code 821 src/read.c return SCM_MAKE_CHAR(code); code 825 src/read.c int code; code 827 src/read.c code = Scm_ReadXdigitsFromString(cname+1, namesize-1, NULL); code 828 src/read.c if (code >= 0) return SCM_MAKE_CHAR(Scm_UcsToChar(code)); code 192 src/regexp.c rx->code = NULL; code 251 src/regexp.c unsigned char *code; /* [pass3] code being built */ code 269 src/regexp.c ctx->code = NULL; code 933 src/regexp.c static void rc3_emit(regcomp_ctx *ctx, char code) code 937 src/regexp.c ctx->code[ctx->codep++] = code; code 952 src/regexp.c ctx->code[ctx->codep++] = (offset>>8) & 0xff; code 953 src/regexp.c ctx->code[ctx->codep++] = offset & 0xff; code 968 src/regexp.c ctx->code[codep] = (offset >> 8) & 0xff; code 969 src/regexp.c ctx->code[codep+1] = offset & 0xff; code 1002 src/regexp.c ctx->code[ocodep] = code 1004 src/regexp.c ctx->code[ocodep+1] = ctx->code[ocodep+2]; code 1007 src/regexp.c ctx->code[ocodep+1] = (char)nrun; code 1352 src/regexp.c ctx->code = SCM_NEW_ATOMIC2(unsigned char *, ctx->codemax); code 1356 src/regexp.c ctx->rx->code = ctx->code; code 1376 src/regexp.c switch (rx->code[codep]) { code 1382 src/regexp.c (rx->code[codep-1]==RE_MATCH1? "MATCH1":"MATCH1_CI"), code 1383 src/regexp.c rx->code[codep], rx->code[codep]); code 1389 src/regexp.c u_int numchars = (u_int)rx->code[codep]; code 1393 src/regexp.c (rx->code[codep-1]==RE_MATCH? "MATCH":"MATCH_CI"), code 1396 src/regexp.c Scm_Printf(SCM_CUROUT, "%c", rx->code[++codep]); code 1406 src/regexp.c (rx->code[codep])*256 + rx->code[codep+1]); code 1412 src/regexp.c codep-1, rx->code[codep], code 1413 src/regexp.c rx->sets[rx->code[codep]]); code 1418 src/regexp.c codep-1, rx->code[codep], code 1419 src/regexp.c rx->sets[rx->code[codep]]); code 1424 src/regexp.c codep-1, rx->code[codep], code 1425 src/regexp.c rx->sets[rx->code[codep]]); code 1430 src/regexp.c codep-1, rx->code[codep], code 1431 src/regexp.c rx->sets[rx->code[codep]]); code 1436 src/regexp.c (rx->code[codep])*256 + rx->code[codep+1]); code 1447 src/regexp.c Scm_Printf(SCM_CUROUT, "%4d BEGIN %d\n", codep-1, rx->code[codep]); code 1451 src/regexp.c Scm_Printf(SCM_CUROUT, "%4d END %d\n", codep-1, rx->code[codep]); code 1467 src/regexp.c codep, rx->code[codep+1], rx->code[codep+1], code 1468 src/regexp.c rx->code[codep+2]*256+rx->code[codep+3]); code 1474 src/regexp.c codep-1, rx->code[codep], code 1475 src/regexp.c rx->sets[rx->code[codep]]); code 1480 src/regexp.c codep-1, rx->code[codep], code 1481 src/regexp.c rx->sets[rx->code[codep]]); code 1486 src/regexp.c codep-1, rx->code[codep], code 1487 src/regexp.c rx->sets[rx->code[codep]]); code 1492 src/regexp.c codep-1, rx->code[codep], code 1493 src/regexp.c rx->sets[rx->code[codep]]); code 1498 src/regexp.c (rx->code[codep])*256 + rx->code[codep+1]); code 1504 src/regexp.c (rx->code[codep])*256 + rx->code[codep+1]); code 1689 src/regexp.c static int match_ci(const char **input, const unsigned char **code, int length) code 1695 src/regexp.c c = *(*code)++; code 1701 src/regexp.c if ((unsigned char)*(*code)++ != (unsigned char)*(*input)++) code 1738 src/regexp.c static void rex_rec(const unsigned char *code, code 1754 src/regexp.c switch(*code++) { code 1756 src/regexp.c param = *code++; code 1759 src/regexp.c if (*code++ != (unsigned char)*input++) return; code 1764 src/regexp.c if (*code++ != (unsigned char)*input++) return; code 1767 src/regexp.c param = *code++; code 1769 src/regexp.c if (!match_ci(&input, &code, param)) return; code 1775 src/regexp.c || (*code++)!=SCM_CHAR_DOWNCASE(param)) { code 1784 src/regexp.c rex_rec(code+2, input, ctx, mlist); code 1785 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; code 1788 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; code 1793 src/regexp.c if (!Scm_CharSetContains(ctx->rx->sets[*code++], *input)) return; code 1799 src/regexp.c if (Scm_CharSetContains(ctx->rx->sets[*code++], *input)) code 1803 src/regexp.c code++; code 1810 src/regexp.c cset = ctx->rx->sets[*code++]; code 1817 src/regexp.c cset = ctx->rx->sets[*code++]; code 1822 src/regexp.c mlist = push_match(mlist, *code++, input); code 1825 src/regexp.c mlist = push_match(mlist, -(*code++), input); code 1847 src/regexp.c cset = ctx->rx->sets[*code++]; code 1856 src/regexp.c cset = ctx->rx->sets[*code++]; code 1868 src/regexp.c cset = ctx->rx->sets[*code++]; code 1877 src/regexp.c cset = ctx->rx->sets[*code++]; code 1889 src/regexp.c rex_rec(code+2, input, ctx, mlist); code 1893 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; code 1902 src/regexp.c rex_rec(code+2, input, ctx, mlist); code 1903 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; code 1967 src/regexp.c ctx.codehead = rx->code; code 1196 src/syslib.c int code; code 1200 src/syslib.c code = SCM_INT_VALUE(code_scm); code 1202 src/syslib.c _exit(code); code 714 src/vm.c FETCH_INSN(code); \ code 715 src/vm.c goto *dispatch_table[SCM_VM_INSN_CODE(code)]; \ code 741 src/vm.c ScmWord code = 0; code 773 src/vm.c FETCH_INSN(code); code 774 src/vm.c SWITCH(SCM_VM_INSN_CODE(code)) { code 806 src/vm.c int reqstack = SCM_VM_INSN_ARG(code); code 897 src/vm.c vm->base = SCM_COMPILED_CODE(SCM_CLOSURE(VAL0)->code); code 898 src/vm.c PC = vm->base->code; code 1005 src/vm.c PC = vm->base->code; code 1134 src/vm.c int dep = SCM_VM_INSN_ARG0(code); code 1135 src/vm.c int off = SCM_VM_INSN_ARG1(code); code 1166 src/vm.c int dep = SCM_VM_INSN_ARG0(code); code 1167 src/vm.c int off = SCM_VM_INSN_ARG1(code); code 1191 src/vm.c int env_depth = SCM_VM_INSN_ARG(code); code 1268 src/vm.c vm->base = SCM_COMPILED_CODE(SCM_CLOSURE(VAL0)->code); code 1269 src/vm.c PC = vm->base->code; code 1275 src/vm.c int nlocals = SCM_VM_INSN_ARG(code); code 1343 src/vm.c int dep = SCM_VM_INSN_ARG0(code); code 1344 src/vm.c int off = SCM_VM_INSN_ARG1(code); code 1361 src/vm.c flags = SCM_VM_INSN_ARG(code); code 1465 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 1527 src/vm.c int reqargs = SCM_VM_INSN_ARG0(code); code 1528 src/vm.c int restarg = SCM_VM_INSN_ARG1(code); code 1540 src/vm.c if (SCM_VM_INSN_CODE(code) == SCM_VM_RECEIVE) { code 1571 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 1588 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 1768 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 1784 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 1913 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 1938 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 1948 src/vm.c if (SCM_VM_INSN_CODE(code) == SCM_VM_APPLY) { code 1960 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 1983 src/vm.c int nargs = SCM_VM_INSN_ARG(code), i; code 1997 src/vm.c int nargs = SCM_VM_INSN_ARG(code), i; code 2013 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 2053 src/vm.c int k = SCM_VM_INSN_ARG(code); code 2079 src/vm.c int k = SCM_VM_INSN_ARG(code); code 2216 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2234 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2252 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2270 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2288 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2306 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2325 src/vm.c long imm = SCM_VM_INSN_ARG(code); code 2342 src/vm.c int nargs = SCM_VM_INSN_ARG(code), ch = 0; code 2358 src/vm.c int nargs = SCM_VM_INSN_ARG(code), ch = 0; code 2374 src/vm.c int nargs = SCM_VM_INSN_ARG(code); code 2449 src/vm.c SCM_VM_INSN_CODE(code)); code 2810 src/vm.c vm->pc = SCM_COMPILED_CODE(v)->code; code 2856 src/vm.c PC = vm->base->code; code 2951 src/vm.c ScmWord *code = SCM_NEW_ARRAY(ScmWord, 3); code 2957 src/vm.c code[0] = SCM_WORD(SCM_VM_INSN1(SCM_VM_CONST_APPLY, nargs)); code 2958 src/vm.c code[1] = SCM_WORD(Scm_Cons(proc, args)); code 2959 src/vm.c code[2] = SCM_WORD(SCM_VM_INSN(SCM_VM_RET)); code 2963 src/vm.c return user_eval_inner(program, code); code 3752 src/vm.c || (pc < base->code && pc >= base->code + base->codeSize)) { code 3755 src/vm.c off = pc - base->code - 1; /* pc is already incremented, so -1. */ code 47 src/vmstat.c static ScmWord fetch_insn_counting(ScmVM *vm, ScmWord code) code 49 src/vmstat.c if (vm->base && vm->pc != vm->base->code) { code 50 src/vmstat.c insn2_freq[SCM_VM_INSN_CODE(code)][SCM_VM_INSN_CODE(*vm->pc)]++; code 52 src/vmstat.c code = *vm->pc++; code 53 src/vmstat.c insn1_freq[SCM_VM_INSN_CODE(code)]++; code 54 src/vmstat.c switch (SCM_VM_INSN_CODE(code)) { code 67 src/vmstat.c int dep = SCM_VM_INSN_ARG0(code); code 68 src/vmstat.c int off = SCM_VM_INSN_ARG1(code); code 81 src/vmstat.c int dep = SCM_VM_INSN_ARG0(code); code 82 src/vmstat.c int off = SCM_VM_INSN_ARG1(code); code 89 src/vmstat.c return code;