From fe298e4d19a20085599f82566114583eaa59d082 Mon Sep 17 00:00:00 2001
From: Gore Liu <goreliu@126.com>
Date: Sat, 16 Apr 2016 21:45:09 +0800
Subject: [PATCH] TCMatch.ahk: free dll every 1000 calls

---
 Lib/TCMatch.ahk | 51 +++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 41 insertions(+), 10 deletions(-)

diff --git a/Lib/TCMatch.ahk b/Lib/TCMatch.ahk
index 4752b7c..9d771bf 100644
--- a/Lib/TCMatch.ahk
+++ b/Lib/TCMatch.ahk
@@ -1,19 +1,50 @@
-TCMatchOn(aDllPath, aOff:=False)
+global g_TCMatchDllPath
+global g_TCMatchModule
+
+TCMatchOn(dllPath = "")
 {
-    Static hModule := 0
-    If !hModule && FileExist(aDllPath)
-        hModule := DllCall("LoadLibrary", "Str", aDllPath, "Ptr")  
-    If aOff
-        hModule := 0
-    Return hModule
+    if (g_TCMatchModule != "")
+    {
+        return g_TCMatchModule
+    }
+
+    if (dllPath == "" && g_TCMatchDllPath == "")
+    {
+        return 0
+    }
+    else if (dllPath != "")
+    {
+        if (!FileExist(dllPath))
+        {
+            return 0
+        }
+        else
+        {
+            g_TCMatchDllPath := dllPath
+        }
+    }
+
+    g_TCMatchModule := DllCall("LoadLibrary", "Str", g_TCMatchDllPath, "Ptr")
+    return g_TCMatchModule
 }
 
 TCMatchOff()
 {
-    DllCall("FreeLibrary", "Ptr", hModule)
+    DllCall("FreeLibrary", "Ptr", g_TCMatchModule)
+    g_TCMatchModule := ""
 }
 
-TCMatch(aString, aMatch)
+TCMatch(aHaystack, aNeedle)
 {
-    Return DllCall("TCMatch\MatchFileW",  "WStr", aMatch, "WStr", aString)
+    ; 这个函数有内存泄漏...
+    static matchTimes := 0
+    matchTimes++
+    if (matchTimes > 1000)
+    {
+        TCMatchOff()
+        TCMatchOn()
+        matchTimes := 0
+    }
+
+    return DllCall("TCMatch\MatchFileW", "WStr", aNeedle, "WStr", aHaystack)
 }