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/g-util.boot | |
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/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 13 |
1 files changed, 7 insertions, 6 deletions
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], |