summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/optimize.tl10
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl
index 8d2c1f5c..f6acad64 100644
--- a/stdlib/optimize.tl
+++ b/stdlib/optimize.tl
@@ -378,7 +378,7 @@
(pushnew bl bb.rescan)
(set bb.recalc t
bb.reelim t)
- ^((jmp ,jlabel) ,*(cdr insns)))
+ ^((jmp ,jlabel)))
(@(require ((@(or gcall gapply) (t @n) @idx . @nil) . @nil)
(dead-treg (car insns) n)
[%effect-free% [bb.symvec idx]])
@@ -414,7 +414,7 @@
. @rest)
^(,(cadr insns) ,(car insns) ,*rest))
(((@(or frame dframe) . @nil)
- (if (t @reg) @jlabel))
+ (if (t @reg) @jlabel) . @nil)
(let ((jinsns [bb.hash jlabel].insns))
(match-case jinsns
((@jlabel
@@ -437,13 +437,13 @@
(@(require ((ifq @(as reg (d @dn)) (t 0) @jlabel) . @nil)
(not (memqual reg bb.lt-dregs)))
^((jmp ,jlabel)))
- (((jmp @jlabel) . @rest)
+ (((jmp @jlabel) . @nil)
(let* ((jinsns (cdr [bb.hash jlabel].insns))
(oinsns (match-case jinsns
(((jend @nil) . @nil)
- ^(,(car jinsns) ,*rest))
+ ^(,(car jinsns)))
((@nil (jend @nil) . @nil)
- ^(,(car jinsns) ,(cadr jinsns) ,*rest))
+ ^(,(car jinsns) ,(cadr jinsns)))
(@else insns))))
(when (neq insns oinsns)
(pushnew bl bb.rescan)