
  TYPE
    clt$scl_signal_contents = record
      case kind: clt$scl_signal_kind of
      = clc$signal_exiting =
        child_task_id: pmt$task_id,
        exit_control_block: ^clt$block,
      casend,
    recend;

*copyc clt$block
*copyc clt$scl_signal_kind
*copyc pmt$task_id
