paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 10:09:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

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