home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / LaStk / bench.e next >
Encoding:
Text File  |  1999-06-05  |  400 b   |  34 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    make is
  9.       local
  10.      i: INTEGER
  11.       do
  12.      from
  13.         i := 350;
  14.      until
  15.         i < 0
  16.      loop
  17.         -- recurse(50_000);   -- large config
  18.         recurse(30_000);      -- small config
  19.         i := i - 1;
  20.      end
  21.       end
  22.    
  23.    recurse (i: INTEGER) is
  24.       local
  25.      p: POINT
  26.       do
  27.      !!p.make(1.0, 2.0);
  28.      if i /= 0 then
  29.         recurse(i-1);
  30.      end
  31.       end
  32. end
  33.  
  34.