define print_sma_alloc
	set $i = 0
	while $i < sma_numseg
		set $shmaddr = sma_shmaddrs[$i]
		set $header = (header_t *) ($shmaddr)
		set $prv = (block_t*)((char *)$shmaddr + sizeof(header_t))
		set $avail = 0

		while $prv->next
			set $cur = (block_t*)((char *)$shmaddr + $prv->next)
			printf "[%p] { size=%d, next=%d (%p), realsize=%d },\n", $cur, (int)$cur->size, (int)$cur->next, (block_t*)((char *)$shmaddr + $cur->next), (int)($cur->next - $prv->next)
			set $avail = $avail + $cur->size
			set $prv = $cur
		end

		if $avail == $header->avail
			printf "Integrity : OK\n"
		else
			printf "Integrity : FAIL\n"
		end
		set $i = $i + 1
	end
end