paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +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} {$ifdef cpu32bitaddr}
case filetyp of case filetyp of
ft_text : 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_typed,
ft_untyped : ft_untyped :
savesize:=332; savesize:=332;

7
rtl/inc/textrec.inc
View File

@ -4,7 +4,6 @@
Textrec record definition Textrec record definition
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -45,5 +44,11 @@ type
{$ifdef FPC_HAS_CPSTRING} {$ifdef FPC_HAS_CPSTRING}
CodePage : TSystemCodePage; CodePage : TSystemCodePage;
{$endif} {$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; End;