From b344826b83e8e3f5130124b7cc04cb1450c21d4e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 8 Feb 2021 06:45:01 -0800 Subject: compiler: frame optimizations apply to dframe too. * share/txr/stdlib/optimize.tl (basic-blocks peephole): Use or pattern to look for dframe as well as frame. --- share/txr/stdlib/optimize.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index 537d064c..c06c5d22 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -130,13 +130,13 @@ (((mov @reg0 @reg1) (mov reg1 @reg0) . @rest) ^(,(car insns) ,*rest)) ;; frame reduction - (((frame @lev @size) + (((@(or frame dframe) @lev @size) (@(or call gcall mov) . @(require @(coll (v @vlev @nil)) (none vlev (op eql (ppred lev))))) . @rest) ^(,(cadr insns) ,(car insns) ,*rest)) - (((frame . @nil) + (((@(or frame dframe) . @nil) (if (t @reg) @jlabel) . @rest) (let ((jinsns [bb.hash jlabel])) (match-case jinsns -- cgit v1.2.3