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

* fixed more 64 bit issues (by Vincents Snijders)

Browse Source 
git-svn-id: trunk@1092 -
This commit is contained in:
florian 2005-09-16 18:40:17 +00:00
parent 4e01edc8a1
commit b1b0ffc1ec
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/typinfo.pp
View File

@ -725,6 +725,10 @@ begin
Signed := false; Signed := false;
DataSize := 4; DataSize := 4;
case TypeInfo^.Kind of case TypeInfo^.Kind of
{$ifdef cpu64}
tkClass:
DataSize:=8;
{$endif cpu64}
tkChar, tkBool: tkChar, tkBool:
DataSize:=1; DataSize:=1;
tkWChar: tkWChar:
@ -811,7 +815,12 @@ var
DataSize: Integer; DataSize: Integer;
AMethod : TMethod; AMethod : TMethod;
begin begin
if PropInfo^.PropType^.Kind in [tkInt64,tkQword] then if PropInfo^.PropType^.Kind in [tkInt64,tkQword
{ why do we have to handle classes here, see also below? (FK) }
{$ifdef cpu64}
,tkClass
{$endif cpu64}
] then
DataSize := 8 DataSize := 8
else else
DataSize := 4; DataSize := 4;