paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 11:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed compilation win64

Browse Source 
git-svn-id: trunk@32238 -
This commit is contained in:
mattias 2011-09-09 06:51:19 +00:00
parent bfe2e33e1a
commit d66ac4c7bf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/fileprocs.pas
View File

@ -2806,7 +2806,7 @@ begin
// MWE: // MWE:
// fpc 2.x has troubles in choosing the right dbgs() // fpc 2.x has troubles in choosing the right dbgs()
// so we convert here // so we convert here
vtCurrency: Result:=Result+dbgs(int64(Args[i].vCurrency^)/10000 , 4)); vtCurrency: Result:=Result+dbgs(int64(Args[i].vCurrency^)/10000 , 4);
{$else} {$else}
vtCurrency: Result:=Result+dbgs(Args[i].vCurrency^); vtCurrency: Result:=Result+dbgs(Args[i].vCurrency^);
{$endif} {$endif}