diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2023-01-19 14:15:13 -0500 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2023-01-23 17:56:41 +0100 |
commit | 3845996aa69a8386d438265add80b5b66116eeaa (patch) | |
tree | c4253bb07f532c3a28646ce330edf1c70de4defe | |
parent | fc79b13a30f124e9ac2d658773c395e0a74e2d1e (diff) | |
download | compcert-3845996aa69a8386d438265add80b5b66116eeaa.tar.gz compcert-3845996aa69a8386d438265add80b5b66116eeaa.zip |
C2C: wrong handling of typedefs to enums in bit fields
Fixes: #472
-rw-r--r-- | cfrontend/C2C.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 2ea38ddd..a23c3cdc 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -470,7 +470,7 @@ let rec convertTyp env ?bitwidth t = convertTyp env tres, convertCallconv tres targs va a) | C.TNamed _ -> - convertTyp env (Cutil.unroll env t) + convertTyp env ?bitwidth (Cutil.unroll env t) | C.TStruct(id, a) -> Ctypes.Tstruct(intern_string id.name, convertAttr a) | C.TUnion(id, a) -> |