INCLUDE "debug.ml"
INCLUDE "utils.ml"
-INCLUDE "trace.ml"
+INCLUDE "log.ml"
open Format
SET (slot.(dst) , ns.concat4 slot1.(src1) slot1.(src2) slot2.(src3) slot2.(src4))
| OP_SELF _ ->
- slot.(dst) <- ns.singleton t
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.singleton t
- | OP_SELF_LEFT1 src -> slot.(dst) <- ns.cons t slot1.(src)
+ | OP_SELF_LEFT1 src ->
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.cons t slot1.(src)
| OP_SELF_LEFT2 (src1, src2) ->
- slot.(dst) <- ns.conscat t slot1.(src1) slot1.(src2)
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.conscat t slot1.(src1) slot1.(src2)
- | OP_SELF_RIGHT1 src -> slot.(dst) <- ns.cons t slot2.(src)
+ | OP_SELF_RIGHT1 src ->
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.cons t slot2.(src)
| OP_SELF_RIGHT2 (src1, src2) ->
- slot.(dst) <- ns.conscat t slot2.(src1) slot2.(src2)
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.conscat t slot2.(src1) slot2.(src2)
| OP_SELF_LEFT1_RIGHT1 (src1, src2) ->
- slot.(dst) <- ns.conscat t slot1.(src1) slot2.(src2)
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.conscat t slot1.(src1) slot2.(src2)
| OP_SELF_LEFT2_RIGHT1 (src1, src2, src3) ->
- slot.(dst) <- ns.conscat3 t slot1.(src1) slot1.(src2) slot2.(src3)
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.conscat3 t slot1.(src1) slot1.(src2) slot2.(src3)
| OP_SELF_LEFT1_RIGHT2 (src1, src2, src3) ->
- slot.(dst) <- ns.conscat3 t slot1.(src1) slot2.(src2) slot2.(src3)
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <- ns.conscat3 t slot1.(src1) slot2.(src2) slot2.(src3)
| OP_SELF_LEFT2_RIGHT2 (src1, src2, src3, src4) ->
- slot.(dst) <-
- ns.conscat4 t slot1.(src1) slot1.(src2) slot2.(src3) slot2.(src4)
+ LOG(__ "res-jit" 1 "Putting Node %i in the result set@\n" (Node.to_int t));
+ slot.(dst) <-
+ ns.conscat4 t slot1.(src1) slot1.(src2) slot2.(src3) slot2.(src4)
| OP_OTHER line ->
let acc = ref ns.empty in
let len = Array.length line - 1 in
(match code with
| Nil -> ()
| Cons(dst, opcode, code1) ->
- TRACE("res-jit", 3, __ " %a := %a\n%!"
+ LOG(__ "res-jit" 3 " %a := %a"
State.print dst print_opcode opcode;
);
exec_code slot slot1 slot2 t dst opcode;
match code1 with
| Nil -> ()
| Cons(dst, opcode, code1) ->
- TRACE("res-jit", 3, __ " %a := %a\n%!"
+ LOG(__ "res-jit" 3 " %a := %a"
State.print dst print_opcode opcode;
);
exec_code slot slot1 slot2 t dst opcode;
end)
DEFINE EXEC_TEMPLATE =
-(* (TRACE("res-jit", 3, __ "Node %i:\n" (Node.to_int t));
- TRACE("res-jit", 3, __ " LEFT : %a\n" pr_slot slot1);
- TRACE("res-jit", 3, __ " RIGHT : %a\n" pr_slot slot2); *)
+ (LOG(__ "res-jit" 3 "Node %i:@\nLEFT : %a@\nRIGHT : %a"
+ (Node.to_int t) print slot1 print slot2
+ );
exec slot slot1 slot2 t code;
-(* TRACE("res-jit", 3, __ " RES : %a\n\n%!" pr_slot slot))*)
+ LOG(__ "res-jit" 3 "RES : %a" print slot))
module type S =
let exec_instr = EXEC_INSTR_TEMPLATE(NodeSet.Count)
let exec_code = EXEC_CODE_TEMPLATE(NodeSet.Count)
let rec exec slot slot1 slot2 t code = EXEC_REC_TEMPLATE
- let exec slot slot1 slot2 t code = EXEC_TEMPLATE
let var _ x = x
let close _ x = x
let is_open _ = false
let exec_instr = EXEC_INSTR_TEMPLATE(NodeSet.Mat)
let exec_code = EXEC_CODE_TEMPLATE(NodeSet.Mat)
let rec exec slot slot1 slot2 t code = EXEC_REC_TEMPLATE
- let exec slot slot1 slot2 t code = EXEC_TEMPLATE
let var _ x = x
let close _ x = x
let is_open _ = false