From a72b611272a4d7882cd929f18f8483555e77086c Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Tue, 28 Jan 2020 12:54:18 -0600
Subject: [PATCH] Make unnamed bit-fields take up space.

They should take up the same space as a named bit-field of the same width.

This fixes #60.
---
 Parser.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Parser.pas b/Parser.pas
index 44b03d3..c60a5f7 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -2679,11 +2679,11 @@ var
                   variable^.disp := disp;
                   variable^.bitdisp := bitdisp;
                   variable^.bitsize := long(expressionValue).lsw;
-                  bitdisp := bitdisp+long(expressionValue).lsw;
                   tPtr := variable^.itype;
                   end {if}
                else
                   tPtr := typeSpec;
+               bitdisp := bitdisp+long(expressionValue).lsw;
                if (tPtr^.kind <> scalarType)
                   or not (tPtr^.baseType in
                      [cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong])