diff options
Diffstat (limited to 'backend/Allocation.v')
| -rw-r--r-- | backend/Allocation.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Allocation.v b/backend/Allocation.v index a4dd3af..e53c5aa 100644 --- a/backend/Allocation.v +++ b/backend/Allocation.v @@ -1104,7 +1104,7 @@ Definition successors_block_shape (bsh: block_shape) : list node := end. Definition analyze (f: RTL.function) (env: regenv) (bsh: PTree.t block_shape) := - DS.fixpoint (PTree.map1 successors_block_shape bsh) (transfer f env bsh) nil. + DS.fixpoint bsh successors_block_shape (transfer f env bsh) nil. (** * Validating and translating functions and programs *) |