urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-03 10:02:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove debug code.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-11-30 23:32:19 -08:00
parent f56aa55a32
commit 3453a8ba5c
2 changed files with 9 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
n/j.c
View File

@ -545,6 +545,7 @@ _cj_fine(u3_noun cup, u3_noun mop, u3_noun cor)
u3_weak cax = u3j_find(u3h(pac));
if ( u3_none == cax ) {
fprintf(stderr, "fine: parent not found\r\n");
return c3n;
}
else {
@ -589,6 +590,8 @@ u3j_kick(u3_noun cor, u3_noun axe)
#if 1
else if ( !_(_cj_fine(cup, mop, cor)) ) {
fprintf(stderr, "improper core %x\r\n", u3r_mug(cor));
u3m_p("improper core for label", u3h(u3t(u3t(u3h(cax)))));
abort();
return u3_none;
}
#endif
@ -729,8 +732,11 @@ _cj_mine(u3_noun cey, u3_noun cor)
// Save warm state.
//
{
c3_l jax_l = _cj_hot_mine(mop, cor);
c3_l jax_l = _cj_hot_mine(mop, cor);
u3_noun bal = u3nc(u3k(p_cey), lab);
u3m_p("new jet", bal);
fprintf(stderr, "mug %x\r\n", u3r_mug(bal));
u3h_put(u3R->jed.har_p,
bat,
u3nt(u3nq(jax_l,

53
n/t.c
View File

@ -124,8 +124,8 @@ _t_samp_process(u3_road* rod_u)
u3_noun laj = _t_jet_label(rod_u, bat);
if ( u3_none == laj ) { abort(); }
lab = u3a_take(laj);
u3a_wash(laj);
// lab = u3nc(u3i_string("foobar"), u3_nul);
lab = u3a_take(laj); u3a_wash(laj);
}
// Add the label to the traced label stack, trimming recursion.
//
@ -179,55 +179,11 @@ _t_samp_process(u3_road* rod_u)
}
#endif
int SUB;
pthread_t ONLY;
/* u3t_samp(): sample.
*/
void
u3t_samp(void)
{
// Ghetto semaphore!
//
if ( !ONLY ) {
ONLY = pthread_self();
}
else if ( ONLY != pthread_self() ) {
c3_d one_d, two_d;
fprintf(stderr, "only %p, this %p\r\n", ONLY, pthread_self());
pthread_threadid_np(ONLY, &one_d);
pthread_threadid_np(pthread_self(), &two_d);
fprintf(stderr, "one %llu, two %llu\r\n", one_d, two_d);
abort();
return;
}
#if 0
if ( &(u3H->rod_u) != u3R ) {
u3a_road* rod_u = u3R;
u3R = &(u3H->rod_u);
{
c3_w i_w;
u3_noun som[64];
SUB = 1;
for ( i_w = 0; i_w < 64; i_w++ ) {
som[i_w] = u3nc(i_w, i_w);
}
for ( i_w = 0; i_w < 64; i_w++ ) {
u3z(som[i_w]);
}
SUB = 0;
}
u3R = rod_u;
}
return;
#endif
// Profile sampling, because it allocates on the home road,
// only works on when we're not at home.
//
@ -238,11 +194,6 @@ u3t_samp(void)
u3R = &(u3H->rod_u);
{
u3_noun lab = _t_samp_process(rod_u);
#if 0
u3z(lab);
u3R = rod_u;
return;
#endif
c3_assert(u3R == &u3H->rod_u);
if ( 0 == u3R->pro.day ) {