* delphi has excessprecision turned on by default

git-svn-id: trunk@47245 -

compiler/scanner.pas

@@ -614,6 +614,14 @@ implementation
                  include(init_settings.localswitches,cs_strict_var_strings);
              end;
 
+           { in delphi mode, excess precision is by default on }
+           if ([m_delphi] * current_settings.modeswitches <> []) then
+             begin
+               include(current_settings.localswitches,cs_excessprecision);
+               if changeinit then
+                 include(init_settings.localswitches,cs_excessprecision);
+             end;
+
 {$ifdef i8086}
            { Do not force far calls in the TP mode by default, force it in other modes }
            if (m_tp7 in current_settings.modeswitches) then