diff --git a/chicken.h b/chicken.h
index 12633b1..addaea8 100644
a
|
b
|
extern double trunc(double); |
1295 | 1295 | #define C_u_i_f64vector_length C_u_i_64vector_length |
1296 | 1296 | |
1297 | 1297 | #define C_u_i_u8vector_ref(x, i) C_fix(((unsigned char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
1298 | | #define C_u_i_s8vector_ref(x, i) C_fix(((char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
| 1298 | #define C_u_i_s8vector_ref(x, i) C_fix(((signed char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
1299 | 1299 | #define C_u_i_u16vector_ref(x, i) C_fix(((unsigned short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
1300 | 1300 | #define C_u_i_s16vector_ref(x, i) C_fix(((short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
1301 | 1301 | #define C_u_i_u32vector_ref(x, i) C_fix(((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
… |
… |
extern double trunc(double); |
1304 | 1304 | #define C_a_i_s32vector_ref(ptr, c, x, i) C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) |
1305 | 1305 | |
1306 | 1306 | #define C_u_i_u8vector_set(x, i, v) ((((unsigned char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) |
1307 | | #define C_u_i_s8vector_set(x, i, v) ((((char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) |
| 1307 | #define C_u_i_s8vector_set(x, i, v) ((((signed char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) |
1308 | 1308 | #define C_u_i_u16vector_set(x, i, v) ((((unsigned short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) |
1309 | 1309 | #define C_u_i_s16vector_set(x, i, v) ((((short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) |
1310 | 1310 | #define C_u_i_u32vector_set(x, i, v) ((((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_unsigned_int(v)), C_SCHEME_UNDEFINED) |
… |
… |
extern double trunc(double); |
1313 | 1313 | #define C_u_i_bit_setp(x, i) C_mk_bool((C_unfix(x) & (1 << C_unfix(i))) != 0) |
1314 | 1314 | |
1315 | 1315 | #define C_u_i_pointer_u8_ref(ptr) C_fix(*((unsigned char *)C_block_item(ptr, 0))) |
1316 | | #define C_u_i_pointer_s8_ref(ptr) C_fix(*((char *)C_block_item(ptr, 0))) |
| 1316 | #define C_u_i_pointer_s8_ref(ptr) C_fix(*((signed char *)C_block_item(ptr, 0))) |
1317 | 1317 | #define C_u_i_pointer_u16_ref(ptr) C_fix(*((unsigned short *)C_block_item(ptr, 0))) |
1318 | 1318 | #define C_u_i_pointer_s16_ref(ptr) C_fix(*((short *)C_block_item(ptr, 0))) |
1319 | 1319 | #define C_a_u_i_pointer_u32_ref(ap, n, ptr) \ |
… |
… |
extern double trunc(double); |
1325 | 1325 | #define C_u_i_pointer_u8_set(ptr, x) \ |
1326 | 1326 | (*((unsigned char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) |
1327 | 1327 | #define C_u_i_pointer_s8_set(ptr, x) \ |
1328 | | (*((char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) |
| 1328 | (*((signed char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) |
1329 | 1329 | #define C_u_i_pointer_u16_set(ptr, x) \ |
1330 | 1330 | (*((unsigned short *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) |
1331 | 1331 | #define C_u_i_pointer_s16_set(ptr, x) \ |