Mercurial > urweb

comparison src/especialize.sml @ 1674:4cacced4a6da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak Especialize heuristic
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Jan 2012 11:08:48 -0500
parents 833402503855
children 13dad713da35
comparison
equal deleted inserted replaced
1673:dae2c6fbf16c 1674:4cacced4a6da
1 (* Copyright (c) 2008-2010, Adam Chlipala 1 (* Copyright (c) 2008-2011, Adam Chlipala
2 * All rights reserved. 2 * All rights reserved.
3 * 3 *
4 * Redistribution and use in source and binary forms, with or without 4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met: 5 * modification, are permitted provided that the following conditions are met:
6 * 6 *
347 347
348 fun bumpCount n = 348 fun bumpCount n =
349 if IS.member (#specialized st, f) then 349 if IS.member (#specialized st, f) then
350 n 350 n
351 else 351 else
352 5 + 2 *n 352 5 + n
353 in 353 in
354 (*Print.prefaces "Func" [("name", Print.PD.string name), 354 (*Print.prefaces "Func" [("name", Print.PD.string name),
355 ("e", CorePrint.p_exp CoreEnv.empty e), 355 ("e", CorePrint.p_exp CoreEnv.empty e),
356 ("fxs'", Print.p_list (CorePrint.p_exp CoreEnv.empty) fxs')];*) 356 ("fxs'", Print.p_list (CorePrint.p_exp CoreEnv.empty) fxs')];*)
357 if not fin 357 if not fin