arg0 623 src/code.c int arg0, /* instruction code parameter 0 */ arg0 645 src/code.c if (arg0 < 4 && arg1 < 4) { arg0 646 src/code.c int insn = lrefs[arg0][arg1]; arg0 652 src/code.c PUT(INSN2(SCM_VM_LREF, arg0, arg1), SCM_FALSE); arg0 720 src/code.c SUB(INSN1(SCM_VM_GREF_CALL, arg0)); break; arg0 722 src/code.c SUB(INSN1(SCM_VM_PUSH_GREF_CALL, arg0)); break; arg0 724 src/code.c SUB(INSN1(SCM_VM_LREF0_PUSH_GREF_CALL, arg0)); break; arg0 726 src/code.c PUT(INSN1(SCM_VM_CALL, arg0), SCM_FALSE); arg0 736 src/code.c SUB(INSN1(SCM_VM_GREF_TAIL_CALL, arg0)); break; arg0 738 src/code.c SUB(INSN1(SCM_VM_PUSH_GREF_TAIL_CALL, arg0)); break; arg0 740 src/code.c SUB(INSN1(SCM_VM_LREF0_PUSH_GREF_TAIL_CALL, arg0)); break; arg0 742 src/code.c PUT(INSN1(SCM_VM_TAIL_CALL, arg0), SCM_FALSE); arg0 750 src/code.c SUBO(INSN1(SCM_VM_PUSH_PRE_CALL, arg0), operand); arg0 752 src/code.c PUT(INSN1(SCM_VM_PRE_CALL, arg0), operand); arg0 761 src/code.c SUBO(INSN1(SCM_VM_PUSH_GREF, arg0), operand); arg0 764 src/code.c SUBO(INSN1(SCM_VM_LREF0_PUSH_GREF, arg0), operand); arg0 768 src/code.c PUT(INSN1(SCM_VM_GREF, arg0), operand); arg0 775 src/code.c SUBO(INSN1(SCM_VM_PUSH_LOCAL_ENV, arg0), SCM_FALSE); arg0 777 src/code.c PUT(INSN1(SCM_VM_LOCAL_ENV, arg0), SCM_FALSE); arg0 824 src/code.c case SCM_VM_LREF0: SUB(INSN1(SCM_VM_LREF0_NUMADDI, arg0)); break; arg0 825 src/code.c case SCM_VM_LREF1: SUB(INSN1(SCM_VM_LREF1_NUMADDI, arg0)); break; arg0 826 src/code.c case SCM_VM_LREF2: SUB(INSN1(SCM_VM_LREF2_NUMADDI, arg0)); break; arg0 827 src/code.c case SCM_VM_LREF3: SUB(INSN1(SCM_VM_LREF3_NUMADDI, arg0)); break; arg0 828 src/code.c case SCM_VM_LREF4: SUB(INSN1(SCM_VM_LREF4_NUMADDI, arg0)); break; arg0 830 src/code.c PUT(INSN1(SCM_VM_NUMADDI, arg0), SCM_FALSE); arg0 840 src/code.c case 1: PUT(INSN1(code, arg0), operand); break; arg0 841 src/code.c case 2: PUT(INSN2(code, arg0, arg1), operand); break; arg0 1035 src/code.c int len = Scm_Length(obj), code, arg0, arg1; arg0 1053 src/code.c arg0 = SCM_INT_VALUE(SCM_CADR(obj)); arg0 1054 src/code.c return SCM_VM_INSN1(code, arg0); arg0 1062 src/code.c arg0 = SCM_INT_VALUE(SCM_CADR(obj)); arg0 1064 src/code.c return SCM_VM_INSN2(code, arg0, arg1); arg0 383 src/extlib.c ScmObj arg0; arg0 389 src/extlib.c arg0 = (arg0_scm); arg0 394 src/extlib.c Scm_MinMax(arg0, args, &min, &max); arg0 2176 src/gauche.h SCM_EXTERN void Scm_MinMax(ScmObj arg0, ScmObj args, ScmObj *min, ScmObj *max); arg0 133 src/gauche/code.h int arg0, arg0 156 src/gauche/code.h #define SCM_VM_INSN2(code, arg0, arg1) \ arg0 157 src/gauche/code.h SCM_WORD((long)((arg1) << 18) | ((arg0) << 8) | (code)) arg0 851 src/intlib.c int arg0; arg0 861 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 863 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, SCM_FALSE, SCM_FALSE); arg0 878 src/intlib.c int arg0; arg0 890 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 894 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, operand, SCM_FALSE); arg0 909 src/intlib.c int arg0; arg0 921 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 925 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, SCM_FALSE, info); arg0 940 src/intlib.c int arg0; arg0 954 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 960 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, 0, operand, info); arg0 975 src/intlib.c int arg0; arg0 987 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 992 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, SCM_FALSE); arg0 1007 src/intlib.c int arg0; arg0 1021 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 1028 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, SCM_FALSE); arg0 1043 src/intlib.c int arg0; arg0 1057 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 1064 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, info); arg0 1079 src/intlib.c int arg0; arg0 1095 src/intlib.c arg0 = Scm_GetInteger(arg0_scm); arg0 1104 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, info); arg0 865 src/number.c #define APPLY_GENERIC_ARITH(v, gf, arg0, arg1, args) \ arg0 867 src/number.c v = Scm_Apply(SCM_OBJ(&gf), SCM_LIST2(arg0, arg1)); \ arg0 878 src/number.c ScmObj Scm_Add(ScmObj arg0, ScmObj arg1, ScmObj args) arg0 885 src/number.c if (SCM_INTP(arg0)) { arg0 886 src/number.c result_int = SCM_INT_VALUE(arg0); arg0 892 src/number.c arg0 = Scm_MakeBignumFromSI(result_int); arg0 896 src/number.c arg0 = Scm_BignumAdd(SCM_BIGNUM(Scm_MakeBignumFromSI(result_int)), arg0 907 src/number.c APPLY_GENERIC_ARITH(arg0, generic_add, arg0 915 src/number.c if (!SCM_PAIRP(args)) return arg0; arg0 919 src/number.c if (SCM_BIGNUMP(arg0)) { arg0 922 src/number.c return Scm_BignumAddN(SCM_BIGNUM(arg0), Scm_Cons(arg1, args)); arg0 924 src/number.c APPLY_GENERIC_ARITH(arg0, generic_add, arg0, arg1, args); arg0 927 src/number.c if (SCM_FLONUMP(arg0)) { arg0 928 src/number.c result_real = SCM_FLONUM_VALUE(arg0); arg0 941 src/number.c APPLY_GENERIC_ARITH(arg0, generic_add, arg0 950 src/number.c if (SCM_COMPLEXP(arg0)) { arg0 951 src/number.c result_real = SCM_COMPLEX_REAL(arg0); arg0 952 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); arg0 965 src/number.c APPLY_GENERIC_ARITH(arg0, generic_add, arg0 977 src/number.c APPLY_GENERIC_ARITH(arg0, generic_add, arg0 978 src/number.c arg0, arg1, args); arg0 982 src/number.c ScmObj Scm_Subtract(ScmObj arg0, ScmObj arg1, ScmObj args) arg0 991 src/number.c if (SCM_INTP(arg0)) { arg0 992 src/number.c result_int = SCM_INT_VALUE(arg0); arg0 1011 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0 1020 src/number.c if (SCM_BIGNUMP(arg0)) { arg0 1022 src/number.c return Scm_BignumSubN(SCM_BIGNUM(arg0), Scm_Cons(arg1, args)); arg0 1024 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0, arg1, args); arg0 1027 src/number.c if (SCM_FLONUMP(arg0)) { arg0 1028 src/number.c result_real = SCM_FLONUM_VALUE(arg0); arg0 1040 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0 1050 src/number.c if (SCM_COMPLEXP(arg0)) { arg0 1051 src/number.c result_real = SCM_COMPLEX_REAL(arg0); arg0 1052 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); arg0 1065 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0 1076 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0, arg1, args); arg0 1084 src/number.c ScmObj Scm_Multiply(ScmObj arg0, ScmObj arg1, ScmObj args) arg0 1090 src/number.c if (SCM_INTP(arg0)) { arg0 1091 src/number.c result_int = SCM_INT_VALUE(arg0); arg0 1101 src/number.c arg0 = Scm_BignumMulSI(SCM_BIGNUM(big), vv); arg0 1106 src/number.c arg0 = Scm_BignumMulSI(SCM_BIGNUM(arg1), result_int); arg0 1116 src/number.c APPLY_GENERIC_ARITH(arg0, generic_mul, arg0 1123 src/number.c if (!SCM_PAIRP(args)) return arg0; arg0 1128 src/number.c if (SCM_BIGNUMP(arg0)) { arg0 1129 src/number.c return Scm_BignumMulN(SCM_BIGNUM(arg0), Scm_Cons(arg1, args)); arg0 1131 src/number.c if (SCM_FLONUMP(arg0)) { arg0 1132 src/number.c result_real = SCM_FLONUM_VALUE(arg0); arg0 1145 src/number.c APPLY_GENERIC_ARITH(arg0, generic_mul, arg0 1153 src/number.c if (SCM_COMPLEXP(arg0)) { arg0 1154 src/number.c result_real = SCM_COMPLEX_REAL(arg0); arg0 1155 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); arg0 1175 src/number.c APPLY_GENERIC_ARITH(arg0, generic_mul, arg0 1187 src/number.c APPLY_GENERIC_ARITH(arg0, generic_mul, arg0 1188 src/number.c arg0, arg1, args); arg0 1196 src/number.c ScmObj Scm_Divide(ScmObj arg0, ScmObj arg1, ScmObj args) arg0 1204 src/number.c if (SCM_INTP(arg0)) { arg0 1205 src/number.c result_real = (double)SCM_INT_VALUE(arg0); arg0 1208 src/number.c if (SCM_BIGNUMP(arg0)) { arg0 1213 src/number.c ScmObj div = Scm_BignumDivSI(SCM_BIGNUM(arg0), arg0 1217 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); arg0 1225 src/number.c ScmObj divrem = Scm_BignumDivRem(SCM_BIGNUM(arg0), SCM_BIGNUM(arg1)); arg0 1227 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); arg0 1236 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); arg0 1241 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); arg0 1244 src/number.c APPLY_GENERIC_ARITH(arg0, generic_div, arg0, arg1, args); arg0 1246 src/number.c if (SCM_FLONUMP(arg0)) { arg0 1247 src/number.c result_real = SCM_FLONUM_VALUE(arg0); arg0 1261 src/number.c APPLY_GENERIC_ARITH(arg0, generic_div, arg0 1272 src/number.c if (SCM_COMPLEXP(arg0)) { arg0 1274 src/number.c result_real = SCM_COMPLEX_REAL(arg0); arg0 1275 src/number.c result_imag = SCM_COMPLEX_IMAG(arg0); arg0 1289 src/number.c APPLY_GENERIC_ARITH(arg0, generic_div, arg0 1305 src/number.c APPLY_GENERIC_ARITH(arg0, generic_div, arg0, arg1, args); arg0 1590 src/number.c int Scm_NumEq(ScmObj arg0, ScmObj arg1) arg0 1592 src/number.c if (SCM_COMPLEXP(arg0)) { arg0 1594 src/number.c return ((SCM_COMPLEX_REAL(arg0) == SCM_COMPLEX_REAL(arg1)) arg0 1595 src/number.c && (SCM_COMPLEX_IMAG(arg0) == SCM_COMPLEX_IMAG(arg1))); arg0 1600 src/number.c return (Scm_NumCmp(arg0, arg1) == 0); arg0 1605 src/number.c int Scm_NumCmp(ScmObj arg0, ScmObj arg1) arg0 1609 src/number.c if (SCM_INTP(arg0)) { arg0 1611 src/number.c long r = SCM_INT_VALUE(arg0) - SCM_INT_VALUE(arg1); arg0 1617 src/number.c double r = SCM_INT_VALUE(arg0) - SCM_FLONUM_VALUE(arg1); arg0 1623 src/number.c return Scm_BignumCmp(SCM_BIGNUM(Scm_MakeBignumFromSI(SCM_INT_VALUE(arg0))), arg0 1627 src/number.c else if (SCM_FLONUMP(arg0)) { arg0 1629 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_INT_VALUE(arg1); arg0 1635 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_FLONUM_VALUE(arg1); arg0 1641 src/number.c return Scm_BignumCmp(SCM_BIGNUM(Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(arg0))), arg0 1645 src/number.c else if (SCM_BIGNUMP(arg0)) { arg0 1647 src/number.c return Scm_BignumCmp(SCM_BIGNUM(arg0), arg0 1650 src/number.c return Scm_BignumCmp(SCM_BIGNUM(arg0), arg0 1653 src/number.c return Scm_BignumCmp(SCM_BIGNUM(arg0), SCM_BIGNUM(arg1)); arg0 1656 src/number.c else badnum = arg0; arg0 1661 src/number.c void Scm_MinMax(ScmObj arg0, ScmObj args, ScmObj *min, ScmObj *max) arg0 1663 src/number.c int inexact = !SCM_EXACTP(arg0); arg0 1664 src/number.c ScmObj mi = arg0; arg0 1665 src/number.c ScmObj ma = arg0; arg0 1668 src/number.c if (!SCM_REALP(arg0)) arg0 1669 src/number.c Scm_Error("real number required, but got %S", arg0); arg0 225 src/stdlib.c ScmObj arg0; arg0 233 src/stdlib.c arg0 = (arg0_scm); arg0 240 src/stdlib.c if (!Scm_NumEq(arg0, arg1)) return SCM_FALSE; arg0 253 src/stdlib.c ScmObj arg0; arg0 261 src/stdlib.c arg0 = (arg0_scm); arg0 268 src/stdlib.c if (Scm_NumCmp(arg0, arg1) >= 0) return SCM_FALSE; arg0 270 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args); arg0 281 src/stdlib.c ScmObj arg0; arg0 289 src/stdlib.c arg0 = (arg0_scm); arg0 296 src/stdlib.c if (Scm_NumCmp(arg0, arg1) > 0) return SCM_FALSE; arg0 298 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args); arg0 309 src/stdlib.c ScmObj arg0; arg0 317 src/stdlib.c arg0 = (arg0_scm); arg0 324 src/stdlib.c if (Scm_NumCmp(arg0, arg1) <= 0) return SCM_FALSE; arg0 326 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args); arg0 337 src/stdlib.c ScmObj arg0; arg0 345 src/stdlib.c arg0 = (arg0_scm); arg0 352 src/stdlib.c if (Scm_NumCmp(arg0, arg1) < 0) return SCM_FALSE; arg0 354 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args); arg0 465 src/stdlib.c ScmObj arg0; arg0 471 src/stdlib.c arg0 = (arg0_scm); arg0 477 src/stdlib.c Scm_MinMax(arg0, args, NULL, &SCM_RESULT); arg0 489 src/stdlib.c ScmObj arg0; arg0 495 src/stdlib.c arg0 = (arg0_scm); arg0 501 src/stdlib.c Scm_MinMax(arg0, args, &SCM_RESULT, NULL);