|
@@ -3748,7 +3748,9 @@ let generate com =
|
|
end;
|
|
end;
|
|
if Common.defined com Define.Interp then
|
|
if Common.defined com Define.Interp then
|
|
try
|
|
try
|
|
- let ctx = Hlinterp.create true in
|
|
|
|
|
|
+ let t = Common.timer ["generate";"hl";"interp"] in
|
|
|
|
+ let ctx = Hlinterp.create false in
|
|
Hlinterp.add_code ctx code;
|
|
Hlinterp.add_code ctx code;
|
|
|
|
+ t();
|
|
with
|
|
with
|
|
Failure msg -> abort msg null_pos
|
|
Failure msg -> abort msg null_pos
|