Commit 8faafc76 authored by Léo Gourdin's avatar Léo Gourdin
Browse files

quick fixcomments

parent aa51677a
...@@ -201,7 +201,7 @@ Inductive instruction: Type := ...@@ -201,7 +201,7 @@ Inductive instruction: Type :=
| Pstrx_a (rs: ireg) (a: addressing) (**r store int64 as any64 *) | Pstrx_a (rs: ireg) (a: addressing) (**r store int64 as any64 *)
| Pstrb (rs: ireg) (a: addressing) (**r store int8 *) | Pstrb (rs: ireg) (a: addressing) (**r store int8 *)
| Pstrh (rs: ireg) (a: addressing) (**r store int16 *) | Pstrh (rs: ireg) (a: addressing) (**r store int16 *)
| Pstpw (rs1 rs2: ireg) (chk1 chk2: memory_chunk) (a: addressing) (**r store two int64 *) | Pstpw (rs1 rs2: ireg) (chk1 chk2: memory_chunk) (a: addressing) (**r store two int32 *)
| Pstpx (rs1 rs2: ireg) (chk1 chk2: memory_chunk) (a: addressing) (**r store two int64 *) | Pstpx (rs1 rs2: ireg) (chk1 chk2: memory_chunk) (a: addressing) (**r store two int64 *)
(** Integer arithmetic, immediate *) (** Integer arithmetic, immediate *)
| Paddimm (sz: isize) (rd: iregsp) (r1: iregsp) (n: Z) (**r addition *) | Paddimm (sz: isize) (rd: iregsp) (r1: iregsp) (n: Z) (**r addition *)
......
...@@ -229,7 +229,6 @@ let get_outputs liveness f n pi = ...@@ -229,7 +229,6 @@ let get_outputs liveness f n pi =
fun n -> get_some @@ PTree.get n liveness fun n -> get_some @@ PTree.get n liveness
) path_last_successors in ) path_last_successors in
let outputs = List.fold_left Regset.union Regset.empty list_input_regs in let outputs = List.fold_left Regset.union Regset.empty list_input_regs in
match last_instruction with match last_instruction with
| Icall (_, _, _, _, _) | Itailcall (_, _, _) | Icall (_, _, _, _, _) | Itailcall (_, _, _)
| Ibuiltin (_, _, _, _) | Ijumptable (_, _) | Ibuiltin (_, _, _, _) | Ijumptable (_, _)
...@@ -245,13 +244,12 @@ let set_pathmap_liveness f pm = ...@@ -245,13 +244,12 @@ let set_pathmap_liveness f pm =
let inputs = get_some @@ PTree.get n liveness in let inputs = get_some @@ PTree.get n liveness in
let (por, outputs) = get_outputs liveness f n pi in let (por, outputs) = get_outputs liveness f n pi in
new_pm := PTree.set n new_pm := PTree.set n
{psize=pi.psize; input_regs=inputs; pre_output_regs=por; output_regs=outputs} !new_pm (* FIXME: STUB *) {psize=pi.psize; input_regs=inputs; pre_output_regs=por; output_regs=outputs} !new_pm
) (PTree.elements pm); ) (PTree.elements pm);
!new_pm !new_pm
end end
let print_path_info pi = begin let print_path_info pi = begin
(*debug_flag := true;*)
debug "(psize=%d; " (Camlcoq.Nat.to_int pi.psize); debug "(psize=%d; " (Camlcoq.Nat.to_int pi.psize);
debug "\ninput_regs="; debug "\ninput_regs=";
print_regset pi.input_regs; print_regset pi.input_regs;
...@@ -260,7 +258,6 @@ let print_path_info pi = begin ...@@ -260,7 +258,6 @@ let print_path_info pi = begin
debug "\n; output_regs="; debug "\n; output_regs=";
print_regset pi.output_regs; print_regset pi.output_regs;
debug ")\n" debug ")\n"
(*debug_flag := false*)
end end
let print_path_map path_map = begin let print_path_map path_map = begin
......
Supports Markdown
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