diff options
| author | Kathy Gray | 2014-08-07 15:38:27 +0100 |
|---|---|---|
| committer | Kathy Gray | 2014-08-07 15:38:27 +0100 |
| commit | eac69d2a73fa42c5dd6ec42340f097554e95e69f (patch) | |
| tree | 5b8239eb4b3f2a5d621deeadf182ec2ee4aac6a4 /src | |
| parent | e73a0e1b78bb791dc63e2d225144037f79f1cf9f (diff) | |
Fix bug introduced by last commit
Diffstat (limited to 'src')
| -rw-r--r-- | src/lem_interp/interp.lem | 4 | ||||
| -rw-r--r-- | src/test/vectors.sail | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index 5c840522..e4cfb4ad 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -1639,8 +1639,8 @@ and interp_main mode t_level l_env l_mem (E_aux exp (l,annot)) = (Action (Write_mem id a range value) stack) | _ -> update_stack a (add_to_top_frame (fun e env -> - let (e,env') = (to_exp mode env v) in - (E_aux (E_assign (lexp_builder e) e) (l,annot),env'))) end)) + let (ev,env') = (to_exp mode env v) in + (E_aux (E_assign (lexp_builder e) ev) (l,annot),env'))) end)) end)) (fun a -> update_stack a (add_to_top_frame (fun v env -> (E_aux (E_assign lexp v) (l,annot), env)))) end diff --git a/src/test/vectors.sail b/src/test/vectors.sail index 08263f54..a861b65c 100644 --- a/src/test/vectors.sail +++ b/src/test/vectors.sail @@ -85,7 +85,7 @@ function bit main _ = { (* constraints checking *) BA := 12; CR := 0b00000000000000000000000000000000; - (*CR[32 + BA] := CR[32 + BA];*) + CR[32 + BA] := CR[32 + BA]; (* slice access of literal *) v[0]; |