diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-09-12 09:43:46 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-09-12 09:43:46 +0200 |
commit | 25ba7367a0d9391a4bea2d7685b8cfe8e304e2f8 (patch) | |
tree | 969dfdde8e706dc2ba1fc4e8ec839941005fd015 /cparser/Elab.ml | |
parent | 45ca9fe8fcc6a67036369624f57576be22ac7bbd (diff) | |
download | compcert-25ba7367a0d9391a4bea2d7685b8cfe8e304e2f8.tar.gz compcert-25ba7367a0d9391a4bea2d7685b8cfe8e304e2f8.zip |
Fatal error instead of error for bit-fields.
Since the following offsetof cannot handle bit-fields we should
stop earlier.
Bug 24480
Diffstat (limited to 'cparser/Elab.ml')
-rw-r--r-- | cparser/Elab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 27569ff5..b35963f7 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1907,7 +1907,7 @@ let elab_expr ctx loc env a = | [] -> acc,ty | fld::rest -> if fld.fld_bitfield <> None then - error "cannot compute offset of bit-field '%s'" fld.fld_name; + fatal_error "cannot compute offset of bit-field '%s'" fld.fld_name; let off = offsetof env ty fld in offset_of_list (acc+off) env fld.fld_typ rest in let offset_of_member (env,off_accu,ty) mem = |