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

* Fixed bug #7445

Browse Source 
git-svn-id: trunk@4727 -
This commit is contained in:
michael 2006-09-25 21:20:47 +00:00
parent d2e2e3cc51
commit 8d6cc357c0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

@ -1304,22 +1304,22 @@ begin
AMethod.Data:=Instance;
Case GetTypeData(PropInfo^.PropType)^.FloatType of
ftSingle:
if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
if ((PropInfo^.PropProcs shr 6) and 1)=0 then
Result:=TGetSingleProc(AMethod)()
else
Result:=TGetSingleProcIndex(AMethod)(PropInfo^.Index);
ftDouble:
if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
if ((PropInfo^.PropProcs shr 6) and 1)=0 then
Result:=TGetDoubleProc(AMethod)()
else
Result:=TGetDoubleProcIndex(AMethod)(PropInfo^.Index);
ftExtended:
if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
if ((PropInfo^.PropProcs shr 6) and 1)=0 then
Result:=TGetExtendedProc(AMethod)()
else
Result:=TGetExtendedProcIndex(AMethod)(PropInfo^.Index);
ftCurr:
if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
if ((PropInfo^.PropProcs shr 6) and 1)=0 then
Result:=TGetCurrencyProc(AMethod)()
else
Result:=TGetCurrencyProcIndex(AMethod)(PropInfo^.Index);