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

* use a PtrInt cast in typinfo.SetObjectProp

Browse Source 
git-svn-id: trunk@24612 -
This commit is contained in:
nickysn 2013-05-25 18:47:44 +00:00
parent cb707fdf4c
commit 4bc99b1315
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/typinfo.pp
View File

@ -1256,13 +1256,11 @@ end;
Procedure SetObjectProp(Instance: TObject; PropInfo : PPropInfo; Value: TObject);
begin
{$if defined(cpu64)}
{$ifdef cpu64}
SetInt64Prop(Instance,PropInfo,Int64(Value));
{$elseif defined(cpu32)}
SetOrdProp(Instance,PropInfo,Integer(Value));
{$elseif defined(cpu16)}
SetOrdProp(Instance,PropInfo,SmallInt(Value));
{$endif}
{$else cpu64}
SetOrdProp(Instance,PropInfo,PtrInt(Value));
{$endif cpu64}
end;