diff --git a/src/memory/conspage.c b/src/memory/conspage.c index f8802cc..f438627 100644 --- a/src/memory/conspage.c +++ b/src/memory/conspage.c @@ -238,7 +238,7 @@ struct cons_pointer allocate_cell( uint32_t tag ) { total_cells_allocated++; debug_printf( DEBUG_ALLOC, - L"Allocated cell of type '%4.4s' at %d, %d \n", tag, + L"Allocated cell of type '%4.4s' at %d, %d \n", cell->tag.bytes, result.page, result.offset ); } else { debug_printf( DEBUG_ALLOC, L"WARNING: Allocating non-free cell!" ); diff --git a/src/memory/vectorspace.c b/src/memory/vectorspace.c index 4bbeb51..3616bf3 100644 --- a/src/memory/vectorspace.c +++ b/src/memory/vectorspace.c @@ -84,10 +84,11 @@ struct cons_pointer make_vso( uint32_t tag, uint64_t payload_size ) { if ( vso != NULL ) { memset( vso, 0, padded ); + vso->header.tag.value = tag; + debug_printf( DEBUG_ALLOC, - L"make_vso: about to write tag '%4.4s' into vso at %p\n", - tag, vso ); - vso->header.tag.value = tag; + L"make_vso: written tag '%4.4s' into vso at %p\n", + vso->header.tag.bytes, vso ); result = make_vec_pointer( vso, tag ); debug_dump_object( result, DEBUG_ALLOC ); vso->header.vecp = result;