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

* align arraydef rtti

Browse Source
This commit is contained in:
peter 2004-10-26 15:02:33 +00:00
parent ad45adbb6e
commit 2e91bcf821
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -2975,6 +2975,9 @@ implementation
else else
rttiList.concat(Tai_const.Create_8bit(tkarray)); rttiList.concat(Tai_const.Create_8bit(tkarray));
write_rtti_name; write_rtti_name;
{$ifdef cpurequiresproperalignment}
rttilist.concat(Tai_align.Create(sizeof(TConstPtrUInt)));
{$endif cpurequiresproperalignment}
{ size of elements } { size of elements }
rttiList.concat(Tai_const.Create_32bit(elesize)); rttiList.concat(Tai_const.Create_32bit(elesize));
{ count of elements, prevent overflow for 0..maxlongint } { count of elements, prevent overflow for 0..maxlongint }
@ -6197,7 +6200,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.259 2004-10-15 09:14:17 mazen Revision 1.260 2004-10-26 15:02:33 peter
* align arraydef rtti
Revision 1.259 2004/10/15 09:14:17 mazen
- remove $IFDEF DELPHI and related code - remove $IFDEF DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code - remove $IFDEF FPCPROCVAR and related code