compiler: partly revert r17434 because of a test regression. Also this is delphi compatible (although delphi does not know a {$codepage} directive)

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/cpstrnew@19075 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 0 insertions, 13 deletions

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 9263a11b9b..dc2b43973a 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -4171,19 +4171,6 @@ In case not, the value returned can be arbitrary.
                       break;
                    end;
                  until false;
-                 //------------------
-                 { convert existing string to an utf-8 string }
-                 if (not iswidestring) and 
-                    (current_settings.sourcecodepage<>default_settings.sourcecodepage) then
-                   begin
-                     if len>0 then
-                       ascii2unicode(@cstringpattern[1],len,patternw)
-                     else
-                       ascii2unicode(nil,len,patternw);
-                     iswidestring:=true;
-                     len:=0;
-                   end;                  
-                 //-------------------
                  { strings with length 1 become const chars }
                  if iswidestring then
                    begin