
  PROCEDURE [INLINE] pmp$get_executing_task_gtid (VAR global_task_id:
    ost$global_task_id);
?? PUSH (LISTEXT := ON) ??

{  The purpose of this request is to return the global_task_id of the
{  executing task.
{
{    PMP$GET_EXECUTING_TASK_GTID (GLOBAL_TASK_ID)
{
{  GLOBAL_TASK_ID: (output) This parameter specifies the global_task_id of
{                           the executing task.
{

    VAR
      xcb_p: ^ost$execution_control_block;
*IF $variable(dfv$compile_mock_code,declared)<>'UNKNOWN'
    global_task_id.index := 22;
*ELSE
    xcb_p := #address(1, osc$segnum_job_fixed_heap,
      #read_register (osc$pr_base_constant));
    global_task_id := xcb_p^.global_task_id;
*IFEND
  PROCEND pmp$get_executing_task_gtid;
*copyc OST$GLOBAL_TASK_ID
*copyc OST$HEAP
*copyc OSC$PROCESSOR_DEFINED_REGISTERS
*copyc OST$EXECUTION_CONTROL_BLOCK
*copyc OSK$KEYPOINT_CLASS_CODES
*copyc OSK$COMMON_KEYPOINT_DEFINITIONS
?? POP ??
