
  TYPE
    pmt$task_debug_mode_stack = record
      top_of_stack: pmc$min_elements_in_debug_stack .. pmc$max_elements_in_debug_stack,
      stack: ^pmt$debug_mode_stack,
    recend,

    pmt$debug_mode_stack = record
      element: array [pmc$min_elements_in_debug_stack .. pmc$max_elements_in_debug_stack] of pmt$debug_mode,
      previous_stack: ^pmt$debug_mode_stack,
    recend;

  CONST
    pmc$min_elements_in_debug_stack = 0,
    pmc$max_elements_in_debug_stack = 63;

*copyc PMT$DEBUG_MODE

