urbit/ares
1
1
Fork 0
mirror of https://github.com/urbit/ares.git synced 2024-11-23 00:25:49 +03:00
Code Issues Packages Projects Releases Wiki Activity

line: ports +mede

Browse Source
This commit is contained in:
Joe Bryan 2024-07-19 15:42:57 -04:00
parent 5b2ea2a48f
commit 1bfb85bfed
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
hoon/codegen/lib/line.hoon
View File

@ -893,12 +893,30 @@
%3
$(tres t.tres, tree [%both p.i.tres need.i.tres tree])
==
:: XX
:: mede - immediates into need
:: +mede: split immediate into registers of need
::
++ mede
|= [u=@uwoo n=* =need]
^- [@uwoo _gen]
!!
=| todo=(list pole)
=/ tack=(list [n=(unit *) =_need]) [`n need]~
|- ^- [@uwoo _gen]
?~ tack
(emit ~ todo %hop u)
?- -.need.i.tack
%none $(tack t.tack)
%this
?~ n.i.tack
$(todo [[%poi sass.need.i.tack] todo], tack t.tack)
$(todo [[%imm u.n.i.tack sass.need.i.tack] todo], tack t.tack)
::
%both
?~ n.i.tack
$(tack [[~ rite.need.i.tack] [~ left.need.i.tack] t.tack])
?@ u.n.i.tack
$(tack [[~ rite.need.i.tack] [~ left.need.i.tack] t.tack])
$(tack [[`+.u.n.i.tack rite.need.i.tack] [`-.u.n.i.tack left.need.i.tack] t.tack])
==
--
--
=+ ver=%1