From d8188fcae32c17ceaa17cf98f2d0e46c95b685fe Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 2 Feb 2013 11:52:35 +0000 Subject: 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 --- driver/Interp.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'driver/Interp.ml') 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 *) -- cgit