surface allocate label in profile sample

This commit is contained in:
Paul Driver 2018-04-02 11:39:03 -07:00
parent 9b00b2084d
commit 41fd9cf287
2 changed files with 9 additions and 1 deletions

View File

@ -1736,7 +1736,9 @@ u3a_sweep(void)
: u3r_mug(u3a_to_pom(u3a_outa(u3a_boxto(box_w)))),
box_u->use_w);
u3a_print_memory("leak (minimum)", box_u->siz_w);
// fprintf(stderr, "\r\n\r\n");
// u3m_p("leak", u3a_to_pom(u3a_outa(u3a_boxto(box_w))));
// fprintf(stderr, "\r\n\r\n");
leq_w += box_u->siz_w;
}
if ( box_u->cod_w ) {

View File

@ -122,7 +122,13 @@ _t_samp_process(u3_road* rod_u)
u3_noun don = rod_u->pro.don;
while ( u3_nul != don ) {
u3_noun lab = u3h(don);
// Get surface allocated label
//
// u3_noun lab = u3nc(u3i_string("foobar"), 0);
u3_noun laj = u3h(don),
lab = u3a_take(laj);
u3a_wash(laj);
// Add the label to the traced label stack, trimming recursion.
//
{