Sfoglia il codice sorgente

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

Karoly Balogh 21 ore fa
parent
commit
0fed8ffe7c
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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;