65 |
static SCM scm_divbigint (SCM x, long z, int sgn, int mode); |
static SCM scm_divbigint (SCM x, long z, int sgn, int mode); |
66 |
|
|
67 |
|
|
68 |
#define SCM_SWAP(x,y) do { SCM __t = x; x = y; y = __t; } while (0) |
#define SCM_SWAP(x, y) do { SCM __t = x; x = y; y = __t; } while (0) |
69 |
|
|
70 |
|
|
71 |
/* FLOBUFLEN is the maximum number of characters neccessary for the |
/* FLOBUFLEN is the maximum number of characters neccessary for the |
1257 |
SCM_WRONG_TYPE_ARG (2, k); |
SCM_WRONG_TYPE_ARG (2, k); |
1258 |
} |
} |
1259 |
else |
else |
1260 |
SCM_VALIDATE_ULONG_COPY (2,k,i2); |
SCM_VALIDATE_ULONG_COPY (2, k, i2); |
1261 |
if (i2 < 0) |
if (i2 < 0) |
1262 |
{ |
{ |
1263 |
i2 = -i2; |
i2 = -i2; |
1350 |
#define FUNC_NAME s_scm_bit_extract |
#define FUNC_NAME s_scm_bit_extract |
1351 |
{ |
{ |
1352 |
unsigned long int istart, iend; |
unsigned long int istart, iend; |
1353 |
SCM_VALIDATE_INUM_MIN_COPY (2,start,0,istart); |
SCM_VALIDATE_INUM_MIN_COPY (2, start,0, istart); |
1354 |
SCM_VALIDATE_INUM_MIN_COPY (3, end, 0, iend); |
SCM_VALIDATE_INUM_MIN_COPY (3, end, 0, iend); |
1355 |
SCM_ASSERT_RANGE (3, end, (iend >= istart)); |
SCM_ASSERT_RANGE (3, end, (iend >= istart)); |
1356 |
|
|
2992 |
SCM answer; |
SCM answer; |
2993 |
int base; |
int base; |
2994 |
SCM_VALIDATE_STRING (1, string); |
SCM_VALIDATE_STRING (1, string); |
2995 |
SCM_VALIDATE_INUM_MIN_DEF_COPY (2,radix,2,10,base); |
SCM_VALIDATE_INUM_MIN_DEF_COPY (2, radix,2,10, base); |
2996 |
answer = scm_i_mem2number (SCM_STRING_CHARS (string), |
answer = scm_i_mem2number (SCM_STRING_CHARS (string), |
2997 |
SCM_STRING_LENGTH (string), |
SCM_STRING_LENGTH (string), |
2998 |
base); |
base); |