diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-23 02:23:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-23 02:23:43 +0000 |
| commit | e6a83a9d4ebfb2abf0254ca7c41f2828fafa7b19 (patch) | |
| tree | 8874a4d52e29a43bc0412ae24d454ef3049ca4d1 /src/interp/g-util.boot | |
| parent | 95d7a3a8c107a8b722f97afdc0266449aad3a5bc (diff) | |
| download | open-axiom-e6a83a9d4ebfb2abf0254ca7c41f2828fafa7b19.tar.gz | |
* interp/g-util.boot (expandFeq): New.
* algebra/sf.spad.pamphlet (DoubleFloat): Tidy.
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 669998cd..4f840c3b 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -300,6 +300,11 @@ expandI2f ['%i2f,x] == expandFneg ['%fneg,x] == ['_-,expandToVMForm x] +expandFeq ['%feq,a,b] == + a is ['%i2f,0] => ['ZEROP,expandToVMForm b] + b is ['%i2f,0] => ['ZEROP,expandToVMForm a] + ['_=,expandToVMForm a,expandToVMForm b] + expandFlt ['%flt,x,y] == x is ['%i2f,0] => ['PLUSP,expandToVMForm y] y is ['%i2f,0] => ['MINUSP,expandToVMForm x] @@ -383,7 +388,6 @@ for x in [ -- binary float operations. ['%fadd, :"+"], ['%fdiv, :"/"], - ['%feq, :"="], ['%fge, :">="], ['%fle, :"<="], ['%fmax, :'MAX], @@ -453,6 +457,7 @@ for x in [ ['%i2f, :function expandI2f], ['%fbase, :function expandFbase], + ['%feq, :function expandFeq], ['%fgt, :function expandFgt], ['%flt, :function expandFlt], ['%fmaxval, :function expandFmaxval], |