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.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.sml')
| -rw-r--r-- | src/mono.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/mono.sml b/src/mono.sml index 1d446dda..bf38c0bc 100644 --- a/src/mono.sml +++ b/src/mono.sml @@ -68,6 +68,8 @@ datatype export_kind = datatype Export.export_kind datatype failure_mode = datatype Settings.failure_mode +datatype binop_intness = Int | NotInt + datatype exp' = EPrim of Prim.t | ERel of int @@ -81,7 +83,7 @@ datatype exp' = | EAbs of string * typ * typ * exp | EUnop of string * exp - | EBinop of string * exp * exp + | EBinop of binop_intness * string * exp * exp | ERecord of (string * exp * typ) list | EField of exp * string |