Sfoglia il codice sorgente

Check for preprocessor work case sensitively.

Martijn Laan 5 anni fa
parent
commit
e609ed6c7f
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      Projects/CompForm.pas

+ 1 - 1
Projects/CompForm.pas

@@ -2670,7 +2670,7 @@ procedure TCompileForm.UpdatePreprocMemos;
   procedure UpdatePreprocessorOutputMemo(const NewTabs, NewHints: TStringList);
   begin
     if FOptions.ShowPreprocessorOutput and (FPreprocessorOutput <> '') and
-       not SameText(TrimRight(FMainMemo.Lines.Text), FPreprocessorOutput) then begin
+       not SameStr(TrimRight(FMainMemo.Lines.Text), FPreprocessorOutput) then begin
       NewTabs.Add('Preprocessor Output');
       NewHints.Add('');
       FPreprocessorOutputMemo.ReadOnly := False;