
{
{ The purpose of this request is to return a pointer to the
{ private read information for the current instance of open
{ of the file.
{

 FUNCTION [INLINE] bai$pri (file_instance: ^bat$task_file_entry):
      ^bat$private_read_information;

    bai$pri := file_instance^.private_read_information;

  FUNCEND bai$pri;
