test/alloc.ml

   1 (***********************************************************************)
   2 (*                                                                     *)
   3 (*                           Objective Caml                            *)
   4 (*                                                                     *)
   5 (*             Damien Doligez, projet Para, INRIA Rocquencourt         *)
   6 (*                                                                     *)
   7 (*  Copyright 1996 Institut National de Recherche en Informatique et   *)
   8 (*  en Automatique.  All rights reserved.  This file is distributed    *)
   9 (*  under the terms of the Q Public License version 1.0.               *)
  10 (*                                                                     *)
  11 (***********************************************************************)
  12
  13 (* $Id$ *)
  14
  15 (* Random allocation test *)
  16
  17 (*
  18   Allocate arrays of strings, of random sizes in [0..1000[, and put them
  19   into an array of 32768.  Replace a randomly-selected array with a new
  20   random-length array.  Reiterate ad infinitum.
  21 *)
  22
  23 let l = 32768;;
  24 let m = 1000;;
  25
  26 let ar = Array.create l "";;
  27
  28 Random.init 1234;;
  29
  30 let compact_flag = ref false;;
  31
  32 let main () =
  33   while true do
  34     for i = 1 to 100000 do
  35       ar.(Random.int l) <- String.create (Random.int m);
  36     done;
  37     if !compact_flag then Gc.compact () else Gc.full_major ();
  38     print_newline ();
  39     Gc.print_stat stdout;
  40     flush stdout;
  41   done
  42 ;;
  43
  44 let argspecs = [
  45   "-c", Arg.Set compact_flag, "do heap compactions";
  46 ];;
  47
  48 Arg.parse argspecs (fun _ -> ()) "Usage: alloc [-c]";;
  49
  50 main ();;
  51