paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 04:42:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation on i386

Browse Source
This commit is contained in:
florian 2005-03-14 21:15:52 +00:00
parent 179d942631
commit f45cf8f155
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/typinfo.pp
View File

@ -965,7 +965,7 @@ begin
{$ifdef cpu64} {$ifdef cpu64}
Result:=TObject(GetInt64Prop(Instance,PropInfo)); Result:=TObject(GetInt64Prop(Instance,PropInfo));
{$else cpu64} {$else cpu64}
Result:=TObject(GetOrdProp(Instance,PropInfo)); Result:=TObject(PtrInt(GetOrdProp(Instance,PropInfo)));
{$endif cpu64} {$endif cpu64}
If (MinClass<>Nil) and (Result<>Nil) Then If (MinClass<>Nil) and (Result<>Nil) Then
If Not Result.InheritsFrom(MinClass) then If Not Result.InheritsFrom(MinClass) then
@ -1525,7 +1525,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.40 2005-03-14 19:16:06 peter Revision 1.41 2005-03-14 21:15:52 florian
* fixed compilation on i386
Revision 1.40 2005/03/14 19:16:06 peter
* getordprop supports int64 * getordprop supports int64
Revision 1.39 2005/02/26 20:59:38 florian Revision 1.39 2005/02/26 20:59:38 florian