diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-03-27 11:26:06 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-03-27 11:26:06 -0400 |
| commit | 0b941d68e7ceba9302d57eb8083e8244602a09ce (patch) | |
| tree | f74a786d667b2b1c70bb39e9a1bfb5c8f58bd5d5 /src/mono_opt.sml | |
| parent | bef4dd04f19c2001561e9e889116f5a2f8905bc0 (diff) | |
| parent | 8e114ff992a3e730f2eb42095267969eebf75c36 (diff) | |
Merge.
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 22ee36fc..f4cd6895 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -633,6 +633,8 @@ fun exp e = EFfiApp ("Basis", "writec", [e]) | EBinop (_, "+", (EPrim (Prim.Int n1), _), (EPrim (Prim.Int n2), _)) => EPrim (Prim.Int (Int64.+ (n1, n2))) + | EBinop (_, "-", (EPrim (Prim.Int n1), _), (EPrim (Prim.Int n2), _)) => EPrim (Prim.Int (Int64.- (n1, n2))) + | EBinop (_, "*", (EPrim (Prim.Int n1), _), (EPrim (Prim.Int n2), _)) => EPrim (Prim.Int (Int64.* (n1, n2))) | _ => e |