diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 08:46:22 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 08:46:22 -0400 |
commit | 773cc619b71ad10b8f21f6941d67947bac86885f (patch) | |
tree | 50f9c044e49642dd39c3a7574c193a2470174ca4 /src/corify.sml | |
parent | 5c3606a50dbe206eac3660135acba5855000a4ab (diff) |
Explify tables
Diffstat (limited to 'src/corify.sml')
-rw-r--r-- | src/corify.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/corify.sml b/src/corify.sml index 60baf903..6e893da2 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -806,6 +806,8 @@ structure St : sig end | _ => raise Fail "Non-const signature for 'export'") + | L.DTable _ => raise Fail "Corify DTable" + and corifyStr ((str, _), st) = case str of L.StrConst ds => @@ -855,7 +857,8 @@ fun maxName ds = foldl (fn ((d, _), 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.DExport _ => n) + | L.DExport _ => n + | L.DTable (_, _, n', _) => Int.max (n, n')) 0 ds and maxNameStr (str, _) = |