Browse Source

* addending to r31831: disable cs_systemcodepage if the source file code page
is set via an UTF-8 BOM

git-svn-id: trunk@31880 -

Jonas Maebe 9 years ago
parent
commit
a1ed7cc162
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/scanner.pas

+ 1 - 0
compiler/scanner.pas

@@ -3490,6 +3490,7 @@ type
                        inc(inputpointer,3);
                        message(scan_c_switching_to_utf8);
                        current_settings.sourcecodepage:=CP_UTF8;
+                       exclude(current_settings.moduleswitches,cs_system_codepage);
                        include(current_settings.moduleswitches,cs_explicit_codepage);
                      end;