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/Coloring.v | |
| parent | 28e7bce8f52e6675ae4a91e3d8fe7e5809e87073 (diff) | |
| download | compcert-c98440cad6b7a9c793aded892ec61a8ed50cac28.tar.gz compcert-c98440cad6b7a9c793aded892ec61a8ed50cac28.zip | |
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/Coloring.v')
| -rw-r--r-- | backend/Coloring.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/Coloring.v b/backend/Coloring.v index 0a2487cb..0b8a4ccc 100644 --- a/backend/Coloring.v +++ b/backend/Coloring.v @@ -81,8 +81,8 @@ Require Import InterfGraph. Definition add_interf_live (filter: reg -> bool) (res: reg) (live: Regset.t) (g: graph): graph := - Regset.fold - (fun g r => if filter r then add_interf r res g else g) live g. + Regset.fold graph + (fun r g => if filter r then add_interf r res g else g) live g. Definition add_interf_op (res: reg) (live: Regset.t) (g: graph): graph := @@ -101,7 +101,7 @@ Definition add_interf_move Definition add_interf_call (live: Regset.t) (destroyed: list mreg) (g: graph): graph := List.fold_left - (fun g mr => Regset.fold (fun g r => add_interf_mreg r mr g) live g) + (fun g mr => Regset.fold graph (fun r g => add_interf_mreg r mr g) live g) destroyed g. Fixpoint add_prefs_call |