diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-09-17 16:52:29 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-09-17 16:52:29 +0100 |
commit | 4be142376801c205ffd701208fad8eedf2c08d90 (patch) | |
tree | d2f4d54cc34319e380e349eddef61c2994202e8b /cfrontend/Csyntax.v | |
parent | 48a9dcbdc968bcf05b4eec17b8c7fd471fb80240 (diff) | |
parent | c9fad7cd7bdc4e79fb06a1d39abfa0d5471623e5 (diff) | |
download | compcert-4be142376801c205ffd701208fad8eedf2c08d90.tar.gz compcert-4be142376801c205ffd701208fad8eedf2c08d90.zip |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'cfrontend/Csyntax.v')
-rw-r--r-- | cfrontend/Csyntax.v | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/cfrontend/Csyntax.v b/cfrontend/Csyntax.v index e3e2c1e9..5b8a62be 100644 --- a/cfrontend/Csyntax.v +++ b/cfrontend/Csyntax.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. *) (* *) (* *********************************************************************) @@ -55,7 +56,7 @@ Inductive expr : Type := (**r function call [r1(rargs)] *) | Ebuiltin (ef: external_function) (tyargs: typelist) (rargs: exprlist) (ty: type) (**r builtin function call *) - | Eloc (b: block) (ofs: ptrofs) (ty: type) + | Eloc (b: block) (ofs: ptrofs) (bf: bitfield) (ty: type) (**r memory location, result of evaluating a l-value *) | Eparen (r: expr) (tycast: type) (ty: type) (**r marked subexpression *) @@ -116,7 +117,7 @@ Definition Eselection (r1 r2 r3: expr) (ty: type) := Definition typeof (a: expr) : type := match a with - | Eloc _ _ ty => ty + | Eloc _ _ _ ty => ty | Evar _ ty => ty | Ederef _ ty => ty | Efield _ _ ty => ty |