30 lines
778 B
C
30 lines
778 B
C
|
--- src/zdict.c.orig 2013-04-30 11:04:05.000000000 +0900
|
||
|
|
+++ src/zdict.c 2013-04-30 11:04:34.000000000 +0900
|
||
|
|
@@ -35,12 +35,9 @@
|
||
|
|
os_ptr op = osp;
|
||
|
|
|
||
|
|
check_type(*op, t_integer);
|
||
|
|
-#if arch_sizeof_int < arch_sizeof_long
|
||
|
|
- check_int_leu(*op, max_uint);
|
||
|
|
-#else
|
||
|
|
if (op->value.intval < 0)
|
||
|
|
return_error(e_rangecheck);
|
||
|
|
-#endif
|
||
|
|
+
|
||
|
|
return dict_create((uint) op->value.intval, op);
|
||
|
|
}
|
||
|
|
|
||
|
|
@@ -458,12 +455,8 @@
|
||
|
|
check_type(*op1, t_dictionary);
|
||
|
|
check_dict_write(*op1);
|
||
|
|
check_type(*op, t_integer);
|
||
|
|
-#if arch_sizeof_int < arch_sizeof_long
|
||
|
|
- check_int_leu(*op, max_uint);
|
||
|
|
-#else
|
||
|
|
if (op->value.intval < 0)
|
||
|
|
return_error(e_rangecheck);
|
||
|
|
-#endif
|
||
|
|
new_size = (uint) op->value.intval;
|
||
|
|
if (dict_length(op - 1) > new_size)
|
||
|
|
return_error(e_dictfull);
|