From f91839f0e8a625ea2f0b106a22a7095718a3e461 Mon Sep 17 00:00:00 2001
From: Alasdair
Date: Wed, 25 Mar 2020 16:09:00 +0000
Subject: Fix a typo in write_mem for the interpreter

---
 src/interpreter.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/interpreter.ml b/src/interpreter.ml
index 4c048c09..a30e90bc 100644
--- a/src/interpreter.ml
+++ b/src/interpreter.ml
@@ -408,7 +408,7 @@ let rec step (E_aux (e_aux, annot) as orig_exp) =
             | "write_mem" ->
                begin match evaluated with
                | [wk; addrsize; addr; len; v] ->
-                  write_mem (value_of_exp wk) (value_of_exp v) (value_of_exp len) (value_of_exp v) >>= fun b -> return (exp_of_value (V_bool b))
+                  write_mem (value_of_exp wk) (value_of_exp addr) (value_of_exp len) (value_of_exp v) >>= fun b -> return (exp_of_value (V_bool b))
                | _ ->
                   fail "Wrong number of parameters to write_memv intrinsic"
                end
-- 
cgit v1.2.3