mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-29 12:15:43 +03:00
serf: updates grab to fallback to old output on error
This commit is contained in:
parent
87d9398a31
commit
46dd61d547
@ -1236,6 +1236,7 @@
|
||||
# define c3__werp c3_s4('w','e','r','p')
|
||||
# define c3__west c3_s4('w','e','s','t')
|
||||
# define c3__what c3_s4('w','h','a','t')
|
||||
# define c3__whey c3_s4('w','h','e','y')
|
||||
# define c3__whom c3_s4('w','h','o','m')
|
||||
# define c3__wing c3_s4('w','i','n','g')
|
||||
# define c3__wild c3_s4('w','i','l','d')
|
||||
|
@ -273,28 +273,44 @@ u3_serf_grab(void)
|
||||
c3_assert( u3R == &(u3H->rod_u) );
|
||||
|
||||
{
|
||||
u3_noun pax = u3nc(u3i_string("whey"), u3_nul);
|
||||
u3_noun lyc = u3nc(u3_nul, u3_nul);
|
||||
u3_noun sam = u3nt(lyc, c3n, u3nq(c3__once, u3_blip, u3_blip, pax));
|
||||
u3_noun gon = u3m_soft(0, u3v_peek, sam);
|
||||
u3_noun tag, dat, val;
|
||||
u3x_cell(gon, &tag, &dat);
|
||||
u3_noun sam, gon;
|
||||
|
||||
if ( (u3_blip == tag)
|
||||
&& (u3_nul != dat)
|
||||
&& (c3y == u3r_pq(u3t(dat), c3__omen, 0, &val)) )
|
||||
{
|
||||
u3r_p(val, c3__mass, &sac);
|
||||
u3k(sac);
|
||||
u3_noun pax = u3nc(c3__whey, u3_nul);
|
||||
u3_noun lyc = u3nc(u3_nul, u3_nul);
|
||||
sam = u3nt(lyc, c3n, u3nq(c3__once, u3_blip, u3_blip, pax));
|
||||
}
|
||||
|
||||
gon = u3m_soft(0, u3v_peek, sam);
|
||||
|
||||
{
|
||||
u3_noun tag, dat, val;
|
||||
u3x_cell(gon, &tag, &dat);
|
||||
|
||||
if ( (u3_blip == tag)
|
||||
&& (u3_nul != dat)
|
||||
&& (c3y == u3r_pq(u3t(dat), c3__omen, 0, &val))
|
||||
&& (c3y == u3r_p(val, c3__mass, &sac)) )
|
||||
{
|
||||
u3k(sac);
|
||||
}
|
||||
}
|
||||
|
||||
u3z(gon);
|
||||
}
|
||||
|
||||
fprintf(stderr, "serf: measuring memory:\r\n");
|
||||
// XX refactor to fallback if sac is ~
|
||||
//
|
||||
_serf_grab(sac);
|
||||
|
||||
if ( u3_nul != sac ) {
|
||||
_serf_grab(sac);
|
||||
}
|
||||
else {
|
||||
u3a_print_memory(stderr, "total marked", u3m_mark(stderr));
|
||||
u3a_print_memory(stderr, "free lists", u3a_idle(u3R));
|
||||
u3a_print_memory(stderr, "sweep", u3a_sweep());
|
||||
fprintf(stderr, "\r\n");
|
||||
}
|
||||
|
||||
fflush(stderr);
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user