
{  This deck defines the format of the first word of every NOS/VE stack frame.

{ NOTE:
{   If this type changes, the procedure pmp$intercept_call_procedure in
{   pmm$intercept_procedures which establishes its own block exit condition
{   handler must also be changed.

  TYPE
    pmt$os_stack_frame_word = packed record
      established_handler: ^pmt$established_handler,
      terminate_inhibit_frame: boolean,
      block_exit_frame: boolean,
      debug_cff_frame: boolean,
      ada_critical_frame: boolean,
      ada_critical_frame_count: 0 .. pmc$max_number_of_tasks,
    recend;

*copyc pmt$established_handler
*copyc pmt$max_number_of_tasks
