From 39f3846ba6690deb71bb26630fbd655fabf36ebd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 1 Jun 2010 03:06:34 +0000
Subject: Adjust opcode for character support

---
 src/interp/g-opt.boot  | 2 +-
 src/interp/g-util.boot | 9 +++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 4d8387f0..eccf8e73 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -407,7 +407,7 @@ $VMsideEffectFreeOperators ==
          %imul %iadd %isub %igcd %ilcm %ipow %imin %imax %ieven? %iodd? %iinc
           %feq %flt %fle %fgt %fge %fmul %fadd %fsub %fexp %fmin %fmax %float?
            %fpow %nil %pair? %lconcat %llength %lfirst %lsecond %lthird
-            %hash %ismall? %string?)
+            %hash %ismall? %string? %ceq %clt %cle %cgt %cge %c2i %i2c)
 
 ++ List of simple VM operators
 $simpleVMoperators == 
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 9fa9777d..a3674a01 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -249,6 +249,15 @@ for x in [
     ['%and, :'AND],
     ['%or,  :'OR],
 
+    -- character binary operations
+    ['%ceq, :'CHAR_=],
+    ['%clt, :'CHAR_<],
+    ['%cle, :'CHAR_<_=],
+    ['%cgt, :'CHAR_>],
+    ['%cge, :'CHAR_>_=],
+    ['%c2i, :'CHAR_-CODE],
+    ['%i2c, :'CODE_-CHAR],
+
     -- unary integer operations.
     ['%iabs,    :'ABS],
     ['%ieven?,  :'EVENP],
-- 
cgit v1.2.3