urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 18:01:32 +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 static u3_noun
u3_noun combine(u3_noun p, u3_noun q) 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; return 0;
} }
if (_(u3a_is_atom(q))) { u3_noun lef = u3qa_mul(256, u3t(q));
return 0; u3_noun ret = u3nc(0, u3qa_add(u3t(p), lef));
} u3z(lef);
u3z(p); u3z(q);
u3_noun ret = u3nc(0, u3qa_add(u3t(p), u3qa_mul(256, u3t(q))));
u3z(p);
u3z(q);
return ret; return ret;
} }