ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 11:51:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

minor improvements to the quote opcode implementation

Browse Source
This commit is contained in:
Paul Driver 2018-02-18 13:10:33 -08:00
parent e3ca0ad64b
commit b95a663b59
1 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
noun/nock.c
View File

@ -1372,36 +1372,48 @@ _n_burn(c3_y* pog, u3_noun bus, c3_ys mov, c3_ys off)
u3z(o); u3z(o);
BURN(); BURN();
do_lil1: do_lit0:
_n_toss(mov, off); _n_push(mov, off, 0);
BURN();
do_lit1: do_lit1:
_n_push(mov, off, 1);
BURN();
do_litb:
_n_push(mov, off, pog[ip_s++]);
BURN();
do_lits:
_n_push(mov, off, _n_resh(pog, &ip_s));
BURN();
do_litn:
_n_push(mov, off, u3k(_n_rean(pog, &ip_s)));
BURN();
do_lil1:
x = 1; x = 1;
goto quot_in; goto lil_in;
do_lilb: do_lilb:
_n_toss(mov, off);
do_litb:
x = pog[ip_s++]; x = pog[ip_s++];
goto quot_in; goto lil_in;
do_lils: do_lils:
_n_toss(mov, off);
do_lits:
x = _n_resh(pog, &ip_s); x = _n_resh(pog, &ip_s);
goto quot_in; goto lil_in;
do_liln: do_liln:
_n_toss(mov, off);
do_litn:
x = u3k(_n_rean(pog, &ip_s)); x = u3k(_n_rean(pog, &ip_s));
goto quot_in; goto lil_in;
do_lil0: do_lil0:
_n_toss(mov, off);
do_lit0:
x = 0; x = 0;
quot_in: lil_in:
_n_push(mov, off, x); top = _n_peek(off);
u3z(*top);
*top = x;
BURN(); BURN();
do_noct: // [fol old bus] do_noct: // [fol old bus]