paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove packed from tdynarray, it is not needed and especially 64 bit CPUs which require proper aligment, suffer from it

Browse Source 
git-svn-id: trunk@42920 -
This commit is contained in:
florian 2019-09-04 20:45:23 +00:00
parent 8ffb72ddd0
commit ed688aceee
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/dynarr.inc
View File

@ -19,7 +19,14 @@ type
{ don't add new fields, the size is used }
{ to calculate memory requirements }
pdynarray = ^tdynarray;
tdynarray = packed record
{ removed packed here as
1) both fields have typically the same size (2, 4 or 8 bytes), if this is not the case, packed
should be used only for this architecture
2) the memory blocks are sufficiently well aligned
3) in particular 64 bit CPUs which require natural alignment suffer from
the packed as it causes each field access being split in 8 single loads and appropriate shift operations
}
tdynarray = { packed } record
refcount : ptrint;
high : tdynarrayindex;
end;