aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/g-opt.boot3
-rw-r--r--src/interp/lisp-backend.boot1
-rw-r--r--src/interp/sys-constants.boot4
3 files changed, 7 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index a2e3a4e8..aca6a00c 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -445,7 +445,8 @@ $VMsideEffectFreeOperators ==
%zsinh %zcosh %ztanh %zasinh %zacosh %zatanh
%nil %pair %list %pair? %lconcat %llength %lfirst %lsecond %lthird
%lreverse %lempty? %hash %ismall? %string? %f2s
- %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown %sname
+ %ccst %ccstmax %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown
+ %sname
%strlength %streq %i2s %schar %strlt %strconc %strcopy
%vector %aref %vref %vlength
%bitvector
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 84638ba4..8a9a2a4c 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -447,6 +447,7 @@ for x in [
['%or, :'OR],
-- character operations
+ ['%ccstmax,:'_$CharCodeMax],
['%ceq, :'CHAR_=],
['%clt, :'CHAR_<],
['%cle, :'CHAR_<_=],
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 3c61487e..c5d8656b 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -44,6 +44,10 @@ namespace BOOT
--% Numeric limits
--%
+++ Maximum value of character code point values
+$CharCodeMaximum ==
+ CHAR_-CODE_-LIMIT
+
++ Minimum for %Short values.
$ShortMinimum ==
MOST_-NEGATIVE_-FIXNUM