Subversion Repositories ahb_slave

 
function integer rand_chance;
      input [31:0] chance_true;
 
      begin
	 if (chance_true > 100)
	   begin
	      $display("RAND_CHANCE-E-: fatal error, rand_chance called with percent chance larger than 100.\tTime: %0d ns", $time);
	      $finish;
	   end
	 rand_chance = (rand(1,100) <= chance_true);
      end
endfunction // rand_chance
 
 
function integer rand;
      input [31:0] min;
      input [31:0] max;
 
      integer      range;
      begin
	 if (min > max)
	   begin
	      $display("RAND-E-: fatal error, rand was called with min larger than max.\tTime: %0d ns", $time);
	      $finish;
	   end
 
	 range = (max - min) + 1;
	 if (range == 0) range = -1;
	 rand  = min + ($random % range); 
      end
endfunction // rand
 
 
function integer align;
      input [31:0]  num;
      input [31:0]  align_size;
 
      integer       align;
      begin
         align = num - (num % align_size);
      end
endfunction
 
 
function integer rand_align;
      input [31:0] min;
      input [31:0] max;
      input [31:0] align;
 
      integer      rand_align;
      begin
         rand_align = rand(min, max);
 
         if (rand_align > align)
           rand_align = align(rand_align, align);
      end
endfunction