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

* on cpus requiring proper alignment, shortstrings are to two byte boundaries aligned

Browse Source 
git-svn-id: trunk@1319 -
This commit is contained in:
florian 2005-10-07 19:17:09 +00:00
parent 8471e10137
commit 1066eb1cb3
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/symdef.pas
View File

@ -1293,7 +1293,12 @@ implementation
alignment:=size_2_align(savesize); alignment:=size_2_align(savesize);
st_longstring, st_longstring,
st_shortstring: st_shortstring:
{$ifdef cpurequiresproperalignment}
{ char to string accesses byte 0 and 1 with one word access }
alignment:=size_2_align(2);
{$else cpurequiresproperalignment}
alignment:=size_2_align(1); alignment:=size_2_align(1);
{$endif cpurequiresproperalignment}
else else
internalerror(200412301); internalerror(200412301);
end; end;