diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-16 13:24:41 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-16 13:24:41 +0100 |
| commit | 8faafc7668b9423ba9bee1f4e725eab5b378c851 (patch) | |
| tree | 23acb02e9a6733e539fd77185639622f451fbdc2 | |
| parent | aa51677a82301a6c5d65717c6d9799bc8f8a0fea (diff) | |
| download | compcert-kvx-8faafc7668b9423ba9bee1f4e725eab5b378c851.tar.gz compcert-kvx-8faafc7668b9423ba9bee1f4e725eab5b378c851.zip | |
quick fixcomments
| -rw-r--r-- | aarch64/Asm.v | 2 | ||||
| -rw-r--r-- | scheduling/RTLpathLivegenaux.ml | 5 |
2 files changed, 2 insertions, 5 deletions
diff --git a/aarch64/Asm.v b/aarch64/Asm.v index 5f109224..067d32fb 100644 --- a/aarch64/Asm.v +++ b/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 *) diff --git a/scheduling/RTLpathLivegenaux.ml b/scheduling/RTLpathLivegenaux.ml index db3fc9d4..8cb500b8 100644 --- a/scheduling/RTLpathLivegenaux.ml +++ b/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 |