diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-12-20 13:05:53 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-12-20 13:05:53 +0000 |
commit | 7698300cfe2d3f944ce2e1d4a60a263620487718 (patch) | |
tree | 74292bb5f65bc797906b5c768df2e2e937e869b6 /backend/Linearize.v | |
parent | c511207bd0f25c4199770233175924a725526bd3 (diff) |
Merge of branch value-analysis.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2381 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Linearize.v')
-rw-r--r-- | backend/Linearize.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Linearize.v b/backend/Linearize.v index a4d1c0d..b1102e2 100644 --- a/backend/Linearize.v +++ b/backend/Linearize.v @@ -93,7 +93,7 @@ Definition reachable_aux (f: LTL.function) : option (PMap.t bool) := DS.fixpoint (LTL.fn_code f) successors_block (fun pc r => r) - ((f.(fn_entrypoint), true) :: nil). + f.(fn_entrypoint) true. Definition reachable (f: LTL.function) : PMap.t bool := match reachable_aux f with |