Commits

camlspotter committed c0a1fb1

pure test

Comments (0)

Files changed (2)

 
 OCAMLFLAGS    += -annot -w Ae
 OCAMLCFLAGS   +=
-OCAMLOPTFLAGS +=
+OCAMLOPTFLAGS += -p
 OCAML_LINK_FLAGS +=
 OCAML_BYTE_LINK_FLAGS +=
 OCAML_NATIVE_LINK_FLAGS +=

ocaml/lexertest.ml

       time_orig time_planck
   in
 
-  Arg.parse [] (fun path ->
+  let with_orig = ref false in
+  Arg.parse ["-compare", Arg.Set with_orig, " profiling with the original" ] (fun path ->
     let ic = open_in path in
     let stream = Input.Stream.from_chan ~filename:path ic in
     let token_stream = Lex.ocaml_token_stream stream in
 
     Format.eprintf "%s@." path;
 
-    let (), time_orig = with_time parse_orig path in
+    let (), time_orig = 
+      if !with_orig then with_time parse_orig path  else (), 0.0
+    in
     let (), time_planck = with_time parse token_stream in
     time_sum_orig := !time_sum_orig +. time_orig;
     time_sum_planck := !time_sum_planck +. time_planck;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.