cc 53 src/code.c ScmObj Scm_CompiledCodeFullName(ScmCompiledCode *cc) cc 55 src/code.c if (SCM_COMPILED_CODE_P(cc->parent) cc 56 src/code.c && !SCM_EQ(SCM_COMPILED_CODE(cc->parent)->name, SCM_SYM_TOPLEVEL)) { cc 59 src/code.c SCM_APPEND1(h, t, cc->name); cc 60 src/code.c if (!SCM_COMPILED_CODE_P(cc->parent)) break; cc 61 src/code.c cc = SCM_COMPILED_CODE(cc->parent); cc 62 src/code.c if (SCM_EQ(cc->name, SCM_SYM_TOPLEVEL)) break; cc 66 src/code.c return cc->name; cc 80 src/code.c ScmCompiledCode *cc = SCM_NEW(ScmCompiledCode); cc 81 src/code.c SCM_SET_CLASS(cc, SCM_CLASS_COMPILED_CODE); cc 82 src/code.c cc->code = NULL; cc 83 src/code.c cc->constants = NULL; cc 84 src/code.c cc->maxstack = -1; cc 85 src/code.c cc->info = SCM_NIL; cc 86 src/code.c cc->argInfo = SCM_FALSE; cc 87 src/code.c cc->name = SCM_FALSE; cc 88 src/code.c cc->parent = SCM_FALSE; cc 89 src/code.c cc->builder = NULL; cc 90 src/code.c return cc; cc 127 src/code.c void Scm_CompiledCodeDump(ScmCompiledCode *cc) cc 135 src/code.c cc->name, cc->code, cc->codeSize, cc->constantSize, cc 136 src/code.c cc->maxstack); cc 139 src/code.c p = cc->code; cc 140 src/code.c Scm_Printf(SCM_CUROUT, "args: %S\n", cc->argInfo); cc 141 src/code.c for (i=0; i < cc->codeSize; i++) { cc 148 src/code.c info = Scm_Assq(SCM_MAKE_INT(i), cc->info); cc 167 src/code.c Scm_Printf(out, "%d", (ScmWord*)p[i+1] - cc->code); cc 175 src/code.c Scm_Printf(out, "%S, %d", p[i+1], (ScmWord*)p[i+2] - cc->code); cc 227 src/code.c cc = SCM_COMPILED_CODE(SCM_CAAR(closures)); cc 229 src/code.c SCM_CDAR(closures), cc->name, cc->code, cc 230 src/code.c cc->codeSize, cc->constantSize, cc->maxstack); cc 274 src/code.c #define CC_BUILDER_GET(b, cc) \ cc 276 src/code.c if (cc->builder == NULL) { \ cc 279 src/code.c (b) = (cc_builder*)cc->builder; \ cc 400 src/code.c static void cc_builder_jumpopt(ScmCompiledCode *cc) cc 402 src/code.c ScmWord *cp = cc->code; cc 406 src/code.c for (i=0; i<cc->codeSize; i++) { cc 441 src/code.c ScmCompiledCode *cc = make_compiled_code(); cc 442 src/code.c cc->builder = make_cc_builder(); cc 443 src/code.c cc->requiredArgs = reqargs; cc 444 src/code.c cc->optionalArgs = optargs; cc 445 src/code.c cc->name = name; cc 446 src/code.c cc->parent = parent; cc 447 src/code.c cc->intermediateForm = intForm; cc 448 src/code.c return SCM_OBJ(cc); cc 452 src/code.c ScmObj Scm_CompiledCodeNewLabel(ScmCompiledCode *cc) cc 456 src/code.c CC_BUILDER_GET(b, cc); cc 463 src/code.c void Scm_CompiledCodeSetLabel(ScmCompiledCode *cc, ScmObj label) cc 467 src/code.c CC_BUILDER_GET(b, cc); cc 479 src/code.c void Scm_CompiledCodeFinishBuilder(ScmCompiledCode *cc, int maxstack) cc 486 src/code.c CC_BUILDER_GET(b, cc); cc 488 src/code.c cc->code = SCM_NEW_ATOMIC2(ScmWord *, b->currentIndex * sizeof(ScmWord)); cc 489 src/code.c cc->codeSize = b->currentIndex; cc 507 src/code.c cc->code[i] = bc->code[j]; cc 514 src/code.c cc->constants = SCM_NEW_ARRAY(ScmObj, numConstants); cc 516 src/code.c cc->constants[i] = SCM_CAR(cp); cc 519 src/code.c cc->constantSize = numConstants; cc 530 src/code.c SCM_ASSERT(operandAddr >= 0 && operandAddr < cc->codeSize); cc 531 src/code.c cc->code[operandAddr] = SCM_WORD(cc->code + destAddr); cc 535 src/code.c cc_builder_jumpopt(cc); cc 538 src/code.c cc->info = b->info; cc 541 src/code.c cc->maxstack = maxstack; cc 544 src/code.c cc->builder = NULL; cc 621 src/code.c void Scm_CompiledCodeEmit(ScmCompiledCode *cc, cc 629 src/code.c CC_BUILDER_GET(b, cc); cc 866 src/code.c ScmObj Scm_CompiledCodeToList(ScmCompiledCode *cc) cc 871 src/code.c for (i=0; i<cc->codeSize; i++) { cc 872 src/code.c ScmWord insn = cc->code[i]; cc 895 src/code.c SCM_APPEND1(h, t, SCM_OBJ(cc->code[++i])); cc 898 src/code.c off = (ScmWord*)cc->code[++i] - cc->code; cc 902 src/code.c off = (ScmWord*)cc->code[i+2] - cc->code; cc 903 src/code.c SCM_APPEND(h, t, SCM_LIST2(SCM_OBJ(cc->code[i+1]), cc 912 src/code.c static ScmObj code_size_get(ScmObj cc) cc 914 src/code.c return SCM_MAKE_INT(SCM_COMPILED_CODE(cc)->codeSize); cc 917 src/code.c static ScmObj code_maxstack_get(ScmObj cc) cc 919 src/code.c return SCM_MAKE_INT(SCM_COMPILED_CODE(cc)->maxstack); cc 922 src/code.c static ScmObj code_info_get(ScmObj cc) cc 924 src/code.c return SCM_COMPILED_CODE(cc)->info; cc 927 src/code.c static ScmObj code_arginfo_get(ScmObj cc) cc 929 src/code.c return SCM_COMPILED_CODE(cc)->argInfo; cc 932 src/code.c static ScmObj code_reqargs_get(ScmObj cc) cc 934 src/code.c return SCM_MAKE_INT(SCM_COMPILED_CODE(cc)->requiredArgs); cc 937 src/code.c static ScmObj code_optargs_get(ScmObj cc) cc 939 src/code.c return SCM_MAKE_INT(SCM_COMPILED_CODE(cc)->optionalArgs); cc 942 src/code.c static ScmObj code_name_get(ScmObj cc) cc 944 src/code.c return SCM_COMPILED_CODE(cc)->name; cc 947 src/code.c static ScmObj code_parent_get(ScmObj cc) cc 949 src/code.c return SCM_OBJ(SCM_COMPILED_CODE(cc)->parent); cc 952 src/code.c static ScmObj code_iform_get(ScmObj cc) cc 954 src/code.c return SCM_OBJ(SCM_COMPILED_CODE(cc)->intermediateForm); cc 75 src/compaux.c void Scm_CompileFinish(ScmCompiledCode *cc) cc 77 src/compaux.c if (cc->code == NULL) { cc 80 src/compaux.c if (cc->code == NULL) { cc 82 src/compaux.c SCM_LIST1(SCM_OBJ(cc))); cc 337 src/error.c ScmCompoundCondition *cc = SCM_COMPOUND_CONDITION(c); cc 338 src/error.c SCM_APPEND(h, t, cc->conditions); cc 462 src/error.c ScmObj cc = SCM_CAR(cp); cc 463 src/error.c SCM_APPEND1(h, t, Scm__InternalClassName(Scm_ClassOf(cc))); cc 108 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodeDump(ScmCompiledCode *cc); cc 109 src/gauche/code.h SCM_EXTERN ScmObj Scm_CompiledCodeToList(ScmCompiledCode *cc); cc 110 src/gauche/code.h SCM_EXTERN ScmObj Scm_CompiledCodeFullName(ScmCompiledCode *cc); cc 117 src/gauche/code.h SCM_EXTERN ScmObj Scm_CompiledCodeCurrentInsn(ScmCompiledCode *cc); cc 118 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodeReplaceInsn(ScmCompiledCode *cc, cc 122 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodeFlushInsn(ScmCompiledCode *cc); cc 123 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodePutInsn(ScmCompiledCode *cc, cc 127 src/gauche/code.h SCM_EXTERN ScmObj Scm_CompiledCodeNewLabel(ScmCompiledCode *cc); cc 128 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodeSetLabel(ScmCompiledCode *cc, ScmObj label); cc 129 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodeFinishBuilder(ScmCompiledCode *cc, cc 131 src/gauche/code.h SCM_EXTERN void Scm_CompiledCodeEmit(ScmCompiledCode *cc, cc 743 src/intlib.c ScmCompiledCode* cc; cc 749 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 754 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, SCM_FALSE, SCM_FALSE); cc 765 src/intlib.c ScmCompiledCode* cc; cc 773 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 780 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, operand, SCM_FALSE); cc 791 src/intlib.c ScmCompiledCode* cc; cc 799 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 806 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, SCM_FALSE, info); cc 817 src/intlib.c ScmCompiledCode* cc; cc 827 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 836 src/intlib.c Scm_CompiledCodeEmit(cc, code, 0, 0, operand, info); cc 847 src/intlib.c ScmCompiledCode* cc; cc 855 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 863 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, SCM_FALSE, SCM_FALSE); cc 874 src/intlib.c ScmCompiledCode* cc; cc 884 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 894 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, operand, SCM_FALSE); cc 905 src/intlib.c ScmCompiledCode* cc; cc 915 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 925 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, SCM_FALSE, info); cc 936 src/intlib.c ScmCompiledCode* cc; cc 948 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 960 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, operand, info); cc 971 src/intlib.c ScmCompiledCode* cc; cc 981 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 992 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, SCM_FALSE); cc 1003 src/intlib.c ScmCompiledCode* cc; cc 1015 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 1028 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, SCM_FALSE); cc 1039 src/intlib.c ScmCompiledCode* cc; cc 1051 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 1064 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, info); cc 1075 src/intlib.c ScmCompiledCode* cc; cc 1089 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 1104 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, info); cc 1115 src/intlib.c ScmCompiledCode* cc; cc 1119 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 1123 src/intlib.c SCM_RESULT = Scm_CompiledCodeNewLabel(cc); cc 1135 src/intlib.c ScmCompiledCode* cc; cc 1141 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 1145 src/intlib.c Scm_CompiledCodeSetLabel(cc, label); cc 1156 src/intlib.c ScmCompiledCode* cc; cc 1162 src/intlib.c cc = SCM_COMPILED_CODE(cc_scm); cc 1167 src/intlib.c Scm_CompiledCodeFinishBuilder(cc, maxstack); cc 736 src/read.c int cc = read_string_xdigits(port, 2, 'x', incompletep); cc 737 src/read.c ACCUMULATE(cc); cc 741 src/read.c int cc = read_string_xdigits(port, 4, 'u', incompletep); cc 742 src/read.c ACCUMULATE(Scm_UcsToChar(cc)); cc 746 src/read.c int cc = read_string_xdigits(port, 8, 'U', incompletep); cc 747 src/read.c ACCUMULATE(Scm_UcsToChar(cc)); cc 873 src/string.c ScmChar cc; cc 876 src/string.c SCM_CHAR_GET(p, cc); cc 877 src/string.c ncc = SCM_CHAR_NBYTES(cc); cc 878 src/string.c if (ch == cc) { cc 2974 src/vm.c ScmContFrame *cc; cc 2979 src/vm.c cc = (ScmContFrame*)s; cc 2981 src/vm.c cc->prev = CONT; cc 2982 src/vm.c cc->argp = NULL; cc 2983 src/vm.c cc->size = datasize; cc 2984 src/vm.c cc->pc = (ScmWord*)after; cc 2985 src/vm.c cc->base = BASE; cc 2986 src/vm.c cc->env = ENV; cc 2990 src/vm.c CONT = cc;