diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-27 00:29:40 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-27 00:29:40 -0800 |
| commit | 62e1785a69a35e6df8bbee8c923c63b25ffd9f9a (patch) | |
| tree | 20394b96bbc940fefd9fc13166d53b4ecf981189 | |
| parent | fb918f0e4ed4a13d993e25417190982b54905711 (diff) | |
| download | txr-62e1785a69a35e6df8bbee8c923c63b25ffd9f9a.tar.gz txr-62e1785a69a35e6df8bbee8c923c63b25ffd9f9a.tar.bz2 txr-62e1785a69a35e6df8bbee8c923c63b25ffd9f9a.zip | |
optimizer: format to 80 cols.
* share/txr/stdlib/optimize.tl (basic-blocks thread-jumps):
Wrap long pattern expressions.
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index 78fab4b2..537bceed 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -49,30 +49,43 @@ (((jmp @jlabel) . @rest) (let ((jinsns [bb.hash jlabel])) (match-case jinsns - ((@(op eq jlabel) (jmp @(require @jjlabel (neq jjlabel jlabel))) . @nil) + ((@(op eq jlabel) + (jmp @(require @jjlabel (neq jjlabel jlabel))) + . @nil) ^((jmp ,jjlabel) ,*rest)) (@jelse insns)))) (((if @reg @jlabel) . @rest) (let ((jinsns [bb.hash jlabel])) (match-case jinsns - ((@(op eq jlabel) (if @(op eq reg) @(require @jjlabel (neq jjlabel jlabel))) . @nil) + ((@(op eq jlabel) + (if @(op eq reg) + @(require @jjlabel (neq jjlabel jlabel))) + . @nil) ^((if ,reg ,jjlabel) ,*rest)) - ((@(op eq jlabel) (jmp @(require @jjlabel (neq jjlabel jlabel))) . @nil) + ((@(op eq jlabel) + (jmp @(require @jjlabel (neq jjlabel jlabel))) + . @nil) ^((if ,reg ,jjlabel) ,*rest)) (@jelse insns)))) (((ifq @reg @creg @jlabel) . @rest) (let ((jinsns [bb.hash jlabel])) (match-case jinsns - ((@(op eq jlabel) (ifq @(op eq reg) @(op eq creg) - @(require @jjlabel (neq jjlabel jlabel))) . @nil) + ((@(op eq jlabel) + (ifq @(op eq reg) @(op eq creg) + @(require @jjlabel (neq jjlabel jlabel))) + . @nil) ^((ifq ,reg ,creg ,jjlabel) ,*rest)) - ((@(op eq jlabel) (jmp @(require @jjlabel (neq jjlabel jlabel))) . @nil) + ((@(op eq jlabel) + (jmp @(require @jjlabel (neq jjlabel jlabel))) + . @nil) ^((ifq ,reg ,creg ,jjlabel) ,*rest)) (@jelse insns)))) (((close @reg @nargs @jlabel . @cargs) . @rest) (let ((jinsns [bb.hash jlabel])) (match-case jinsns - ((@(op eq jlabel) (jmp @(require @jjlabel (neq jjlabel jlabel))) . @nil) + ((@(op eq jlabel) + (jmp @(require @jjlabel (neq jjlabel jlabel))) + . @nil) ^((close ,reg ,nargs ,jjlabel ,*cargs) ,*rest)) (@jelse insns)))) (@else insns))) |