summaryrefslogtreecommitdiff
path: root/vere/pkg/noun
diff options
context:
space:
mode:
Diffstat (limited to 'vere/pkg/noun')
-rw-r--r--vere/pkg/noun/nock.c15
1 files changed, 13 insertions, 2 deletions
diff --git a/vere/pkg/noun/nock.c b/vere/pkg/noun/nock.c
index 8de6d7e..959ec96 100644
--- a/vere/pkg/noun/nock.c
+++ b/vere/pkg/noun/nock.c
@@ -2920,12 +2920,23 @@ static u3_noun
_n_burn_on(u3_noun bus, u3_noun fol)
{
static c3_w burn_count = 0;
- if ( burn_count < 30 ) {
+ if ( burn_count < 500 ) { // Increased to 500 to capture solid pill boot
u3_noun hib = u3h(fol);
if ( c3y == u3du(hib) ) {
u3l_log("[C-Burn:%u] cell-cell formula", burn_count);
} else {
u3l_log("[C-Burn:%u] opcode %u", burn_count, hib);
+ // For call #1, dump more details
+ if ( burn_count == 1 ) {
+ u3_noun gal = u3t(fol);
+ u3l_log("[C-Burn:1-DEBUG] gal is %s", (c3y == u3du(gal)) ? "cell" : "atom");
+ if ( c3y == u3du(gal) ) {
+ u3_noun gal_h = u3h(gal);
+ u3l_log("[C-Burn:1-DEBUG] head(gal) is %s, val=%u",
+ (c3y == u3du(gal_h)) ? "cell" : "atom",
+ (c3y == u3du(gal_h)) ? u3h(gal_h) : gal_h);
+ }
+ }
}
burn_count++;
}
@@ -2944,7 +2955,7 @@ u3n_nock_on(u3_noun bus, u3_noun fol)
u3_noun pro;
static c3_w call_count = 0;
- if ( call_count < 10 ) {
+ if ( call_count < 100 ) { // Increased to 100
u3l_log(">>> u3n_nock_on call #%u <<<", call_count);
call_count++;
}