From 25ba7367a0d9391a4bea2d7685b8cfe8e304e2f8 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Wed, 12 Sep 2018 09:43:46 +0200
Subject: Fatal error instead of error for bit-fields.

Since the following offsetof cannot handle bit-fields we should
stop earlier.
Bug 24480
---
 cparser/Elab.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'cparser/Elab.ml')

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 =
-- 
cgit