diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2007-03-02 15:43:35 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2007-03-02 15:43:35 +0000 |
| commit | c98440cad6b7a9c793aded892ec61a8ed50cac28 (patch) | |
| tree | a41e04cc10e91c3042ff5e114b89c1930ef8b93f /backend/Allocation.v | |
| parent | 28e7bce8f52e6675ae4a91e3d8fe7e5809e87073 (diff) | |
Suppression de lib/Sets.v, utilisation de FSet a la place. Generalisation de Lattice pour utiliser une notion d'egalite possiblement differente de =. Adaptation de Kildall et de ses utilisateurs en consequence.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@182 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Allocation.v')
| -rw-r--r-- | backend/Allocation.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/backend/Allocation.v b/backend/Allocation.v index c66d6b0..74c85cf 100644 --- a/backend/Allocation.v +++ b/backend/Allocation.v @@ -3,6 +3,7 @@ Require Import Coqlib. Require Import Maps. +Require Import Lattice. Require Import AST. Require Import Integers. Require Import Values. @@ -100,7 +101,8 @@ Definition transfer general framework for backward dataflow analysis provided by module [Kildall]. *) -Module DS := Backward_Dataflow_Solver(Regset)(NodeSetBackward). +Module RegsetLat := LFSet(Regset). +Module DS := Backward_Dataflow_Solver(RegsetLat)(NodeSetBackward). Definition analyze (f: RTL.function): option (PMap.t Regset.t) := DS.fixpoint (successors f) f.(fn_nextpc) (transfer f) nil. |