
      PROCEDURE [INLINE] cmp$get_number_of_io_entries (
                 VAR number_of_entries: cmt$io_completion_queue_index);

*copyc cmh$get_number_of_io_entries

??PUSH (LISTEXT := ON)??
*copyc cmv$io_completion_table

         number_of_entries := 0;

         IF cmv$io_completion_table_p <> NIL THEN
           number_of_entries := UPPERBOUND (cmv$io_completion_table_p^.entries);
         IFEND;

      PROCEND cmp$get_number_of_io_entries;

*copyc cmt$io_completion_queue_index
??POP??
