diff options
Diffstat (limited to 'cfrontend/ClightBigstep.v')
| -rw-r--r-- | cfrontend/ClightBigstep.v | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/cfrontend/ClightBigstep.v b/cfrontend/ClightBigstep.v index 92457586..51487fa2 100644 --- a/cfrontend/ClightBigstep.v +++ b/cfrontend/ClightBigstep.v @@ -6,10 +6,11 @@ (* *) (* Copyright Institut National de Recherche en Informatique et en *) (* Automatique. All rights reserved. This file is distributed *) -(* under the terms of the GNU General Public License as published by *) -(* the Free Software Foundation, either version 2 of the License, or *) -(* (at your option) any later version. This file is also distributed *) -(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* under the terms of the GNU Lesser General Public License as *) +(* published by the Free Software Foundation, either version 2.1 of *) +(* the License, or (at your option) any later version. *) +(* This file is also distributed under the terms of the *) +(* INRIA Non-Commercial License Agreement. *) (* *) (* *********************************************************************) @@ -78,11 +79,11 @@ Inductive exec_stmt: env -> temp_env -> mem -> statement -> trace -> temp_env -> | exec_Sskip: forall e le m, exec_stmt e le m Sskip E0 le m Out_normal - | exec_Sassign: forall e le m a1 a2 loc ofs v2 v m', - eval_lvalue ge e le m a1 loc ofs -> + | exec_Sassign: forall e le m a1 a2 loc ofs bf v2 v m', + eval_lvalue ge e le m a1 loc ofs bf -> eval_expr ge e le m a2 v2 -> sem_cast v2 (typeof a2) (typeof a1) m = Some v -> - assign_loc ge (typeof a1) m loc ofs v m' -> + assign_loc ge (typeof a1) m loc ofs bf v m' -> exec_stmt e le m (Sassign a1 a2) E0 le m' Out_normal | exec_Sset: forall e le m id a v, |