
  FUNCTION [INLINE] pfp$shared_queue
    (    shared_queue_info: pft$shared_queue_info;
         share_selections: pft$share_selections): mmt$shared_queue;

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    IF shared_queue_info.defined AND (share_selections <> $pft$share_selections []) THEN
      IF (shared_queue_info.shared_queue >= LOWERVALUE (mmt$shared_queue)) AND
            (shared_queue_info.shared_queue <= UPPERVALUE (mmt$shared_queue)) THEN
        pfp$shared_queue := shared_queue_info.shared_queue;
      ELSE
        pfp$shared_queue := mmc$null_shared_queue;
      IFEND;
    ELSE
      pfp$shared_queue := mmc$null_shared_queue;
    IFEND;

  FUNCEND pfp$shared_queue;

*copyc mmt$shared_queue
*copyc pft$share_selections
*copyc pft$shared_queue_info
?? POP ??
