Commit a6e993a3 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-03-16 12:52:57 by cvscast] Empty log message

Original author: cvscast
Date: 2003-03-16 12:52:57+00:00
parent f3655ea6
......@@ -44,7 +44,7 @@ let make_result_prod v1 r1 v2 r2 v (code,r) =
in
buf.(!cursor + a) <- x
done;
(* if r1 <> !cursor then *) blit buf !cursor buf r1 n;
if r1 <> !cursor then blit buf !cursor buf r1 n;
cursor := r1 + n; (* clean space for GC ? *)
code )
......@@ -101,7 +101,7 @@ let make_result_string i j s q r1 r2 (code,r) =
in
buf.(!cursor + a) <- x
done;
blit buf !cursor buf r1 n;
if r1 <> !cursor then blit buf !cursor buf r1 n;
cursor := r1 + n;
code )
......@@ -229,7 +229,7 @@ and run_disp_string_loop i j s q d =
let run_dispatcher d v =
let code = run_dispatcher d v in
(* for unknown reasons, it seems to be faster to copy the intersting prefix... *)
(* for unknown reasons, it seems to be faster to copy the interesting prefix... *)
(* cursor := 0;
(code,!buffer) *)
let r = Array.create !cursor Absent in
......
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