diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-25 13:02:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-25 13:02:32 +0000 |
commit | 59676ddc602b874061a8acc941f7bb19cd6041f5 (patch) | |
tree | 7dfd6316057ba8189605c227f082a55b7643e128 /src/interp | |
parent | 094e16ae834eaf254a85781d759e0399a9269fb1 (diff) | |
download | open-axiom-59676ddc602b874061a8acc941f7bb19cd6041f5.tar.gz |
* interp/g-opt.boot: Rename %eq to %peq for pointer comparaison.
* interp/g-util.boot: Expand it.
* algebra/aggcat.spad.pamphlet: Cleanup.
* algebra/any.spad.pamphlet: Likewise.
* algebra/boolean.spad.pamphlet: Likewise.
* algebra/data.spad.pamphlet: Likewise.
* algebra/domain.spad.pamphlet: Likewise.
* algebra/files.spad.pamphlet: Likewise.
* algebra/laurent.spad.pamphlet: Likewise.
* algebra/list.spad.pamphlet: Likewise.
* algebra/mappkg.spad.pamphlet: Likewise.
* algebra/ore.spad.pamphlet: Likewise.
* algebra/padic.spad.pamphlet: Likewise.
* algebra/pattern.spad.pamphlet: Likewise.
* algebra/sex.spad.pamphlet: Likewise.
* algebra/stream.spad.pamphlet: Likewise.
* algebra/string.spad.pamphlet: Likewise.
* algebra/syntax.spad.pamphlet: Likewise.
* algebra/table.spad.pamphlet: Likewise.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/g-opt.boot | 2 | ||||
-rw-r--r-- | src/interp/g-util.boot | 13 |
2 files changed, 8 insertions, 7 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 7187fe42..dbf05c9d 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -472,7 +472,7 @@ $VMsideEffectFreeOperators == QEQCAR QCDR QCAR INTEGERP FLOATP STRINGP IDENTP SYMBOLP MINUSP GREATERP ZEROP ODDP FLOAT_-RADIX FLOAT FLOAT_-SIGN FLOAT_-DIGITS CGREATERP GGREATERP CHAR BOOLE GET BVEC_-GREATER %false %true - %and %or %not %eq %ieq %ilt %ile %igt %ige %head %tail %integer? + %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer? %imul %iadd %isub %igcd %ilcm %ipow %imin %imax %ieven? %iodd? %iinc %feq %flt %fle %fgt %fge %fmul %fadd %fsub %fexp %fmin %fmax %float? %fpow %fdiv %fneg %i2f %fminval %fmaxval %fbase %fprec %ftrunc diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index af20fb51..95618b16 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -221,12 +221,13 @@ expandReturn(x is ['%return,.,y]) == $FUNNAME = nil => systemErrorHere ['expandReturn,x] ['RETURN_-FROM,$FUNNAME,expandToVMForm y] --- Logical operators - -expandEq ["%eq",:args] == - ["EQ",:expandToVMForm args] - +-- Pointer operations +expandPeq ['%peq,x,y] == + x = '%nil => ['NULL,expandToVMForm y] + y = '%nil => ['NULL,expandToVMForm x] + ['EQ,expandToVMForm x, expandToVMForm y] +-- Integer operations expandIneg ['%ineg,x] == x := expandToVMForm x integer? x => -x @@ -401,7 +402,7 @@ for x in [ ['%fneg, :function expandFneg], ['%fprec, :function expandFprec], - ["%eq",:function expandEq], + ["%peq",:function expandPeq], ["%bind",:function expandBind], ["%store",:function expandStore], |