Mercurial > urweb

comparison src/compiler.sml @ 1017:34ba25d6af3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Inlining threshold for Mono_reduce
author Adam Chlipala <adamc@hcoop.net>
date Sun, 25 Oct 2009 12:48:50 -0400
parents 2831be2daf2e
children dfe34fad749d
comparison
equal deleted inserted replaced
1016:065ce3252090 1017:34ba25d6af3b
860 val toUntangle2 = transform untangle "untangle2" o toFuse 860 val toUntangle2 = transform untangle "untangle2" o toFuse
861 861
862 val toMono_reduce2 = transform mono_reduce "mono_reduce2" o toUntangle2 862 val toMono_reduce2 = transform mono_reduce "mono_reduce2" o toUntangle2
863 val toMono_shake2 = transform mono_shake "mono_shake2" o toMono_reduce2 863 val toMono_shake2 = transform mono_shake "mono_shake2" o toMono_reduce2
864 val toMono_opt4 = transform mono_opt "mono_opt4" o toMono_shake2 864 val toMono_opt4 = transform mono_opt "mono_opt4" o toMono_shake2
865 val toFuse2 = transform fuse "shake2" o toMono_opt4 865 val toMono_reduce3 = transform mono_reduce "mono_reduce3" o toMono_opt4
866 val toFuse2 = transform fuse "shake2" o toMono_reduce3
866 val toUntangle3 = transform untangle "untangle3" o toFuse2 867 val toUntangle3 = transform untangle "untangle3" o toFuse2
867 val toMono_shake3 = transform mono_shake "mono_shake3" o toUntangle3 868 val toMono_shake3 = transform mono_shake "mono_shake3" o toUntangle3
868 869
869 val pathcheck = { 870 val pathcheck = {
870 func = (fn file => (PathCheck.check file; file)), 871 func = (fn file => (PathCheck.check file; file)),