  PROCEDURE [INLINE] dfp$convert_p_qit_to_io_request
    (    p_queue_interface_table: dft$p_queue_interface_table;
     VAR p_io_request: ^iot$io_request);

  { This procedure uses a variant record 'trick' to convert a variable of
  { type dft$p_queue_interface_table  to one of type ^iot$io_request.

    TYPE
      converter = record
        case (io_request, queue_interface_table) of
        = io_request =
          p_io_request: ^iot$io_request,
        = queue_interface_table =
          p_queue_interface_table: dft$p_queue_interface_table,
        casend,
      recend;

    VAR
      converter_variable: converter;

    converter_variable.p_queue_interface_table := p_queue_interface_table;
    p_io_request := converter_variable.p_io_request;
  PROCEND dfp$convert_p_qit_to_io_request;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc iot$io_request
?? POP ??
