diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-01-25 13:06:30 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-01-25 13:06:30 +0000 |
commit | c09a7a312138a9b629687a497e5aeec25514962f (patch) | |
tree | 5f6262bc445944f0bd3d9f636a9202876127e307 | |
parent | 048d175d5e6aa260a8ae447d85367f68738d49d4 (diff) | |
download | fpc-c09a7a312138a9b629687a497e5aeec25514962f.tar.gz |
--- Merging r37714 into '.':
U packages/chm/src/chmreader.pas
--- Recording mergeinfo for merge of r37714 into '.':
U .
--- Merging r37716 into '.':
U packages/chm/src/chmfiftimain.pas
--- Recording mergeinfo for merge of r37716 into '.':
G .
# revisions: 37714,37716
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_0@38034 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/chm/src/chmfiftimain.pas | 1 | ||||
-rw-r--r-- | packages/chm/src/chmreader.pas | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/packages/chm/src/chmfiftimain.pas b/packages/chm/src/chmfiftimain.pas index 895a24924c..7e6575b364 100644 --- a/packages/chm/src/chmfiftimain.pas +++ b/packages/chm/src/chmfiftimain.pas @@ -392,6 +392,7 @@ destructor TChmSearchWriter.Destroy; begin freeandnil(FActiveLeafNode); + inherited; end; diff --git a/packages/chm/src/chmreader.pas b/packages/chm/src/chmreader.pas index c4fc08e09a..2e5b184501 100644 --- a/packages/chm/src/chmreader.pas +++ b/packages/chm/src/chmreader.pas @@ -1641,7 +1641,7 @@ begin end; if not Result then begin AFileName := ExtractFilePath(FileName[0])+AFileName; - if FileExists(AFileName) and (ExtractFileExt(AFileName) = '.chm') then OpenNewFile(AFileName); + if FileExists(AFileName) and (LowerCase(ExtractFileExt(AFileName)) = '.chm') then OpenNewFile(AFileName); Result := True; end; end; |