
  PROCEDURE [INLINE] nlp$cl_incr_priority_connection;

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

{ PURPOSE:
{   The purpose of this request is to increment the count of
{   active priority connections.
{
{ NOTES: 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 := 0;
    new_priority_count := 1;

    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_incr_priority_connection;

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