Skip to content

Rename encode_bdf function #6751

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Nov 11, 2025
Merged

Rename encode_bdf function #6751

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions ocaml/xenopsd/xc/device.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1170,24 +1170,24 @@ module PCI = struct
(* Sort into the order the devices were plugged *)
List.sort (fun a b -> compare (fst a) (fst b)) pairs

let encode_bdf pci =
let encode_sbdf pci =
(pci.Xenops_interface.Pci.domain lsl 16)
lor ((pci.bus land 0xff) lsl 8)
lor ((pci.dev land 0x1f) lsl 3)
lor (pci.fn land 0x7)

let _quarantine pci quarantine =
if !Xenopsd.pci_quarantine then
let pci_bdf = encode_bdf pci in
let pci_sbdf = encode_sbdf pci in
let domid = Xenctrlext.domid_quarantine () in
let xcext = Xenctrlext.get_handle () in
try
match quarantine with
| true ->
Xenctrlext.assign_device xcext domid pci_bdf 0 ;
Xenctrlext.assign_device xcext domid pci_sbdf 0 ;
true
| false ->
Xenctrlext.deassign_device xcext domid pci_bdf ;
Xenctrlext.deassign_device xcext domid pci_sbdf ;
true
with
| Xenctrlext.Unix_error (Unix.ESRCH, _) ->
Expand Down Expand Up @@ -1242,7 +1242,7 @@ module PCI = struct
in
let xcext = Xenctrlext.get_handle () in
ignore (quarantine host) ;
Xenctrlext.assign_device xcext domid (encode_bdf host)
Xenctrlext.assign_device xcext domid (encode_sbdf host)
_xen_domctl_dev_rdm_relaxed ;
List.iteri apply_io_permission addresses ;
( if irq > 0 then
Expand Down
Loading