diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-09-20 13:17:50 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-09-20 13:17:50 +0000 |
commit | 719d2c04a005714b3a1a1e838ffc653d65da662b (patch) | |
tree | 997d32925c5dbf0015c217897155a164b005813e /backend/XTL.ml | |
parent | 76ea1108be6f8b4ba9dc0118a13f685bcb62bc2b (diff) |
Small improvements in compilation times for the register allocation pass.
Maps.v: add a PTree.fold1 operation that doesn't maintain the key.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2329 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/XTL.ml')
-rw-r--r-- | backend/XTL.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/XTL.ml b/backend/XTL.ml index 53c478d..46c59b0 100644 --- a/backend/XTL.ml +++ b/backend/XTL.ml @@ -176,9 +176,9 @@ let type_function f = let basic_blocks_map f = (* return mapping pc -> number of predecessors *) let add_successor map s = PMap.set s (1 + PMap.get s map) map in - let add_successors_block map pc blk = + let add_successors_block map blk = List.fold_left add_successor map (successors_block blk) in - PTree.fold add_successors_block f.fn_code + PTree.fold1 add_successors_block f.fn_code (PMap.set f.fn_entrypoint 2 (PMap.init 0)) let transform_basic_blocks |