diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-01 09:27:39 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-01 09:27:39 +0100 |
commit | 80db8e4b9a2321f0b102e97b70181fe368a077b4 (patch) | |
tree | f3b7482705c5c0ad1225459938b8589dd408e11f /riscV/PrintOp.ml | |
parent | 8fb2a5a165ecd48b2df76b9beff7a83cc14b5e6c (diff) | |
download | compcert-kvx-80db8e4b9a2321f0b102e97b70181fe368a077b4.tar.gz compcert-kvx-80db8e4b9a2321f0b102e97b70181fe368a077b4.zip |
Proof of fsval condition cmp ok
Diffstat (limited to 'riscV/PrintOp.ml')
-rw-r--r-- | riscV/PrintOp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/riscV/PrintOp.ml b/riscV/PrintOp.ml index 2b5ae1f5..2738e16d 100644 --- a/riscV/PrintOp.ml +++ b/riscV/PrintOp.ml @@ -192,8 +192,8 @@ let print_operation reg pp = function | OEsltiw n, [r1] -> fprintf pp "OEsltiw(%a,%ld)" reg r1 (camlint_of_coqint n) | OEsltiuw n, [r1] -> fprintf pp "OEsltiuw(%a,%ld)" reg r1 (camlint_of_coqint n) | OExoriw n, [r1] -> fprintf pp "OExoriw(%a,%ld)" reg r1 (camlint_of_coqint n) - | OEluiw n, [] -> fprintf pp "OEluiw(%ld)" (camlint_of_coqint n) - | OEaddiwr0 n, [] -> fprintf pp "OEaddiwr0(%ld,X0)" (camlint_of_coqint n) + | OEluiw (n, _), [] -> fprintf pp "OEluiw(%ld)" (camlint_of_coqint n) + | OEaddiwr0 (n, _), [] -> fprintf pp "OEaddiwr0(%ld,X0)" (camlint_of_coqint n) | OEseql optR0, [r1;r2] -> fprintf pp "OEseql"; (get_optR0_s Ceq reg pp r1 r2 optR0) | OEsnel optR0, [r1;r2] -> fprintf pp "OEsnel"; (get_optR0_s Cne reg pp r1 r2 optR0) | OEsltl optR0, [r1;r2] -> fprintf pp "OEsltl"; (get_optR0_s Clt reg pp r1 r2 optR0) |