{***********************************************************************}
{									}
{ __Ptr2Str   Return a string representing a pointer value		}
{									}
{ function  __Ptr2Str(ThisPtr : pointer) : string;			}
{									}
{	      ThisPtr	The pointer whose value is returned as a	}
{			string.  The format of the string is		}
{									}
{				    SSSS:OOOO				}
{									}
{			where SSSS is the hexadecimal representation	}
{			of the segment, and OOOO is the hexadecimal	}
{			representation of the offset.			}
{									}
{ Description __Ptr2Str returns a string representing the segment and	}
{	      offset values of a pointer in hexadecimal.		}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function  __Ptr2Str(ThisPtr : pointer) : string;

  const
    COLON = ':';

  begin {__Ptr2Str}

    __Ptr2Str := __ToHexStr(_VectorAddr(ThisPtr)._Seg,SizeOf(word)) +
							      COLON +
		 __ToHexStr(_VectorAddr(ThisPtr)._Ofs,SizeOf(word))

  end;	{__Ptr2Str}
