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])