pack, poh: fix done_packing

Author: jherrera-jump

src/disco/pack/fd_pack_tile.c

@@ -756,6 +756,14 @@ after_credit( fd_pack_ctx_t *     ctx,
        increment it here. */
     FD_MCNT_INC( PACK, MICROBLOCK_PER_BLOCK_LIMIT, 1UL );
     log_end_block_metrics( ctx, now, "microblock" );
+
+    fd_done_packing_t * done_packing = fd_chunk_to_laddr( ctx->poh_out_mem, ctx->poh_out_chunk );
+    done_packing->microblocks_in_slot = ctx->slot_microblock_cnt;
+
+    fd_stem_publish( stem, 1UL, fd_disco_bank_sig( ctx->leader_slot, ctx->pack_idx ), ctx->poh_out_chunk, sizeof(fd_done_packing_t), 0UL, 0UL, fd_frag_meta_ts_comp( fd_tickcount() ) );
+    ctx->poh_out_chunk = fd_dcache_compact_next( ctx->poh_out_chunk, sizeof(fd_done_packing_t), ctx->poh_out_chunk0, ctx->poh_out_wmark );
+    ctx->pack_idx++;
+
     ctx->drain_banks         = 1;
     ctx->leader_slot         = ULONG_MAX;
     ctx->slot_microblock_cnt = 0UL;

src/discoh/poh/fd_poh_tile.c

@@ -1506,7 +1506,7 @@ after_credit( fd_poh_ctx_t *      ctx,
 
   /* We don't want to tick over (finish) the slot until pack tell us
      it's done. */
-  if( FD_LIKELY( !ctx->slot_done && is_leader ) ) max_remaining_microblocks = fd_ulong_max( 1UL, max_remaining_microblocks );
+  if( FD_LIKELY( !ctx->slot_done && is_leader && max_remaining_microblocks==0UL ) ) return;
 
   /* With hashcnt_per_tick hashes per tick, we actually get
      hashcnt_per_tick-1 chances to mixin a microblock.  For each tick
@@ -1815,12 +1815,9 @@ during_frag( fd_poh_ctx_t * ctx,
 
   ulong slot;
   switch( ctx->in_kind[ in_idx ] ) {
-    case IN_KIND_BANK: {
-      slot = fd_disco_bank_sig_slot( sig );
-      break;
-    }
+    case IN_KIND_BANK:
     case IN_KIND_PACK: {
-      slot = fd_disco_poh_sig_slot( sig );
+      slot = fd_disco_bank_sig_slot( sig );
       break;
     }
     default: