diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-12 06:16:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-12 06:16:57 +0000 |
| commit | 42d38bee45a64edfc12641053e58581c20584363 (patch) | |
| tree | 5e1edcd1575af28ed489ae4446563879e4837bc1 /src/interp | |
| parent | 4a92a0cc2bca6807ea4362797cfe6939bad4889b (diff) | |
| download | open-axiom-42d38bee45a64edfc12641053e58581c20584363.tar.gz | |
* algebra/si.spad.pamphlet (IntegerNumberSystem) [positive?]:
Remove definition.
(SingleInteger): Simplify implementation of random.
* algebra/sf.spad.pamphlet (DoubleFloat): Likewise.
[positive?]: Define.
* algebra/integer.spad.pamphlet (Integer): Tidy.
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], |