paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 05:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another i8086 compilation fix for typinfo

Browse Source 
git-svn-id: trunk@24602 -
This commit is contained in:
nickysn 2013-05-25 15:51:36 +00:00
parent a68ef39655
commit fe48700483
1 changed files with 5 additions and 3 deletions

8
rtl/objpas/typinfo.pp
View File

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