diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1996-11-16 15:49:37 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1996-11-16 15:49:37 +0000 |
| commit | bd2c32b428b7250483ca1ba580a9c894ec1e7de6 (patch) | |
| tree | b190add4ae43662f4310a21fde59c73c9ecc8720 /tools/profiling.ml | |
| parent | 7b0728e36f044e12eaa30f74a71462d7aa2ee4b3 (diff) | |
| download | ocaml-bd2c32b428b7250483ca1ba580a9c894ec1e7de6.tar.gz | |
`cslprof.dump' renomme' en `ocamlprof.dump'.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1196 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/profiling.ml')
| -rw-r--r-- | tools/profiling.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/profiling.ml b/tools/profiling.ml index 69efdb94d7..3b28cb9024 100644 --- a/tools/profiling.ml +++ b/tools/profiling.ml @@ -22,7 +22,7 @@ exception Bad_profile let dump_counters () = begin try - let ic = open_in_bin "cslprof.dump" in + let ic = open_in_bin "ocamlprof.dump" in let prevl = (input_value ic : profiling_counters) in close_in ic; List.iter2 @@ -41,7 +41,7 @@ let dump_counters () = with _ -> () end; begin try - let oc = open_out_bin "cslprof.dump" in + let oc = open_out_bin "ocamlprof.dump" in output_value oc !counters; close_out oc with _ -> () |