diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-23 17:46:40 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-23 17:46:40 -0500 |
| commit | 38d3bc508b3b882e81599bdb0e1d4a2572c23dd0 (patch) | |
| tree | 31bbf2f979aa12d31eb3977bb6c0cdfe2c57bae9 /src/mono_opt.sml | |
| parent | 867a11af44827af8974250e6dbb5e96b6268b44f (diff) | |
[De]serialization of times in JavaScript; proper integer division in JavaScript; Basis.crypt; Top.mkRead'; more aggressive Mono-level inlining, for values of function-y types
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 34f43143..d05e38fd 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -536,7 +536,7 @@ fun exp e = | EFfiApp ("Basis", "attrifyString_w", [(EFfiApp ("Basis", "str1", [e]), _)]) => EFfiApp ("Basis", "attrifyChar_w", [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))) | _ => e |