paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:05:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* for proper alignment in arrays of text, text should be a multiple of 4 in size on 32 bit platforms

Browse Source 
git-svn-id: trunk@21956 -
This commit is contained in:
florian 2012-07-23 19:12:27 +00:00
parent ccbcb36f98
commit c2eb030632
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -2460,7 +2460,7 @@ implementation
{$ifdef cpu32bitaddr}
case filetyp of
ft_text :
savesize:=594{+4};
savesize:=596; { keep this dividable by 4 for proper alignment of arrays of text, see tw0754 e.g. on arm }
ft_typed,
ft_untyped :
savesize:=332;

7
rtl/inc/textrec.inc
View File

@ -4,7 +4,6 @@
Textrec record definition
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -45,5 +44,11 @@ type
{$ifdef FPC_HAS_CPSTRING}
CodePage : TSystemCodePage;
{$endif}
{$ifndef VER2_6}
{$ifdef CPU32}
{ keep textrec size divedable by 4 for proper alignment of arrays of text, see tw0754 e.g. on arm }
Dummy : Word;
{$endif CPU32}
{$endif VER2_6}
End;