urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 18:31:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

disable hike jet, kill errant and unneccessary mutate-context-sample opcodes

Browse Source
This commit is contained in:
Paul Driver 2018-06-11 15:04:49 -07:00
parent 0c64dabc97
commit 61f9a39f35
3 changed files with 15 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
jets/f/hike.c
View File

@ -89,6 +89,7 @@
u3qf_hike(u3_noun axe,
u3_noun pac)
{
c3_assert(0);
if ( (u3_nul == pac) ) {
return u3nc(0, u3k(axe));
}

4
jets/tree.c
View File

@ -285,11 +285,13 @@ static u3j_core _143_hex_d[] =
0,
};
/* hike disabled while implementing edit
static u3j_harm _143_pen_hike_a[] = {{".2", u3wf_hike}, {}};
static c3_c* _143_pen_hike_ha[] = {
"7503dc65fe3164b3e95f81b51afd64ab615e26516b60df95241244e2b793d024",
0,
};
*/
static u3j_harm _143_pen_look_a[] = {{".2", u3wf_look}, {}};
static c3_c* _143_pen_look_ha[] = {
"04349d58bcb1317eba57eed8011c27a3ef7c3332c6595e45307a2d06bfc0e8d0",
@ -473,7 +475,7 @@ static u3j_core _143_pen_d[] =
{ "flor", 7, _143_pen_flor_a, 0, _143_pen_flor_ha },
{ "fork", 7, _143_pen_fork_a, 0, _143_pen_fork_ha },
{ "help", 7, _143_pen_help_a, 0, _143_pen_help_ha },
{ "hike", 7, _143_pen_hike_a, 0, _143_pen_hike_ha },
// { "hike", 7, _143_pen_hike_a, 0, _143_pen_hike_ha },
{ "look", 7, _143_pen_look_a, 0, _143_pen_look_ha },
{ "loot", 7, _143_pen_loot_a, 0, _143_pen_loot_ha },

43
noun/nock.c
View File

@ -533,17 +533,15 @@ _n_nock_on(u3_noun bus, u3_noun fol)
#define KUTT 76
#define MUSM 77
#define KUSM 78
#define MUCS 79
#define KUCS 80
#define MUTB 81
#define MUTS 82
#define MITB 83
#define MITS 84
#define KUTB 85
#define KUTS 86
#define KITB 87
#define KITS 88
#define LAST 89
#define MUTB 79
#define MUTS 80
#define MITB 81
#define MITS 82
#define KUTB 83
#define KUTS 84
#define KITB 85
#define KITS 86
#define LAST 87
/* _n_arg(): return the size (in bytes) of an opcode's argument
*/
@ -1017,7 +1015,7 @@ static char* opcode_names[] = {
"skib", "skis", "slib", "slis",
"save",
"muth", "kuth", "mutt", "kutt",
"musm", "kusm", "mucs", "kucs",
"musm", "kusm",
"mutb", "muts", "mitb", "mits",
"kutb", "kuts", "kitb", "kits",
};
@ -1339,10 +1337,6 @@ _n_comp(u3_noun* ops, u3_noun fol, c3_o los_o, c3_o tel_o)
_n_emit(ops, (c3y == los_o) ? MUSM : KUSM);
break;
case u3x_con_sam:
_n_emit(ops, (c3y == los_o) ? MUCS : KUCS);
break;
default:
op_y = (c3y == los_o)
? (axe <= 0xFF) ? MUTB : (axe <= 0xFFFF) ? MUTS : MITB // overflows to MITS
@ -1658,7 +1652,7 @@ _n_burn(u3n_prog* pog_u, u3_noun bus, c3_ys mov, c3_ys off)
&&do_skib, &&do_skis, &&do_slib, &&do_slis,
&&do_save,
&&do_muth, &&do_kuth, &&do_mutt, &&do_kutt,
&&do_musm, &&do_kusm, &&do_mucs, &&do_kucs,
&&do_musm, &&do_kusm,
&&do_mutb, &&do_muts, &&do_mitb, &&do_mits,
&&do_kutb, &&do_kuts, &&do_kitb, &&do_kits,
};
@ -2289,21 +2283,6 @@ _n_burn(u3n_prog* pog_u, u3_noun bus, c3_ys mov, c3_ys off)
u3z(o);
BURN();
do_kucs:
x = _n_pep(mov, off);
top = _n_swap(mov, off);
goto mucs_in;
do_mucs:
x = _n_pep(mov, off);
_n_toss(mov, off);
top = _n_peek(off);
mucs_in:
o = *top;
*top = u3nc(u3k(u3h(o)),
u3nt(u3k(u3h(u3t(o))), x, u3k(u3t(u3t(u3t(o))))));
u3z(o);
BURN();
do_kitb:
x = pog_u->lit_u.non[pog[ip_w++]];
goto kut_in;