diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-01-09 06:51:04 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-01-09 06:51:04 -0800 |
| commit | 72aefc4d275fcea7a94d9991fd49997ac250edfb (patch) | |
| tree | 287b1dd654cf5063e0ba227401becea486cac367 | |
| parent | e5e8c388788a94fe081f82d0daa7b487fba9b167 (diff) | |
| download | txr-72aefc4d275fcea7a94d9991fd49997ac250edfb.tar.gz txr-72aefc4d275fcea7a94d9991fd49997ac250edfb.tar.bz2 txr-72aefc4d275fcea7a94d9991fd49997ac250edfb.zip | |
asm/compiler: fix incorrect frame-related constant.
* share/txr/stdlib/vm-param.tl (%max-lev-idx%): The maximum
index within a level is one less than the maximum level
size, not two less. Use pred rather than ppred to derive it.
| -rw-r--r-- | share/txr/stdlib/vm-param.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/vm-param.tl b/share/txr/stdlib/vm-param.tl index 3ce993c4..b845f2cf 100644 --- a/share/txr/stdlib/vm-param.tl +++ b/share/txr/stdlib/vm-param.tl @@ -25,7 +25,7 @@ ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (defsymacro %lev-size% 1024) -(defsymacro %max-lev-idx% (macro-time (ppred %lev-size%))) +(defsymacro %max-lev-idx% (macro-time (pred %lev-size%))) (defsymacro %lev-bits% 10) (defsymacro %max-lev% 63) (defsymacro %max-v-lev% (macro-time (ppred %max-lev%))) |