
{
{     NOTE: Callers of this procedure require that 'tmv$ptl_lock'
{           be XREFed or XDCLed in the module.
{

  PROCEDURE [INLINE] tmp$check_ptl_lock
    (VAR ptl_lock_set: boolean);

    ptl_lock_set := tmv$ptl_lock.locked;

  PROCEND tmp$check_ptl_lock;

