diff options
Diffstat (limited to 'arm/PrintOp.ml')
-rw-r--r-- | arm/PrintOp.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/arm/PrintOp.ml b/arm/PrintOp.ml index 4be41eba..96d13943 100644 --- a/arm/PrintOp.ml +++ b/arm/PrintOp.ml @@ -63,6 +63,8 @@ let print_operation reg pp = function fprintf pp "\"%s\" + %ld" (extern_atom id) (camlint_of_coqint ofs) | Oaddrstack ofs, [] -> fprintf pp "stack(%ld)" (camlint_of_coqint ofs) + | Ocast8signed, [r1] -> fprintf pp "int8signed(%a)" reg r1 + | Ocast16signed, [r1] -> fprintf pp "int16signed(%a)" reg r1 | Oadd, [r1;r2] -> fprintf pp "%a + %a" reg r1 reg r2 | Oaddshift s, [r1;r2] -> fprintf pp "%a + %a %a" reg r1 reg r2 shift s | Oaddimm n, [r1] -> fprintf pp "%a + %ld" reg r1 (camlint_of_coqint n) |