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

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

    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_io_request := p_io_request;
    p_queue_interface_table := converter_variable.p_queue_interface_table;
  PROCEND dfp$convert_p_io_request_to_qit;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc iot$io_request
?? POP ??
