Commit 5ffaf389 authored by Pietro Abate's avatar Pietro Abate

[r2003-06-07 17:57:14 by cvscast] Empty log message

Original author: cvscast
Date: 2003-06-07 17:57:14+00:00
parent a014f905
...@@ -9,7 +9,9 @@ let gen = "split.ml" ...@@ -9,7 +9,9 @@ let gen = "split.ml"
let xml = "split" let xml = "split"
let cduce = [ "split0.cd"; "split1.cd"; "split2.cd"; "split3.cd" ] let cduce = [ "split0.cd"; "split1.cd"; "split2.cd"; "split3.cd" ]
let xslt = [ "split1.xsl"; "split2.xsl" ] let xslt = [ "split1.xsl"; "split2.xsl" ]
let xduce = [ "split1.q"; "split2.q"; "split3.q" ] let xduce = [] (* [ "split1.q"; "split2.q"; "split3.q" ] *)
let args = [ 0; 10 ; 50; 100; 500; 1000; (* 5000 *) ]
let sp = sprintf let sp = sprintf
let langs = let langs =
...@@ -56,8 +58,6 @@ let time s = ...@@ -56,8 +58,6 @@ let time s =
done; done;
pr "\n" pr "\n"
let args = [ 10 ; 50; 100; (* 500; 1000; 5000 *) ]
let run s = let run s =
flush stdout; flush stdout;
ignore (Sys.command s) ignore (Sys.command s)
......
...@@ -67,9 +67,9 @@ let make_result_basic v (code,r) = ...@@ -67,9 +67,9 @@ let make_result_basic v (code,r) =
| Const c -> const c | Const c -> const c
| _ -> assert false | _ -> assert false
in in
buf.(!cursor + a) <- x buf.(!cursor) <- x;
incr cursor
done; done;
cursor := !cursor + n;
code ) code )
...@@ -288,13 +288,12 @@ and run_disp_string_utf8_loop i j s q d = ...@@ -288,13 +288,12 @@ and run_disp_string_utf8_loop i j s q d =
let run_dispatcher d v = let run_dispatcher d v =
let code = run_dispatcher d v in let code = run_dispatcher d v in
(* for unknown reasons, it seems to be faster to copy the interesting prefix... *) cursor := 0;
(* cursor := 0; (code,!buffer)
(code,!buffer) *) (* let r = Array.create !cursor Absent in
let r = Array.create !cursor Absent in
blit !buffer 0 r 0 !cursor; blit !buffer 0 r 0 !cursor;
cursor := 0; cursor := 0;
(code,r) (code,r) *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment