diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-07-10 18:21:22 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-07-10 18:21:22 +0200 |
| commit | fe7e30495c1690068e1df8aded85404299aaf329 (patch) | |
| tree | ad10a9c7c096d5ad05f99d4b0af16767aac278bd /kvx | |
| parent | 36d6c732567a10a893b502ab86f6b438fa5e0a8a (diff) | |
| download | compcert-kvx-fe7e30495c1690068e1df8aded85404299aaf329.tar.gz compcert-kvx-fe7e30495c1690068e1df8aded85404299aaf329.zip | |
proper ordering on calls etc. ?
Diffstat (limited to 'kvx')
| -rw-r--r-- | kvx/lib/PrepassSchedulingOracle.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kvx/lib/PrepassSchedulingOracle.ml b/kvx/lib/PrepassSchedulingOracle.ml index 6169bf16..b83078f8 100644 --- a/kvx/lib/PrepassSchedulingOracle.ml +++ b/kvx/lib/PrepassSchedulingOracle.ml @@ -132,21 +132,21 @@ let get_simple_dependencies (seqa : (instruction*Regset.t) array) = match insn with | Inop _ -> () | Iop(op, inputs, output, _) -> - (if Op.is_trapping_op op then irreversible_action i); + (if Op.is_trapping_op op then set_branch i); add_input_regs i inputs; add_output_reg i (latency_of_op op (List.length inputs)) output | Iload(trap, chunk, addressing, addr_regs, output, _) -> - (if trap=TRAP then irreversible_action i); + (if trap=TRAP then set_branch i); add_input_mem i; add_input_regs i addr_regs; add_output_reg i (latency_of_load trap chunk addressing (List.length addr_regs)) output | Istore(chunk, addressing, addr_regs, input, _) -> - irreversible_action i; + set_branch i; add_input_regs i addr_regs; add_input_reg i input; add_output_mem i | Icall(signature, ef, inputs, output, _) -> - irreversible_action i; + set_branch i; (match ef with | Datatypes.Coq_inl r -> add_input_reg i r | Datatypes.Coq_inr symbol -> () |