paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use "DefaultFormatSettings.DecimalSeparator" to suppress warning, "HAS_EXP_TREE" define to handle

Browse Source 
fcl-passrc expressions

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2585 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2012-10-29 19:24:11 +00:00
parent b934d63e9b
commit 94db8aae9b
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/imp_utils.pas
View File

@ -125,7 +125,7 @@ begin
Result := Value;
for i := 1 to length(Result) do begin
if ( Result[i] = '.' ) then
Result[i] := DefaultFormatSettings.DecimalSeparator;
Result[i] := {$IFDEF HAS_DEFAULT_FORMAT_SETTINGS}DefaultFormatSettings.{$ENDIF}DecimalSeparator;
end;
end;

8
wst/trunk/wst_global.inc
View File

@ -51,11 +51,17 @@
{$IFEND}
{$IFEND}
{$IF Defined(FPC_211)}
{$DEFINE HAS_FORMAT_SETTINGS}
{$DEFINE HAS_FORMAT_SETTINGS}
{$IFEND}
{$IFDEF WINDOWS}
{$DEFINE WST_SEMAPHORE_TIMEOUT}
{$ENDIF WINDOWS}
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20600) }
{$DEFINE HAS_DEFAULT_FORMAT_SETTINGS}
{$IFEND}
{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION > 20601) }
{$DEFINE HAS_EXP_TREE}
{$IFEND}
{$ENDIF}
{$IFNDEF FPC}