home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / LkROSm / bench.e
Encoding:
Text File  |  1999-06-05  |  310 b   |  32 lines
  1. class BENCH
  2.  
  3. creation make 
  4.  
  5. feature
  6.  
  7.    s: STRING
  8.  
  9.    make is
  10.       local
  11.      i, j: INTEGER;
  12.       do
  13.      from
  14.         i := 350_000;
  15.      until
  16.         i = 0
  17.      loop
  18.         from
  19.            j := 80;
  20.         until
  21.            j = 40
  22.         loop
  23.            !!s.make(j);
  24.            j := j - 1;
  25.         end;     
  26.         i := i - 1;
  27.      end;
  28.       end;
  29.  
  30. end
  31.  
  32.