diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-10-16 09:50:38 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-10-16 09:50:38 +0000 |
| commit | c857f0b02463f4b0bc8100434eecdd46ce2ecbd1 (patch) | |
| tree | 4496e88a95bac87525f6422274a8b5dafc4c356b /ia32 | |
| parent | 32b9fdc4332a6af5d108a0468399661867f4d2b4 (diff) | |
Cminor parsing and printing (from Andrew Tolmach)
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2345 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'ia32')
| -rw-r--r-- | ia32/PrintOp.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ia32/PrintOp.ml b/ia32/PrintOp.ml index d1fb350..193779e 100644 --- a/ia32/PrintOp.ml +++ b/ia32/PrintOp.ml @@ -69,6 +69,7 @@ let print_operation reg pp = function | Ocast8unsigned, [r1] -> fprintf pp "int8unsigned(%a)" reg r1 | Ocast16signed, [r1] -> fprintf pp "int16signed(%a)" reg r1 | Ocast16unsigned, [r1] -> fprintf pp "int16unsigned(%a)" reg r1 + | Oneg, [r1] -> fprintf pp "(- %a)" reg r1 | Osub, [r1;r2] -> fprintf pp "%a - %a" reg r1 reg r2 | Omul, [r1;r2] -> fprintf pp "%a * %a" reg r1 reg r2 | Omulimm n, [r1] -> fprintf pp "%a * %ld" reg r1 (camlint_of_coqint n) |