aboutsummaryrefslogtreecommitdiffstats
path: root/ia32
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@inria.fr>2016-03-15 14:57:27 +0100
committerXavier Leroy <xavier.leroy@inria.fr>2016-03-15 14:57:27 +0100
commitd58c35ebb8c3124d67c51091bb6e4cfedc59d999 (patch)
tree7e73edbfbbd1d5ae4087044547efef8ccfd2a452 /ia32
parentab2905797cf196d792372e8794fe5a8f2116efd5 (diff)
downloadcompcert-d58c35ebb8c3124d67c51091bb6e4cfedc59d999.tar.gz
compcert-d58c35ebb8c3124d67c51091bb6e4cfedc59d999.zip
GPR#84: add missing IA32 operators to PrintOp
Diffstat (limited to 'ia32')
-rw-r--r--ia32/PrintOp.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/ia32/PrintOp.ml b/ia32/PrintOp.ml
index 1f7f4a65..fbdcdac1 100644
--- a/ia32/PrintOp.ml
+++ b/ia32/PrintOp.ml
@@ -119,6 +119,9 @@ let print_operation reg pp = function
| Omakelong, [r1;r2] -> fprintf pp "makelong(%a,%a)" reg r1 reg r2
| Olowlong, [r1] -> fprintf pp "lowlong(%a)" reg r1
| Ohighlong, [r1] -> fprintf pp "highlong(%a)" reg r1
+ | Onot, [r1] -> fprintf pp "not(%a)" reg r1
+ | Omulhs, [r1;r2] -> fprintf pp "mulhs(%a,%a)" reg r1 reg r2
+ | Omulhu, [r1;r2] -> fprintf pp "mulhu(%a,%a)" reg r1 reg r2
| Ocmp c, args -> print_condition reg pp (c, args)
| _ -> fprintf pp "<bad operator>"