From 916bfc0c4f2a025e9aa642cf616cd8c6ace4ec70 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Tue, 28 Apr 2015 13:16:03 +0200
Subject: Bitfield improvements continued: perform bitfield expansion before
 unblocking; improve translation of bitfield initializers and compound
 literals.

---
 cparser/Parse.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'cparser/Parse.ml')

diff --git a/cparser/Parse.ml b/cparser/Parse.ml
index 645465c3..317847a7 100644
--- a/cparser/Parse.ml
+++ b/cparser/Parse.ml
@@ -21,8 +21,8 @@ let transform_program t p name =
   let run_pass pass flag p = if CharSet.mem flag t then pass p else p in
   let p1 = (run_pass StructReturn.program 's'
   (run_pass PackedStructs.program 'p'
-  (run_pass Bitfields.program 'f'
   (run_pass Unblock.program 'b'
+  (run_pass Bitfields.program 'f'
   p)))) in
   let debug = 
     if !Clflags.option_g && Configuration.advanced_debug then
-- 
cgit