diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-02 11:52:35 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-02 11:52:35 +0000 |
commit | d8188fcae32c17ceaa17cf98f2d0e46c95b685fe (patch) | |
tree | 1cc366eafa7838eec03f4e00ea6999a40fdbe677 | |
parent | 8f2e818c444363e29675d569ceaac48203f9d006 (diff) | |
download | compcert-d8188fcae32c17ceaa17cf98f2d0e46c95b685fe.tar.gz compcert-d8188fcae32c17ceaa17cf98f2d0e46c95b685fe.zip |
Typo in compare_mem causing merging of different states.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2108 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r-- | driver/Interp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/Interp.ml b/driver/Interp.ml index 9ea9d0c9..3be97484 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -142,7 +142,7 @@ let print_state p (prog, ge, s) = let compare_mem m1 m2 = (* should permissions be taken into account? *) Pervasives.compare (m1.Mem.nextblock, m1.Mem.mem_contents) - (m2.Mem.nextblock, m1.Mem.mem_contents) + (m2.Mem.nextblock, m2.Mem.mem_contents) (* Comparing continuations *) |