From 8438ec58f706e80672c80784ad4fdf2c89ec1ef8 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 5 Oct 2009 20:45:46 +0000
Subject: [PATCH]  * memleak fixed

git-svn-id: trunk@13806 -
---
 packages/chm/src/paslzxcomp.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/chm/src/paslzxcomp.pas b/packages/chm/src/paslzxcomp.pas
index 5679314348..0290f69589 100644
--- a/packages/chm/src/paslzxcomp.pas
+++ b/packages/chm/src/paslzxcomp.pas
@@ -1151,6 +1151,7 @@ begin
   freemem(lzxd^.prev_main_treelengths);
   freemem(lzxd^.main_tree);
   freemem(lzxd^.main_freq_table);
+  freemem(lzxd^.block_codes);
   dispose(lzxd);
   Exit(0);
 end;