home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / PMO / bench.e < prev    next >
Encoding:
Text File  |  1999-06-05  |  702 b   |  51 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    fruit_array: ARRAY[FRUIT];
  9.  
  10.    apple: APPLE;
  11.    
  12.    peach: PEACH;
  13.  
  14.    make is
  15.       local
  16.      i, limit: INTEGER
  17.       do
  18.      limit := 2_500_000
  19.      !!fruit_array.make(1,limit)
  20.      -- Filling `fruit_array' with apples :
  21.      from
  22.         i := 1
  23.      until
  24.         i > limit
  25.      loop
  26.         !!apple.make(i)
  27.         fruit_array.put(apple, i)
  28.         i := i + 1
  29.      end
  30.      -- To clear `fruit_array' contents :
  31.      from
  32.         i := 1
  33.      until
  34.         i > limit
  35.      loop
  36.         fruit_array.put(Void, i)
  37.         i := i + 1
  38.      end
  39.      -- Filling `fruit_array' with peaches :
  40.      from
  41.         i := 1
  42.      until
  43.         i > limit
  44.      loop
  45.         !!peach.make(i)
  46.         fruit_array.put(peach, i)
  47.         i := i + 1
  48.      end
  49.       end
  50. end
  51.