فهرست منبع

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

Karoly Balogh 21 ساعت پیش
والد
کامیت
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;