paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:29:18 +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))); rttilist.concat(Tai_align.Create(sizeof(TConstPtrUInt)));
{$endif cpurequiresproperalignment} {$endif cpurequiresproperalignment}
{ size of elements } { 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 } { count of elements, prevent overflow for 0..maxlongint }
if not(IsDynamicArray) then 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 } { element type }
rttiList.concat(Tai_const.Create_sym(tstoreddef(elementtype.def).get_rtti_label(rt))); rttiList.concat(Tai_const.Create_sym(tstoreddef(elementtype.def).get_rtti_label(rt)));
{ variant type } { variant type }
@ -6200,7 +6200,10 @@ implementation
end. end.
{ {
$Log$ $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 * generic tlocation
* move tlocation to cgutils * move tlocation to cgutils