
  TYPE
    pft$attached_pf_header = record
      case entry_type: pft$attached_pf_entry_type of
      = pfc$attached_pf_entry_valid =
        p_attached_pf_entry: ^pft$attached_pf_entry,
      = pfc$attached_pf_entry_unused =
        ,
      casend,
    recend;

*copyc pft$attached_pf_entry_type
*copyc pft$attached_pf_entry
