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

* fixed type information for dyn. arrays on 64 bit systems

Browse Source
This commit is contained in:
florian 2004-11-01 15:33:12 +00:00
parent f02ebed09e
commit f0e07003be
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.pas
View File

@ -2979,10 +2979,10 @@ implementation
rttilist.concat(Tai_align.Create(sizeof(TConstPtrUInt)));
{$endif cpurequiresproperalignment}
{ size of elements }
rttiList.concat(Tai_const.Create_32bit(elesize));
rttiList.concat(Tai_const.Create_aint(elesize));
{ count of elements, prevent overflow for 0..maxlongint }
if not(IsDynamicArray) then
rttiList.concat(Tai_const.Create_32bit(min(int64(highrange)-lowrange+1,maxlongint)));
rttiList.concat(Tai_const.Create_aint(min(int64(highrange)-lowrange+1,maxlongint)));
{ element type }
rttiList.concat(Tai_const.Create_sym(tstoreddef(elementtype.def).get_rtti_label(rt)));
{ variant type }
@ -6200,7 +6200,10 @@ implementation
end.
{
$Log$
Revision 1.261 2004-10-31 21:45:03 peter
Revision 1.262 2004-11-01 15:33:12 florian
* fixed type information for dyn. arrays on 64 bit systems
Revision 1.261 2004/10/31 21:45:03 peter
* generic tlocation
* move tlocation to cgutils