paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch for 3854 added. There are probably more places that need explicit

Browse Source 
currency handling.
This commit is contained in:
marco 2005-04-03 11:50:58 +00:00
parent 3c053e8639
commit f18a22f5a6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/typinfo.pp
View File

@ -1309,6 +1309,10 @@ begin
ftComp: ftComp:
PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value; PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;
{$endif FPC_COMP_IS_INT64} {$endif FPC_COMP_IS_INT64}
{$ifdef HASCURRENCY}
ftCurr:
PCurrency(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;
{$endif HASCURRENCY}
end; end;
ptStatic, ptStatic,
ptVirtual: ptVirtual:
@ -1525,7 +1529,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.41 2005-03-14 21:15:52 florian Revision 1.42 2005-04-03 11:50:58 marco
* patch for 3854 added. There are probably more places that need explicit
currency handling.
Revision 1.41 2005/03/14 21:15:52 florian
* fixed compilation on i386 * fixed compilation on i386
Revision 1.40 2005/03/14 19:16:06 peter Revision 1.40 2005/03/14 19:16:06 peter