From 50b7732821d5f44ce6a1df17c1e7c5a3f639fc5e Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 16 May 2009 12:57:42 +0000
Subject: fixed bug in UHookableEvent that caused a crash when owning plugin of
last hook is unloaded
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1730 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
Lua/src/lua/UHookableEvent.pas | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
(limited to 'Lua/src/lua')
diff --git a/Lua/src/lua/UHookableEvent.pas b/Lua/src/lua/UHookableEvent.pas
index a3a87da6..de5a8a83 100644
--- a/Lua/src/lua/UHookableEvent.pas
+++ b/Lua/src/lua/UHookableEvent.pas
@@ -219,16 +219,19 @@ begin
While (Cur <> nil) do
begin
- If (Cur.Parent = Parent) then
+ if (Cur.Parent = Parent) then
begin //found a hook from parent => remove it
- If (Prev <> nil) then
+ if (Prev <> nil) then
Prev.Next := Cur.Next
Else
LastHook := Cur.Next;
Dispose(Cur);
- Cur := Prev.Next;
+ if (Prev <> nil) then
+ Cur := Prev.Next
+ else
+ Cur := LastHook;
end
else //move through the chain
begin
--
cgit v1.2.3