; --------------------------------------------------------------------------------
; @Title: QNX Hypervisor (QVM) specific menu
; @Description: -
; @Keywords: QNX hypervisor QVM menu awareness
; @Author: DIE
; @Copyright: (c) 1989-2014 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: qvm.men 9860 2024-02-09 12:00:30Z rdienstbeck $

add
menu
(
  popup "&QNXHV"
  (
    SEPARATOR
    MENUITEM "Display &VMs"             "TASK.QVM"
    MENUITEM "Display Task Tree"        "TASK.List.TREE"
    MENUITEM "Display Core Activity"    "CORE.List"
    SEPARATOR
    MENUITEM "Load QVM symbols"
    (
      sYmbol.AutoLOAD.CHECK
      sYmbol.AutoLOAD.TOUCH "qvm"
    )
    MENUITEM "Setup guest debugging..."
    (
      DO ~~/demo/arm/kernel/qnx/setup_guest.cmm
    )
  )
  //popup "&Help"
  //(
  //  MENUITEM "[:manual]OS Awareness Manual QNX Hypervisor" "HELP __RTOS_rtos_"
  //)
)

add
menu "task.qvm"
(
  default
  menuitem "Display detailed"
  (
    PRIVATE &magic
    &magic=address.offset(track.address())
    TASK.QVM &magic
  )
  menuitem "Display guest struct"
  (
    PRIVATE &segment &address
    &segment=address.segment(track.address())
    &address=address.offset(all_guests)
    Var.View %Open (struct guest_system***)(H:0:::&segment::&address)
  )
  menuitem "List intermediate page table"
  (
    PRIVATE &address
    &address=address.offset(track.address())
    &address=ext.qvm.vttb(&address)
    MMU.List IntermedPageTable 0x0 A:&address
  )
  separator
  menuitem "Load QVM symbols"
  (
    sYmbol.AutoLOAD.CHECK
    sYmbol.AutoLOAD.TOUCH "qvm"
  )
  menuitem "Setup guest debugging..."
  (
    PRIVATE &magic
    &magic=address.offset(track.address())
    DO ~~/demo/arm/kernel/qnx/setup_guest.cmm &magic
  )
)