diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-opt.boot | 4 | ||||
| -rw-r--r-- | src/interp/lisp-backend.boot | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 59cb8363..a2e3a4e8 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -430,9 +430,9 @@ $VMsideEffectFreeOperators == %funcall %nothing %when %false %true %otherwise %2bit %2bool %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer? %beq %blt %ble %bgt %bge %bitand %bitior %bitxor %bitnot %bcompl - %ilength %ibit %icst0 %icst1 + %ilength %ibit %icst0 %icst1 %icstmin %icstmax %imul %iadd %isub %igcd %ilcm %ipow %imin %imax %ieven? %iodd? %iinc - %irem %iquo %idivide %idec + %irem %iquo %idivide %idec %irandom %feq %flt %fle %fgt %fge %fmul %fadd %fsub %fexp %fmin %fmax %float? %fpowi %fdiv %fneg %i2f %fminval %fmaxval %fbase %fprec %ftrunc %fsqrt %fpowf %flog %flog2 %flog10 %fmanexp diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 1899ec39..84638ba4 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -462,6 +462,9 @@ for x in [ ['%beq, :'byteEqual], ['%blt, :'byteLessThan], + -- integer constants + ['%icstmin, :'_$ShortMinimum], + ['%icstmax, :'_$ShortMaximum], -- unary integer operations. ['%iabs, :'ABS], ['%ieven?, :'EVENP], @@ -471,6 +474,7 @@ for x in [ ['%i2s, :'WRITE_-TO_-STRING], ['%ilength, :'INTEGER_-LENGTH], ['%ibit, :'INTEGER_-BIT], + ['%irandom, :'RANDOM], -- binary integer operations. ['%iadd, :"+"], ['%igcd, :'GCD], |