diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-11 14:23:48 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-11 14:23:48 +0000 |
commit | 36b1620406c711df89263cc63cf0d1b6e393ecb8 (patch) | |
tree | c7a4de26bb7048a9d568cb78928f5e45af203667 /backend/Constprop.v | |
parent | 94fc497484b675fd2bc57d6c477416f771730223 (diff) | |
download | compcert-36b1620406c711df89263cc63cf0d1b6e393ecb8.tar.gz compcert-36b1620406c711df89263cc63cf0d1b6e393ecb8.zip |
Meilleure representation des worklists dans l'algo de Kildall
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@91 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Constprop.v')
-rw-r--r-- | backend/Constprop.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Constprop.v b/backend/Constprop.v index 3820311c..330857cd 100644 --- a/backend/Constprop.v +++ b/backend/Constprop.v @@ -634,7 +634,7 @@ Definition transfer (f: function) (pc: node) (before: D.t) := to approximations. It can fail to reach a fixpoint in a reasonable number of iterations, in which case [None] is returned. *) -Module DS := Dataflow_Solver D. +Module DS := Dataflow_Solver(D)(NodeSetForward). Definition analyze (f: RTL.function): option (PMap.t D.t) := DS.fixpoint (successors f) f.(fn_nextpc) (transfer f) |