* Set DecimalSeparator to be locale independent.

git-svn-id: trunk@5959 -

tests/webtbs/tw7637.pp

@@ -3,6 +3,7 @@ uses sysutils;
 var
   s: ansistring;
 begin
+  DecimalSeparator:='.';
   s := format('%e',[1.72]);
 {$ifdef FPC_HAS_TYPE_EXTENDED}
   if s <> '1.7200000000000000E+000' then