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