From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 1 Jun 2018 18:16:22 +0000 (+0300)
Subject: fixed small bug in hashtable
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=4f4d1ee4bacd4bd6ebfb821de83c591d5bc93981;p=d2df-sdl.git

fixed small bug in hashtable
---

diff --git a/src/shared/hashtable.pas b/src/shared/hashtable.pas
index 98c924d..86fd547 100644
--- a/src/shared/hashtable.pas
+++ b/src/shared/hashtable.pas
@@ -949,7 +949,7 @@ begin
       lastfree := e;
     end;
   end;
-  if (lastfree <> nil) then e.nextFree := nil;
+  if (lastfree <> nil) then lastfree.nextFree := nil;
   {$IFDEF RBHASH_SANITY_CHECKS}
   if (cnt <> mBucketsUsed) then raise Exception.Create('internal error in hash table resize (invalid first/last range; 0)');
   if (cnt <> mEntriesUsed) then raise Exception.Create('internal error in hash table resize (invalid first/last range; 1)');