diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-02 18:31:46 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-02 18:31:46 +0100 |
| commit | 4df03aaf5204d2f15885b49fe3f5c9cb61b4596d (patch) | |
| tree | 89632035ea7de134700af303805fd4f4666ba494 /riscV/PrintOp.ml | |
| parent | 3e47c1b17e8ff03400106a80117eb86d7e7f9da6 (diff) | |
| download | compcert-kvx-4df03aaf5204d2f15885b49fe3f5c9cb61b4596d.tar.gz compcert-kvx-4df03aaf5204d2f15885b49fe3f5c9cb61b4596d.zip | |
Ccompu expansion
Diffstat (limited to 'riscV/PrintOp.ml')
| -rw-r--r-- | riscV/PrintOp.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/riscV/PrintOp.ml b/riscV/PrintOp.ml index 7492b01c..c1d65b4c 100644 --- a/riscV/PrintOp.ml +++ b/riscV/PrintOp.ml @@ -164,7 +164,9 @@ let print_operation reg pp = function | OEseqw optR0, [r1;r2] -> fprintf pp "OEseqw"; (get_optR0_s Ceq reg pp r1 r2 optR0) | OEsnew optR0, [r1;r2] -> fprintf pp "OEsnew"; (get_optR0_s Cne reg pp r1 r2 optR0) | OEsltw optR0, [r1;r2] -> fprintf pp "OEsltw"; (get_optR0_s Clt reg pp r1 r2 optR0) + | OEsltuw optR0, [r1;r2] -> fprintf pp "OEsltuw"; (get_optR0_s Clt reg pp r1 r2 optR0) | 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) |