paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Currency property patch from Dean Zobec

Browse Source
This commit is contained in:
marco 2005-04-05 06:44:25 +00:00
parent 218930cf11
commit 960e15e2b9
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/objpas/typinfo.pp
View File

@ -1272,6 +1272,13 @@ begin
Result:=TGetExtendedProc(AMethod)()
else
Result:=TGetExtendedProcIndex(AMethod)(PropInfo^.Index);
{$ifdef HASCURRENCY}
ftCurr:
if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
Result:=TGetCurrencyProc(AMethod)()
else
Result:=TGetCurrencyProcIndex(AMethod)(PropInfo^.Index);
{$endif HASCURRENCY}
end;
end;
end;
@ -1338,6 +1345,13 @@ begin
TSetExtendedProc(AMethod)(Value)
else
TSetExtendedProcIndex(AMethod)(PropInfo^.Index,Value);
{$ifdef HASCURRENCY}
ftCurr:
if ((PropInfo^.PropProcs shr 6) and 1)<>0 then
TSetCurrencyProc(AMethod)(Value)
else
TSetCurrencyProcIndex(AMethod)(PropInfo^.Index,Value);
{$endif HASCURRENCY}
end;
end;
end;
@ -1529,7 +1543,10 @@ end;
end.
{
$Log$
Revision 1.42 2005-04-03 11:50:58 marco
Revision 1.43 2005-04-05 06:44:25 marco
* Currency property patch from Dean Zobec
Revision 1.42 2005/04/03 11:50:58 marco
* patch for 3854 added. There are probably more places that need explicit
currency handling.