paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation on fpc 2.0.4

Browse Source 
git-svn-id: trunk@12711 -
This commit is contained in:
marc 2007-11-03 02:41:12 +00:00
parent bd07d08f17
commit 31f9b02560
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/fileprocs.pas
View File

@ -1883,7 +1883,15 @@ begin
vtQWord: DbgOut(dbgs(Args[i].VQWord^));
vtBoolean: DbgOut(dbgs(Args[i].vboolean));
vtExtended: DbgOut(dbgs(Args[i].VExtended^));
{$if defined(FPC_CURRENCY_IS_INT64) and defined(VER2_0)}
// MWE:
// ppcppc 2.0.x has troubles in choosing the right dbgs()
// so we convert here
// (precicion not added, since dbgs here has no presicion)
vtCurrency: DbgOut(dbgs(int64(Args[i].vCurrency^)/10000 {, 4}));
{$else}
vtCurrency: DbgOut(dbgs(Args[i].vCurrency^));
{$endif}
vtString: DbgOut(Args[i].VString^);
vtAnsiString: DbgOut(AnsiString(Args[i].VAnsiString));
vtChar: DbgOut(Args[i].VChar);

6
lcl/lclproc.pas
View File

@ -1329,10 +1329,10 @@ begin
vtQWord: DbgOut(dbgs(Args[i].VQWord^));
vtBoolean: DbgOut(dbgs(Args[i].vboolean));
vtExtended: DbgOut(dbgs(Args[i].VExtended^));
{$ifdef FPC_CURRENCY_IS_INT64}
{$if defined(FPC_CURRENCY_IS_INT64) and defined(VER2_0)}
// MWE:
// ppcppc 2.0.2 has troubles in choosing the right dbgs()
// so we convert here (i don't know about other versions
// ppcppc 2.0.x has troubles in choosing the right dbgs()
// so we convert here
vtCurrency: DbgOut(dbgs(int64(Args[i].vCurrency^)/10000, 4));
{$else}
vtCurrency: DbgOut(dbgs(Args[i].vCurrency^));

1
lcl/menus.pp
View File

@ -330,7 +330,6 @@ type
public
constructor Create(AOwner: TComponent); override;
published
property Items;
property OnChange;
end;