summaryrefslogtreecommitdiff
path: root/packages/chm
diff options
context:
space:
mode:
authorandrew <andrew@3ad0048d-3df7-0310-abae-a5850022a9f2>2009-10-26 00:50:15 +0000
committerandrew <andrew@3ad0048d-3df7-0310-abae-a5850022a9f2>2009-10-26 00:50:15 +0000
commit4bf391e63f3062df02c844d699a69aaa223ef044 (patch)
tree16f7b0c55300aecec15258f53b18892b3ff9d326 /packages/chm
parent23ef518160fa3bd7607e491a2893ee107143aff5 (diff)
downloadfpc-4bf391e63f3062df02c844d699a69aaa223ef044.tar.gz
* Fixed a chm reader bug that Return value was not initialized if neither binary or text index existed
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13955 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/chm')
-rw-r--r--packages/chm/src/chmreader.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/chm/src/chmreader.pas b/packages/chm/src/chmreader.pas
index 3a72cb16bb..834e7808ad 100644
--- a/packages/chm/src/chmreader.pas
+++ b/packages/chm/src/chmreader.pas
@@ -930,6 +930,7 @@ var Index : TMemoryStream;
function AbortAndTryTextual:tchmsitemap;
begin
+ Result := nil;
if Assigned(Index) Then Index.Free;
// Second Try text Index
Index := GetObject(IndexFile);