paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Compiler error is now thrown if record alignment is not a power of 2 or is greater than 64.

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-04-13 11:02:27 +01:00 committed by FPK
parent 8bef28ccbe
commit 971b8b9217
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ptype.pas
View File

@ -1068,7 +1068,10 @@ implementation
begin
consume(_ID);
alignment:=get_intconst.svalue;
if not(alignment in [1,2,4,8,16,32,64]) then
{ "(alignment and not $7F) = 0" means it's between 0 and 127, and
PopCnt = 1 for powers of 2 }
if ((alignment and not $7F) <> 0) or (PopCnt(Byte(alignment))<>1) then
message(scanner_e_illegal_alignment_directive)
else
recst.recordalignment:=shortint(alignment);
end;