diff options
Diffstat (limited to 'driver/Interp.ml')
-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 *) |