
{ DECK dfp$convert_queue_entry_loc

  TYPE
    convert_rpc_q_e_l = record
      case (ext, int) of
      = ext =
        qext: dft$rpc_queue_entry_location,
      = int =
        qint: dft$rpc_queue_entry_loc_int
      casend,
    recend;

  PROCEDURE [INLINE] dfp$convert_qel_int_to_ext
    (    inp: dft$rpc_queue_entry_loc_int;
     VAR out: dft$rpc_queue_entry_location);

    VAR
      conv: convert_rpc_q_e_l;

    conv.qint := inp;
    out := conv.qext;

  PROCEND dfp$convert_qel_int_to_ext;

  PROCEDURE [INLINE] dfp$convert_qel_ext_to_int
    (    inp: dft$rpc_queue_entry_location;
     VAR out: dft$rpc_queue_entry_loc_int);

    VAR
      conv: convert_rpc_q_e_l;

    conv.qext := inp;
    out := conv.qint;

  PROCEND dfp$convert_qel_ext_to_int;

?? PUSH (LISTEXT := ON) ??
*copyc dft$rpc_queue_entry_location
*copyc dft$rpc_queue_entry_loc_int
?? POP ??

