home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / CLfO / bench.e
Encoding:
Text File  |  1999-06-05  |  247 b   |  24 lines
  1. class BENCH
  2.  
  3. creation make
  4.  
  5. feature
  6.    
  7.    s1, s2: STRING;
  8.    
  9.    make is
  10.       local
  11.         i: INTEGER;
  12.       do
  13.      !!s1.make(64_000);
  14.      from
  15.         i := 50_000;
  16.      until
  17.         i = 0
  18.      loop
  19.         !!s2.make(64_000);
  20.         i := i - 1;
  21.      end;
  22.       end;
  23. end
  24.