소스 검색

* Correctly initialize/finalize had_multiline_string, fixes issue #41359

Michaël Van Canneyt 1 개월 전
부모
커밋
acc3219aad
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  1. 2 1
      compiler/scanner.pas

+ 2 - 1
compiler/scanner.pas

@@ -5600,7 +5600,7 @@ type
       init_quote_count:=0;
       had_newline:=false;
       first_multiline:=false;
-      had_multiline_string:=in_multiline_string;
+      had_multiline_string:=false;
       backtick:=(c='`');
       if backtick then
         style:=qsBacktick
@@ -6082,6 +6082,7 @@ type
           else
             token:=_CSTRING;
         end;
+      had_multiline_string:=False;
       exit(true);
     end;