Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 23:29:27 +00:00
Code Issues Projects Releases Wiki Activity

Make unnamed bit-fields take up space.

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

This fixes #60.
This commit is contained in:
Stephen Heumann 2020-01-28 12:54:18 -06:00
parent e6a0769bed
commit a72b611272
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Parser.pas
View File

@ -2679,11 +2679,11 @@ var
variable^.disp := disp; variable^.disp := disp;
variable^.bitdisp := bitdisp; variable^.bitdisp := bitdisp;
variable^.bitsize := long(expressionValue).lsw; variable^.bitsize := long(expressionValue).lsw;
bitdisp := bitdisp+long(expressionValue).lsw;
tPtr := variable^.itype; tPtr := variable^.itype;
end {if} end {if}
else else
tPtr := typeSpec; tPtr := typeSpec;
bitdisp := bitdisp+long(expressionValue).lsw;
if (tPtr^.kind <> scalarType) if (tPtr^.kind <> scalarType)
or not (tPtr^.baseType in or not (tPtr^.baseType in
[cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong]) [cgByte,cgUByte,cgWord,cgUWord,cgLong,cgULong])