1. with Specs;                  use Specs; 
  2. with System.Multiprocessors; use System.Multiprocessors; 
  3.  
  4. package Hold_when_Busy is 
  5.  
  6.    protected Busy_Nodes is 
  7.  
  8.       entry Hold (Job : Jobs; Diverge_Column : out Natural_Array); 
  9.       procedure Inc; 
  10.       procedure Dec; 
  11.  
  12.    private 
  13.       No_Of_Busy_Nodes : CPU_Range := 0; 
  14.  
  15.    end Busy_Nodes; 
  16.  
  17. end Hold_when_Busy;