diff options
author | Adam Chlipala <adam@chlipala.net> | 2013-06-15 08:18:47 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2013-06-15 08:18:47 -0400 |
commit | 55889be0ddcf3426ba2c9ee4ddfca1998dde0e4f (patch) | |
tree | 8b013e6c3b9324a942f57a114bff929f5c251183 /src/compiler.sml | |
parent | 4445690a637c73f5b42d021622d404d932b3b684 (diff) |
Add Sigcheck phase to avoid issues with signatures in global initializers
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 3efa3694..ddd71c30 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -1410,12 +1410,19 @@ val sidecheck = { val toSidecheck = transform sidecheck "sidecheck" o toPathcheck +val sigcheck = { + func = SigCheck.check, + print = MonoPrint.p_file MonoEnv.empty +} + +val toSigcheck = transform sigcheck "sigcheck" o toSidecheck + val cjrize = { func = Cjrize.cjrize, print = CjrPrint.p_file CjrEnv.empty } -val toCjrize = transform cjrize "cjrize" o toSidecheck +val toCjrize = transform cjrize "cjrize" o toSigcheck val prepare = { func = Prepare.prepare, |