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

Merged revisions 1319 via svnmerge from

Browse Source 
http://peter@svn.freepascal.org/svn/fpc/trunk

r1319 (florian)
* on cpus requiring proper alignment, shortstrings are to two byte boundaries aligned

git-svn-id: branches/fixes_2_0@1528 -
This commit is contained in:
peter 2005-10-19 08:56:56 +00:00
parent 49fd510635
commit 9abbd7599e
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

@ -1637,7 +1637,12 @@ implementation
alignment:=size_2_align(savesize);
st_longstring,
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);
{$endif cpurequiresproperalignment}
else
internalerror(200412301);
end;