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

* fixed rtti reading of arrays for 64 bit

Browse Source
This commit is contained in:
florian 2004-11-02 15:52:04 +00:00
parent b6c33aacb7
commit 6c739fa996
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/rtti.inc
View File

@ -103,7 +103,7 @@ var
namelen : byte;
count,
size,
i : longint;
i : SizeInt;
info : pointer;
begin
Temp:=PByte(TypeInfo);
@ -113,10 +113,10 @@ begin
inc(temp,namelen+1);
temp:=aligntoptr(temp);
{ Element size }
size:=PLongint(Temp)^;
size:=PSizeInt(Temp)^;
inc(Temp,sizeof(Size));
{ Element count }
Count:=PLongint(Temp)^;
Count:=PSizeInt(Temp)^;
inc(Temp,sizeof(Count));
Info:=PPointer(Temp)^;
inc(Temp,sizeof(Info));
@ -247,7 +247,10 @@ procedure fpc_finalize_array(data,typeinfo : pointer;count,size : longint); [Pub
{
$Log$
Revision 1.18 2004-10-26 15:02:51 peter
Revision 1.19 2004-11-02 15:52:04 florian
* fixed rtti reading of arrays for 64 bit
Revision 1.18 2004/10/26 15:02:51 peter
* rtti is always aligned, remove move() workarounds
Revision 1.17 2004/10/24 21:39:42 peter
@ -292,4 +295,4 @@ procedure fpc_finalize_array(data,typeinfo : pointer;count,size : longint); [Pub
* removed rttip.inc, the generic code is almost as fast and
much easier to maintain and has less risks on bugs
}
}