home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / MRO / bench.e
Encoding:
Text File  |  1999-06-05  |  615 b   |  38 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    array_of_array: ARRAY[ARRAY[INTEGER]];
  9.    
  10.    -- timing: INTEGER is 5_000_000;   -- large config
  11.    timing: INTEGER is 200_000;        -- small config  
  12.  
  13.    make is
  14.       local
  15.      i, limit: INTEGER;
  16.       do
  17.      -- limit := 7_000_000        -- large config 
  18.      limit := 500_000             -- small config
  19.      !!array_of_array.make(1, limit)
  20.      from
  21.         i := 1
  22.      until
  23.         i > limit
  24.      loop
  25.         array_of_array.put(<<i,2*i>>, i)
  26.         i := i + 1
  27.      end
  28.      from
  29.         i := timing;
  30.      until
  31.         i = 0
  32.      loop
  33.         array_of_array.put(Void,i)
  34.         i := i - 1;
  35.      end;
  36.       end
  37. end
  38.