diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-07-10 10:11:35 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-10 10:11:35 -0400 |
commit | 768dfadfe4717b0c3f7b207a4980c78288b44a93 (patch) | |
tree | d927ffb9ed326f5f978ef15d1157f99239fcfb0f /src/corify.sml | |
parent | baa7f87fc4cb1d22eed66ff41a61e9525e0477e2 (diff) |
page declaration, up through monoize
Diffstat (limited to 'src/corify.sml')
-rw-r--r-- | src/corify.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/corify.sml b/src/corify.sml index baff8182..118255b7 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -427,6 +427,7 @@ fun corifyDecl ((d, loc : EM.span), st) = end | _ => raise Fail "Non-const signature for FFI structure") + | L.DPage (c, e) => ([(L'.DPage (corifyCon st c, corifyExp st e), loc)], st) and corifyStr ((str, _), st) = case str of @@ -473,7 +474,8 @@ fun maxName ds = foldl (fn ((d, _), n) => | L.DVal (_, n', _ , _) => Int.max (n, n') | L.DSgn (_, n', _) => Int.max (n, n') | L.DStr (_, n', _, str) => Int.max (n, Int.max (n', maxNameStr str)) - | L.DFfiStr (_, n', _) => Int.max (n, n')) + | L.DFfiStr (_, n', _) => Int.max (n, n') + | L.DPage _ => n) 0 ds and maxNameStr (str, _) = |