diff options
author | dos-reis <gdr@axiomatics.org> | 2010-03-05 02:09:51 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-03-05 02:09:51 +0000 |
commit | f1c8a8db20dce5e74796e409d5bc7bec2d8793d5 (patch) | |
tree | e6d6ba7f4fc22135395dfad949ebd50954ad152d /src/interp/define.boot | |
parent | 82eaa6d96dbadd85f23913a80f163544517af5b0 (diff) | |
download | open-axiom-f1c8a8db20dce5e74796e409d5bc7bec2d8793d5.tar.gz |
* interp/sys-globals.boot ($optimizeRep): Define.
* interp/sys-driver.boot (initializeGlobalState): Sey domain
representation inlining if requested.
* interp/c-util.boot (setCompilerOptimizations): Set domain
representation inlining if at optimization level 3.
* algebra/constant.spad.pamphlet (AlgebraicNumber): Remove
assignment to Rep. Tidy.
* algebra/Makefile.pamphlet: Add dependencies.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index e50aee3b..d25302e8 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1443,8 +1443,10 @@ doIt(item,$predl) == $functorLocalParameters:= [:$functorLocalParameters,lhs] if code is ["%LET",.,rhs',:.] and isDomainForm(rhs',$e) then if lhs="Rep" then - $Representation:= getRepresentation $e - --$Representation bound by compDefineFunctor, used in compNoStacking + --$Representation bound by compDefineFunctor, used in compNoStacking + $Representation := getRepresentation $e + if $optimizeRep then + nominateForInlining $Representation code is ["%LET",:.] => RPLACA(item,"setShellEntry") rhsCode := rhs' |