diff options
author | Michael Schmidt <github@mschmidt.me> | 2016-09-14 14:00:55 +0200 |
---|---|---|
committer | Michael Schmidt <github@mschmidt.me> | 2016-09-14 14:00:55 +0200 |
commit | 09807086f6265a38c1c313c478b8cc447b156399 (patch) | |
tree | 0b241d4c9710d454a052a235fa3a42acdc113b63 | |
parent | effcbf7fab15673f10dfc2d455cb723b29515d5b (diff) | |
download | compcert-09807086f6265a38c1c313c478b8cc447b156399.tar.gz compcert-09807086f6265a38c1c313c478b8cc447b156399.zip |
add missing print operator
-rw-r--r-- | arm/PrintOp.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/arm/PrintOp.ml b/arm/PrintOp.ml index 71e1dfc3..642fff80 100644 --- a/arm/PrintOp.ml +++ b/arm/PrintOp.ml @@ -120,6 +120,7 @@ let print_operation reg pp = function | Ointuoffloat, [r1] -> fprintf pp "intuoffloat(%a)" reg r1 | Ofloatofint, [r1] -> fprintf pp "floatofint(%a)" reg r1 | Ofloatofintu, [r1] -> fprintf pp "floatofintu(%a)" reg r1 + | Ofloatofsingle, [r1] -> fprintf pp "floatofsingle(%a)" reg r1 | Ointofsingle, [r1] -> fprintf pp "intofsingle(%a)" reg r1 | Ointuofsingle, [r1] -> fprintf pp "intuofsingle(%a)" reg r1 | Osingleofint, [r1] -> fprintf pp "singleofint(%a)" reg r1 |