paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 20:46:04 +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

9
rtl/objpas/typinfo.pp
View File

@ -827,7 +827,7 @@ begin
TSetIntegerProcIndex(AMethod)(PropInfo^.Index,Value)
else
TSetIntegerProc(AMethod)(Value);
end;
end;
end;
end;
end;
@ -965,7 +965,7 @@ begin
{$ifdef cpu64}
Result:=TObject(GetInt64Prop(Instance,PropInfo));
{$else cpu64}
Result:=TObject(GetOrdProp(Instance,PropInfo));
Result:=TObject(PtrInt(GetOrdProp(Instance,PropInfo)));
{$endif cpu64}
If (MinClass<>Nil) and (Result<>Nil) Then
If Not Result.InheritsFrom(MinClass) then
@ -1525,7 +1525,10 @@ end;
end.
{
$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
Revision 1.39 2005/02/26 20:59:38 florian