quick fixcomments

aarch64/Asm.v

@@ -201,7 +201,7 @@ Inductive instruction: Type :=
   | Pstrx_a (rs: ireg) (a: addressing)                                (**r store int64 as any64 *)
   | Pstrb (rs: ireg) (a: addressing)                                  (**r store int8 *)
   | 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 *)
   (** Integer arithmetic, immediate *)
   | Paddimm (sz: isize) (rd: iregsp) (r1: iregsp) (n: Z)              (**r addition *)

scheduling/RTLpathLivegenaux.ml

@@ -229,7 +229,6 @@ let get_outputs liveness f n pi =
       fun n -> get_some @@ PTree.get n liveness
     ) path_last_successors in
   let outputs = List.fold_left Regset.union Regset.empty list_input_regs in
-
   match last_instruction with
   | Icall (_, _, _, _, _) | Itailcall (_, _, _)
   | Ibuiltin (_, _, _, _) | Ijumptable (_, _)
@@ -245,13 +244,12 @@ let set_pathmap_liveness f pm =
       let inputs = get_some @@ PTree.get n liveness in
       let (por, outputs) = get_outputs liveness f n pi in
       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);
     !new_pm
   end
 
 let print_path_info pi = begin
-  (*debug_flag := true;*)
   debug "(psize=%d; " (Camlcoq.Nat.to_int pi.psize);
   debug "\ninput_regs=";
   print_regset pi.input_regs;
@@ -260,7 +258,6 @@ let print_path_info pi = begin
   debug "\n; output_regs=";
   print_regset pi.output_regs;
   debug ")\n"
-  (*debug_flag := false*)
 end
 
 let print_path_map path_map = begin