diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-06 03:36:41 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-06 03:36:41 +0000 |
commit | 9c5ffc67bc7783bf0a93335ef6703a10a602ff37 (patch) | |
tree | 95cab276671a8a4d802bc24e6c97241985055753 /src/interp/lisp-backend.boot | |
parent | e007c1c9b02538f76a17eb630f5b6db8ef131c6d (diff) | |
download | open-axiom-9c5ffc67bc7783bf0a93335ef6703a10a602ff37.tar.gz |
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include %fmanexp.
(sideEffectFree?): New.
(varIsAssigned): Tidy.
(canInlineVarDefinition): Likewise.
* interp/boot-pkg.lisp (gensym?): New.
* interp/c-util.boot ($NonExpandableOperators): New.
(expandableDefinition?): Use it.
* algebra/sf.spad.pamphlet (DoubleFloat): Use %fmanexp.
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index a7e42468..8a9a01d2 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -515,6 +515,7 @@ for x in [ ['%fmul, :"*"], ['%fpowi, :'EXPT], ['%fsub, :"-"], + ['%fmanexp, :'MANEXP], -- (mantissa, exponent) pair. ['%fexp, :'EXP], ['%fsin, :'SIN], |