; --------------------------------------------------------------------------------
; @Title: LynxSecure specific menu
; @Description: -
; @Keywords: lynxsecure menu awareness
; @Author: DIE
; @Copyright: (c) 1989-2021 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: lynxsecure.m 7861 2022-07-29 13:45:42Z amerkle $

NAME "TASK.LYNXSECURE"

IF !MENU.EXIST("TASK.LYNXSECURE")
(

add
menu
(
  popup "&LynxSecure"
  (
    default
    menuitem "Display &Subjects"     "EXTension.Subject"
    SEPARATOR
    MENUITEM "Display Task Tree"        "TASK.List.TREE"
    MENUITEM "Display Core Activity"    "CORE.List"
  )
  ;popup "&Help"
  ;(
  ;  menuitem "LynxSecure Hypervisor Awareness Manual" "HELP __RTOS_lynxsecure_"
  ;)
)

add
menu "ext.subject"
(
  default
  menuitem "Display detailed"
  (
    PRIVATE &address
    &address=address.offset(track.address())
    EXTension.Subject &address
  )
  menuitem "Display subject struct"
  (
    PRIVATE &address
    &address=track.address()
    Var.View %Open %String (subject_global_t*)(&address)
  )
  menuitem "List intermediate page table"
  (
    PRIVATE &address
    &address=address.offset(track.address())
    &address=ext.subject.vttb(&address)
    MMU.List IntermedPageTable 0x0 A:&address
  )
  menuitem "Dump subject entry"
  (
    PRIVATE &address
    &address=track.address()
    Data.dump &address /Long /dialog
  )
)

add
menu "ext.vcpu"
(
  default
  menuitem "Display detailed"
  (
    PRIVATE &address
    &address=address.offset(track.address())
    EXTension.VCPU &address
  )
  menuitem "Display vcpu struct"
  (
    PRIVATE &address
    &address=track.address()
    Var.View %Open (vcpu_t*)(&address)
  )
  menuitem "Dump vcpu entry"
  (
    PRIVATE &address
    &address=track.address()
    Data.dump &address /l /dialog
  )
)

)