arg1 1407 gc/mark.c word arg1;
arg1 1413 gc/mark.c void GC_add_trace_entry(char *kind, word arg1, word arg2)
arg1 1418 gc/mark.c GC_trace_buf[GC_trace_buf_ptr].arg1 = arg1 ^ 0x80000000;
arg1 1436 gc/mark.c (p -> arg1) ^ 0x80000000, (p -> arg2) ^ 0x80000000);
arg1 152 gc/misc.c void * GC_project2(arg1, arg2)
arg1 153 gc/misc.c void *arg1;
arg1 624 src/code.c int arg1, /* instruction code parameter 1 */
arg1 645 src/code.c if (arg0 < 4 && arg1 < 4) {
arg1 646 src/code.c int insn = lrefs[arg0][arg1];
arg1 652 src/code.c PUT(INSN2(SCM_VM_LREF, arg0, arg1), SCM_FALSE);
arg1 841 src/code.c case 2: PUT(INSN2(code, arg0, arg1), operand); break;
arg1 1035 src/code.c int len = Scm_Length(obj), code, arg0, arg1;
arg1 1063 src/code.c arg1 = SCM_INT_VALUE(SCM_CAR(SCM_CDDR(obj)));
arg1 1064 src/code.c return SCM_VM_INSN2(code, arg0, arg1);
arg1 422 src/gauche.h SCM_EXTERN ScmObj Scm_VMApply2(ScmObj proc, ScmObj arg1, ScmObj arg2);
arg1 423 src/gauche.h SCM_EXTERN ScmObj Scm_VMApply3(ScmObj proc, ScmObj arg1, ScmObj arg2,
arg1 425 src/gauche.h SCM_EXTERN ScmObj Scm_VMApply4(ScmObj proc, ScmObj arg1, ScmObj arg2,
arg1 2159 src/gauche.h SCM_EXTERN ScmObj Scm_Add(ScmObj arg1, ScmObj arg2, ScmObj args);
arg1 2160 src/gauche.h SCM_EXTERN ScmObj Scm_Subtract(ScmObj arg1, ScmObj arg2, ScmObj args);
arg1 2161 src/gauche.h SCM_EXTERN ScmObj Scm_Multiply(ScmObj arg1, ScmObj arg2, ScmObj args);
arg1 2162 src/gauche.h SCM_EXTERN ScmObj Scm_Divide(ScmObj arg1, ScmObj arg2, ScmObj args);
arg1 2169 src/gauche.h SCM_EXTERN ScmObj Scm_Quotient(ScmObj arg1, ScmObj arg2, ScmObj *rem);
arg1 2170 src/gauche.h SCM_EXTERN ScmObj Scm_Modulo(ScmObj arg1, ScmObj arg2, int remainder);
arg1 2385 src/gauche.h SCM_EXTERN ScmObj Scm_ForEach(ScmObj proc, ScmObj arg1, ScmObj args);
arg1 2387 src/gauche.h SCM_EXTERN ScmObj Scm_Map(ScmObj proc, ScmObj arg1, ScmObj args);
arg1 134 src/gauche/code.h int arg1,
arg1 156 src/gauche/code.h #define SCM_VM_INSN2(code, arg0, arg1) \
arg1 157 src/gauche/code.h SCM_WORD((long)((arg1) << 18) | ((arg0) << 8) | (code))
arg1 977 src/intlib.c int arg1;
arg1 990 src/intlib.c arg1 = Scm_GetInteger(arg1_scm);
arg1 992 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, SCM_FALSE);
arg1 1009 src/intlib.c int arg1;
arg1 1024 src/intlib.c arg1 = Scm_GetInteger(arg1_scm);
arg1 1028 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, SCM_FALSE);
arg1 1045 src/intlib.c int arg1;
arg1 1060 src/intlib.c arg1 = Scm_GetInteger(arg1_scm);
arg1 1064 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, SCM_FALSE, info);
arg1 1081 src/intlib.c int arg1;
arg1 1098 src/intlib.c arg1 = Scm_GetInteger(arg1_scm);
arg1 1104 src/intlib.c Scm_CompiledCodeEmit(cc, code, arg0, arg1, operand, info);
arg1 865 src/number.c #define APPLY_GENERIC_ARITH(v, gf, arg0, arg1, args) \
arg1 867 src/number.c v = Scm_Apply(SCM_OBJ(&gf), SCM_LIST2(arg0, arg1)); \
arg1 869 src/number.c arg1 = SCM_CAR(args); \
arg1 878 src/number.c ScmObj Scm_Add(ScmObj arg0, ScmObj arg1, ScmObj args)
arg1 888 src/number.c if (SCM_INTP(arg1)) {
arg1 889 src/number.c result_int += SCM_INT_VALUE(arg1);
arg1 895 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 897 src/number.c SCM_BIGNUM(arg1));
arg1 899 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 902 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 909 src/number.c arg1, args);
arg1 912 src/number.c arg1 = SCM_CAR(args);
arg1 916 src/number.c arg1 = SCM_CAR(args);
arg1 921 src/number.c if (SCM_NUMBERP(arg1)) {
arg1 922 src/number.c return Scm_BignumAddN(SCM_BIGNUM(arg0), Scm_Cons(arg1, args));
arg1 924 src/number.c APPLY_GENERIC_ARITH(arg0, generic_add, arg0, arg1, args);
arg1 931 src/number.c if (SCM_INTP(arg1)) {
arg1 932 src/number.c result_real += (double)SCM_INT_VALUE(arg1);
arg1 933 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 934 src/number.c result_real += Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 935 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 936 src/number.c result_real += SCM_FLONUM_VALUE(arg1);
arg1 937 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 943 src/number.c arg1, args);
arg1 946 src/number.c arg1 = SCM_CAR(args);
arg1 955 src/number.c if (SCM_INTP(arg1)) {
arg1 956 src/number.c result_real += (double)SCM_INT_VALUE(arg1);
arg1 957 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 958 src/number.c result_real += Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 959 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 960 src/number.c result_real += SCM_FLONUM_VALUE(arg1);
arg1 961 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 962 src/number.c result_real += SCM_COMPLEX_REAL(arg1);
arg1 963 src/number.c result_imag += SCM_COMPLEX_IMAG(arg1);
arg1 968 src/number.c arg1, args);
arg1 973 src/number.c arg1 = SCM_CAR(args);
arg1 978 src/number.c arg0, arg1, args);
arg1 982 src/number.c ScmObj Scm_Subtract(ScmObj arg0, ScmObj arg1, ScmObj args)
arg1 994 src/number.c if (SCM_INTP(arg1)) {
arg1 995 src/number.c result_int -= SCM_INT_VALUE(arg1);
arg1 1001 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1003 src/number.c return Scm_BignumSubN(SCM_BIGNUM(big), Scm_Cons(arg1, args));
arg1 1004 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1007 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1013 src/number.c arg1, args);
arg1 1016 src/number.c arg1 = SCM_CAR(args);
arg1 1021 src/number.c if (SCM_NUMBERP(arg1)) {
arg1 1022 src/number.c return Scm_BignumSubN(SCM_BIGNUM(arg0), Scm_Cons(arg1, args));
arg1 1024 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0, arg1, args);
arg1 1031 src/number.c if (SCM_INTP(arg1)) {
arg1 1032 src/number.c result_real -= (double)SCM_INT_VALUE(arg1);
arg1 1033 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1034 src/number.c result_real -= Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 1035 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1036 src/number.c result_real -= SCM_FLONUM_VALUE(arg1);
arg1 1037 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1042 src/number.c arg1, args);
arg1 1046 src/number.c arg1 = SCM_CAR(args);
arg1 1055 src/number.c if (SCM_INTP(arg1)) {
arg1 1056 src/number.c result_real -= (double)SCM_INT_VALUE(arg1);
arg1 1057 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1058 src/number.c result_real -= Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 1059 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1060 src/number.c result_real -= SCM_FLONUM_VALUE(arg1);
arg1 1061 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1062 src/number.c result_real -= SCM_COMPLEX_REAL(arg1);
arg1 1063 src/number.c result_imag -= SCM_COMPLEX_IMAG(arg1);
arg1 1068 src/number.c arg1, args);
arg1 1072 src/number.c arg1 = SCM_CAR(args);
arg1 1076 src/number.c APPLY_GENERIC_ARITH(arg0, generic_sub, arg0, arg1, args);
arg1 1084 src/number.c ScmObj Scm_Multiply(ScmObj arg0, ScmObj arg1, ScmObj args)
arg1 1093 src/number.c if (SCM_INTP(arg1)) {
arg1 1094 src/number.c long vv = SCM_INT_VALUE(arg1);
arg1 1105 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1106 src/number.c arg0 = Scm_BignumMulSI(SCM_BIGNUM(arg1), result_int);
arg1 1108 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1111 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1117 src/number.c Scm_MakeInteger(result_int), arg1, args);
arg1 1120 src/number.c arg1 = SCM_CAR(args);
arg1 1124 src/number.c arg1 = SCM_CAR(args);
arg1 1129 src/number.c return Scm_BignumMulN(SCM_BIGNUM(arg0), Scm_Cons(arg1, args));
arg1 1135 src/number.c if (SCM_INTP(arg1)) {
arg1 1136 src/number.c result_real *= (double)SCM_INT_VALUE(arg1);
arg1 1137 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1138 src/number.c result_real *= Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 1139 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1140 src/number.c result_real *= SCM_FLONUM_VALUE(arg1);
arg1 1141 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1146 src/number.c Scm_MakeFlonum(result_real), arg1, args);
arg1 1149 src/number.c arg1 = SCM_CAR(args);
arg1 1158 src/number.c if (SCM_INTP(arg1)) {
arg1 1159 src/number.c result_real *= (double)SCM_INT_VALUE(arg1);
arg1 1160 src/number.c result_imag *= (double)SCM_INT_VALUE(arg1);
arg1 1161 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1162 src/number.c double dd = Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 1165 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1166 src/number.c result_real *= SCM_FLONUM_VALUE(arg1);
arg1 1167 src/number.c result_imag *= SCM_FLONUM_VALUE(arg1);
arg1 1168 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1169 src/number.c double r = SCM_COMPLEX_REAL(arg1);
arg1 1170 src/number.c double i = SCM_COMPLEX_IMAG(arg1);
arg1 1178 src/number.c arg1, args);
arg1 1183 src/number.c arg1 = SCM_CAR(args);
arg1 1188 src/number.c arg0, arg1, args);
arg1 1196 src/number.c ScmObj Scm_Divide(ScmObj arg0, ScmObj arg1, ScmObj args)
arg1 1211 src/number.c if (SCM_INTP(arg1)) {
arg1 1214 src/number.c SCM_INT_VALUE(arg1),
arg1 1224 src/number.c if (SCM_BIGNUMP(arg1)) {
arg1 1225 src/number.c ScmObj divrem = Scm_BignumDivRem(SCM_BIGNUM(arg0), SCM_BIGNUM(arg1));
arg1 1234 src/number.c if (SCM_FLONUMP(arg1)) {
arg1 1239 src/number.c if (SCM_COMPLEXP(arg1)) {
arg1 1244 src/number.c APPLY_GENERIC_ARITH(arg0, generic_div, arg0, arg1, args);
arg1 1251 src/number.c if (SCM_INTP(arg1)) {
arg1 1252 src/number.c div_real = (double)SCM_INT_VALUE(arg1);
arg1 1253 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1254 src/number.c div_real = Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 1255 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1256 src/number.c div_real = SCM_FLONUM_VALUE(arg1);
arg1 1258 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1263 src/number.c arg1, args);
arg1 1268 src/number.c arg1 = SCM_CAR(args);
arg1 1279 src/number.c if (SCM_INTP(arg1)) {
arg1 1280 src/number.c div_real = (double)SCM_INT_VALUE(arg1);
arg1 1281 src/number.c } else if (SCM_BIGNUMP(arg1)) {
arg1 1282 src/number.c div_real = Scm_BignumToDouble(SCM_BIGNUM(arg1));
arg1 1283 src/number.c } else if (SCM_FLONUMP(arg1)) {
arg1 1284 src/number.c div_real = SCM_FLONUM_VALUE(arg1);
arg1 1285 src/number.c } else if (SCM_COMPLEXP(arg1)) {
arg1 1286 src/number.c div_real = SCM_COMPLEX_REAL(arg1);
arg1 1287 src/number.c div_imag = SCM_COMPLEX_IMAG(arg1);
arg1 1292 src/number.c arg1, args);
arg1 1301 src/number.c arg1 = SCM_CAR(args);
arg1 1305 src/number.c APPLY_GENERIC_ARITH(arg0, generic_div, arg0, arg1, args);
arg1 1590 src/number.c int Scm_NumEq(ScmObj arg0, ScmObj arg1)
arg1 1593 src/number.c if (SCM_COMPLEXP(arg1)) {
arg1 1594 src/number.c return ((SCM_COMPLEX_REAL(arg0) == SCM_COMPLEX_REAL(arg1))
arg1 1595 src/number.c && (SCM_COMPLEX_IMAG(arg0) == SCM_COMPLEX_IMAG(arg1)));
arg1 1599 src/number.c if (SCM_COMPLEXP(arg1)) return FALSE;
arg1 1600 src/number.c return (Scm_NumCmp(arg0, arg1) == 0);
arg1 1605 src/number.c int Scm_NumCmp(ScmObj arg0, ScmObj arg1)
arg1 1610 src/number.c if (SCM_INTP(arg1)) {
arg1 1611 src/number.c long r = SCM_INT_VALUE(arg0) - SCM_INT_VALUE(arg1);
arg1 1616 src/number.c if (SCM_FLONUMP(arg1)) {
arg1 1617 src/number.c double r = SCM_INT_VALUE(arg0) - SCM_FLONUM_VALUE(arg1);
arg1 1622 src/number.c if (SCM_BIGNUMP(arg1))
arg1 1624 src/number.c SCM_BIGNUM(arg1));
arg1 1625 src/number.c badnum = arg1;
arg1 1628 src/number.c if (SCM_INTP(arg1)) {
arg1 1629 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_INT_VALUE(arg1);
arg1 1634 src/number.c if (SCM_FLONUMP(arg1)) {
arg1 1635 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_FLONUM_VALUE(arg1);
arg1 1640 src/number.c if (SCM_BIGNUMP(arg1))
arg1 1642 src/number.c SCM_BIGNUM(arg1));
arg1 1643 src/number.c badnum = arg1;
arg1 1646 src/number.c if (SCM_INTP(arg1))
arg1 1648 src/number.c SCM_BIGNUM(Scm_MakeBignumFromSI(SCM_INT_VALUE(arg1))));
arg1 1649 src/number.c if (SCM_FLONUMP(arg1))
arg1 1651 src/number.c SCM_BIGNUM(Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(arg1))));
arg1 1652 src/number.c if (SCM_BIGNUMP(arg1))
arg1 1653 src/number.c return Scm_BignumCmp(SCM_BIGNUM(arg0), SCM_BIGNUM(arg1));
arg1 1654 src/number.c badnum = arg1;
arg1 242 src/proc.c ScmObj Scm_ForEach(ScmObj proc, ScmObj arg1, ScmObj args)
arg1 245 src/proc.c SCM_RETURN(Scm_ForEach1(proc, arg1)); /* shortcut */
arg1 249 src/proc.c data[1] = Scm_Cons(arg1, args);
arg1 278 src/proc.c ScmObj Scm_Map(ScmObj proc, ScmObj arg1, ScmObj args)
arg1 281 src/proc.c SCM_RETURN(Scm_Map1(proc, arg1)); /* shortcut */
arg1 286 src/proc.c if (mapper_collect_args(Scm_Cons(arg1, args),
arg1 227 src/stdlib.c ScmObj arg1;
arg1 235 src/stdlib.c arg1 = (arg1_scm);
arg1 240 src/stdlib.c if (!Scm_NumEq(arg0, arg1)) return SCM_FALSE;
arg1 242 src/stdlib.c arg1 = SCM_CAR(args); args = SCM_CDR(args);
arg1 255 src/stdlib.c ScmObj arg1;
arg1 263 src/stdlib.c arg1 = (arg1_scm);
arg1 268 src/stdlib.c if (Scm_NumCmp(arg0, arg1) >= 0) return SCM_FALSE;
arg1 270 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args);
arg1 283 src/stdlib.c ScmObj arg1;
arg1 291 src/stdlib.c arg1 = (arg1_scm);
arg1 296 src/stdlib.c if (Scm_NumCmp(arg0, arg1) > 0) return SCM_FALSE;
arg1 298 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args);
arg1 311 src/stdlib.c ScmObj arg1;
arg1 319 src/stdlib.c arg1 = (arg1_scm);
arg1 324 src/stdlib.c if (Scm_NumCmp(arg0, arg1) <= 0) return SCM_FALSE;
arg1 326 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args);
arg1 339 src/stdlib.c ScmObj arg1;
arg1 347 src/stdlib.c arg1 = (arg1_scm);
arg1 352 src/stdlib.c if (Scm_NumCmp(arg0, arg1) < 0) return SCM_FALSE;
arg1 354 src/stdlib.c arg0 = arg1; arg1 = SCM_CAR(args); args = SCM_CDR(args);
arg1 558 src/stdlib.c ScmObj arg1;
arg1 564 src/stdlib.c arg1 = (arg1_scm);
arg1 570 src/stdlib.c if (SCM_NULLP(args)) SCM_RESULT = Scm_Negate(arg1);
arg1 571 src/stdlib.c else SCM_RESULT = Scm_Subtract(arg1, SCM_CAR(args), SCM_CDR(args));
arg1 583 src/stdlib.c ScmObj arg1;
arg1 589 src/stdlib.c arg1 = (arg1_scm);
arg1 595 src/stdlib.c if (SCM_NULLP(args)) SCM_RESULT = Scm_Reciprocal(arg1);
arg1 596 src/stdlib.c else SCM_RESULT = Scm_Divide(arg1, SCM_CAR(args), SCM_CDR(args));
arg1 3388 src/stdlib.c ScmObj arg1;
arg1 3396 src/stdlib.c arg1 = (arg1_scm);
arg1 3401 src/stdlib.c if (SCM_NULLP(args)) return Scm_VMApply(proc, arg1);
arg1 3403 src/stdlib.c head = tail = Scm_Cons(arg1, SCM_NIL);
arg1 2742 src/vm.c ScmObj Scm_VMApply2(ScmObj proc, ScmObj arg1, ScmObj arg2)
arg1 2746 src/vm.c PUSH_ARG(arg1);
arg1 2753 src/vm.c ScmObj Scm_VMApply3(ScmObj proc, ScmObj arg1, ScmObj arg2, ScmObj arg3)
arg1 2757 src/vm.c PUSH_ARG(arg1);
arg1 2765 src/vm.c ScmObj Scm_VMApply4(ScmObj proc, ScmObj arg1, ScmObj arg2, ScmObj arg3, ScmObj arg4)
arg1 2769 src/vm.c PUSH_ARG(arg1);