urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

jets: plug leak in (slaw %p ...)

Browse Source
This commit is contained in:
Joe Bryan 2022-02-24 22:47:50 -05:00 committed by Philip Monk
parent c091ec92eb
commit e845f71b89
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkg/urbit/jets/e/slaw.c
View File

@ -31,20 +31,17 @@ u3_noun get_syllable(c3_c** cur_ptr, c3_c* one, c3_c* two, c3_c* three) {
}
}
static
u3_noun combine(u3_noun p, u3_noun q)
static u3_noun
combine(u3_noun p, u3_noun q)
{
if (_(u3a_is_atom(p))) {
if ( (c3y == u3a_is_atom(p)) || (c3y == u3a_is_atom(q)) ) {
return 0;
}
if (_(u3a_is_atom(q))) {
return 0;
}
u3_noun ret = u3nc(0, u3qa_add(u3t(p), u3qa_mul(256, u3t(q))));
u3z(p);
u3z(q);
u3_noun lef = u3qa_mul(256, u3t(q));
u3_noun ret = u3nc(0, u3qa_add(u3t(p), lef));
u3z(lef);
u3z(p); u3z(q);
return ret;
}