Skip to content

Commit

Permalink
topology: do not print-debug the host NUMA information
Browse files Browse the repository at this point in the history
It's already printed by xenopsd, and now that development has stabilised,
unit-test can print this useful unformation.

Signed-off-by: Pau Ruiz Safont <[email protected]>
  • Loading branch information
psafont committed Jan 30, 2025
1 parent e2298cd commit 51397f5
Showing 1 changed file with 0 additions and 9 deletions.
9 changes: 0 additions & 9 deletions ocaml/xenopsd/lib/topology.ml
Original file line number Diff line number Diff line change
Expand Up @@ -14,8 +14,6 @@

module D = Debug.Make (struct let name = "topology" end)

open D

module CPUSet = struct
include Set.Make (struct
type t = int
Expand Down Expand Up @@ -205,12 +203,8 @@ module NUMA = struct
|> seq_sort ~cmp:dist_cmp
|> Seq.map (fun ((_, avg), nodes) -> (avg, Seq.map (fun n -> Node n) nodes))

let pp_dump_distances = Fmt.(int |> Dump.array |> Dump.array)

let make ~distances ~cpu_to_node =
let ( let* ) = Option.bind in
debug "Distances: %s" (Fmt.to_to_string pp_dump_distances distances) ;
debug "CPU2Node: %s" (Fmt.to_to_string Fmt.(Dump.array int) cpu_to_node) ;
let node_cpus = Array.map (fun _ -> CPUSet.empty) distances in

(* nothing can be scheduled on unreachable nodes, remove them from the
Expand All @@ -223,9 +217,6 @@ module NUMA = struct
)
cpu_to_node ;

debug "Cpus in node: %s"
Fmt.(to_to_string (Dump.array CPUSet.pp_dump) node_cpus) ;

let* () =
if Array.for_all (fun cpus -> CPUSet.is_empty cpus) node_cpus then (
D.info
Expand Down

0 comments on commit 51397f5

Please sign in to comment.