Просмотр исходного кода

scanner: actually use the result of readquotedstring as cpattern. this fixes the fileexists() preprocessor directive, broken since 2c1fa9e9

Karoly Balogh 21 часов назад
Родитель
Сommit
0fed8ffe7c
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      compiler/scanner.pas

+ 1 - 1
compiler/scanner.pas

@@ -6689,7 +6689,7 @@ exit_label:
            '''','`' :
              if not ((c='`') and (not (m_multiline_strings in current_settings.modeswitches))) then
                begin
-                 readquotedstring;
+                 cstringpattern:=readquotedstring;
                  current_scanner.preproc_pattern:=cstringpattern;
                  readpreproc:=_CSTRING;
                end;