diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-06 16:52:19 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-06 16:52:19 +0100 |
| commit | 0b402973b88e85662dda8807b1839e1e5b0a56df (patch) | |
| tree | d99e10c3bad53aa3194d56823a141603e0b91d15 /riscV/PrintOp.ml | |
| parent | eb35c3000530e379dcd79e82f001a400be8b28e9 (diff) | |
| parent | 9882b3427b9dfc7e8f2de3402773fb3a1a49f14a (diff) | |
| download | compcert-kvx-0b402973b88e85662dda8807b1839e1e5b0a56df.tar.gz compcert-kvx-0b402973b88e85662dda8807b1839e1e5b0a56df.zip | |
Merge remote-tracking branch 'origin/riscv-work' into riscv-work-fpinit-stillexp
Diffstat (limited to 'riscV/PrintOp.ml')
| -rw-r--r-- | riscV/PrintOp.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/riscV/PrintOp.ml b/riscV/PrintOp.ml index 4734795a..aa609e15 100644 --- a/riscV/PrintOp.ml +++ b/riscV/PrintOp.ml @@ -202,8 +202,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) | OEsequl optR0, [r1;r2] -> fprintf pp "OEsequl"; (get_optR0_s Ceq reg pp r1 r2 optR0) @@ -216,6 +216,7 @@ let print_operation reg pp = function | OEluil n, _ -> fprintf pp "OEluil(%ld)" (camlint_of_coqint n) | OEaddilr0 n, _ -> fprintf pp "OEaddilr0(%ld,X0)" (camlint_of_coqint n) | OEloadli n, _ -> fprintf pp "OEloadli(%ld)" (camlint_of_coqint n) + | OEmayundef isl, [r1;r2] -> fprintf pp "OEmayundef (%b,%a,%a)" isl reg r1 reg r2 | OEfeqd, [r1;r2] -> fprintf pp "OEfeqd(%a,%s,%a)" reg r1 (comparison_name Ceq) reg r2 | OEfltd, [r1;r2] -> fprintf pp "OEfltd(%a,%s,%a)" reg r1 (comparison_name Clt) reg r2 | OEfled, [r1;r2] -> fprintf pp "OEfled(%a,%s,%a)" reg r1 (comparison_name Cle) reg r2 |