
  PROCEDURE [INLINE] nlp$cl_decr_priority_connection;

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

{ PURPOSE:
{   The purpose of this request is to decrement the count of active priority connections.
{
{ NOTE: This request is intended for use solely by the Channel Connection Entity.

    VAR
      actual_priority_count: integer,
      initial_priority_count: integer,
      new_priority_count: integer,
      result: osc$cs_successful .. osc$cs_variable_locked;

    initial_priority_count := 1;
    new_priority_count := 0;

    REPEAT
      #COMPARE_SWAP (nlv$cl_priority_connections, initial_priority_count, new_priority_count,
            actual_priority_count, result);
      IF result = osc$cs_failed THEN
        initial_priority_count := actual_priority_count;
        new_priority_count := initial_priority_count - 1;
      IFEND;
    UNTIL result = osc$cs_successful;
    nlv$cl_priority_connect_count := new_priority_count;

  PROCEND nlp$cl_decr_priority_connection;

*copyc ost$signature_lock_status
*copyc nlv$cl_priority_connections
*copyc nlv$cl_priority_connect_count
?? POP ??

