let allocator space base =
  try Hashtbl.find space.alloc base
  with Not_found ->
    let a = { index=0 ; based=false ; free=[] ; count=0 } in
    Hashtbl.add space.alloc base a ; a