kernel.private: add ERROR-OUT-OF-FIXNUM-RANGE on the Factor side

diff --git a/core/arrays/arrays-tests.factor b/core/arrays/arrays-tests.factor
index 37596a116a3dc41d92d388089f0ce47a82a2c7d8..b0d7eae7193d64c0a20a21e65b81157ad5cca38f 100644 (file)
--- a/core/arrays/arrays-tests.factor
+++ b/core/arrays/arrays-tests.factor
@@ -1,5 +1,6 @@
-USING: accessors arrays kernel sequences sequences.private growable
-tools.test vectors layouts system math vectors.private ;
+USING: accessors arrays kernel kernel.private literals sequences
+sequences.private growable tools.test vectors layouts system math
+vectors.private ;
 IN: arrays.tests
 
 [ -2 { "a" "b" "c" } nth ] must-fail
@@ -20,4 +21,7 @@ IN: arrays.tests
 [ -1 f <array> ] must-fail
 [ cell-bits cell log2 - 2^ f <array> ] must-fail
 ! To big for a fixnum #1045
-[ 67 2^ 3 <array> ] must-fail
+[ 67 2^ 3 <array> ] [
+    ${ "kernel-error" ERROR-OUT-OF-FIXNUM-RANGE 147573952589676412928 f }
+    =
+] must-fail-with

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index d0336d907a44ca1f736cd4a28d5a383cb2a237cf..e80cc551243eb4c11c3810478bae241b4488967c 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -366,7 +366,7 @@ CONSTANT: CONTEXT-OBJ-IN-CALLBACK-P 3
 ! Runtime errors must be kept in sync with:
 !   vm/errors.hpp
 
-CONSTANT: kernel-error-count 19
+CONSTANT: kernel-error-count 20
 
 CONSTANT: ERROR-EXPIRED 0
 CONSTANT: ERROR-IO      1
@@ -375,17 +375,18 @@ CONSTANT: ERROR-TYPE 3
 CONSTANT: ERROR-DIVIDE-BY-ZERO 4
 CONSTANT: ERROR-SIGNAL 5
 CONSTANT: ERROR-ARRAY-SIZE 6
-CONSTANT: ERROR-C-STRING 7
-CONSTANT: ERROR-FFI 8
-CONSTANT: ERROR-UNDEFINED-SYMBOL 9
-CONSTANT: ERROR-DATASTACK-UNDERFLOW 10
-CONSTANT: ERROR-DATASTACK-OVERFLOW 11
-CONSTANT: ERROR-RETAINSTACK-UNDERFLOW 12
-CONSTANT: ERROR-RETAINSTACK-OVERFLOW 13
-CONSTANT: ERROR-CALLSTACK-UNDERFLOW 14
-CONSTANT: ERROR-CALLSTACK-OVERFLOW 15
-CONSTANT: ERROR-MEMORY 16
-CONSTANT: ERROR-FP-TRAP 17
-CONSTANT: ERROR-INTERRUPT 18
+CONSTANT: ERROR-OUT-OF-FIXNUM-RANGE 7
+CONSTANT: ERROR-C-STRING 8
+CONSTANT: ERROR-FFI 9
+CONSTANT: ERROR-UNDEFINED-SYMBOL 10
+CONSTANT: ERROR-DATASTACK-UNDERFLOW 11
+CONSTANT: ERROR-DATASTACK-OVERFLOW 12
+CONSTANT: ERROR-RETAINSTACK-UNDERFLOW 13
+CONSTANT: ERROR-RETAINSTACK-OVERFLOW 14
+CONSTANT: ERROR-CALLSTACK-UNDERFLOW 15
+CONSTANT: ERROR-CALLSTACK-OVERFLOW 16
+CONSTANT: ERROR-MEMORY 17
+CONSTANT: ERROR-FP-TRAP 18
+CONSTANT: ERROR-INTERRUPT 19
 
 PRIVATE>