From 5c18ee920a30dac79a126eaaea357344971caa76 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 9 Jan 2019 06:51:04 -0800 Subject: 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. --- share/txr/stdlib/vm-param.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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%))) -- cgit v1.2.3