diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2012-09-13 18:37:55 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2012-09-13 18:37:55 (GMT) |
| commit | 1d311173628118b3099c8e4ca4ad936cf25a587e (patch) | |
| tree | 9964c2577c5d9d5c20a943e5e088dfd810d37859 | |
| parent | 2ab8e77cf5dbeb230a497200d5fa37011b1785ec (diff) | |
| download | tcl-1d311173628118b3099c8e4ca4ad936cf25a587e.zip tcl-1d311173628118b3099c8e4ca4ad936cf25a587e.tar.gz tcl-1d311173628118b3099c8e4ca4ad936cf25a587e.tar.bz2 | |
Free the WinThread structure before running the original thread procedure.
| -rw-r--r-- | win/tclWinThrd.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index 7abcc29..86ff6a5 100644 --- a/win/tclWinThrd.c +++ b/win/tclWinThrd.c @@ -161,13 +161,20 @@ TclWinThreadStart( { WinThread *winThreadPtr = (WinThread *) lpParameter; unsigned int fpmask = _MCW_EM | _MCW_RC | _MCW_PC | _MCW_DN; + LPTHREAD_START_ROUTINE lpOrigStartAddress; + LPVOID lpOrigParameter; if (!winThreadPtr) { return TCL_ERROR; } _controlfp(winThreadPtr->fpControl, fpmask); - return winThreadPtr->lpStartAddress(winThreadPtr->lpParameter); + + lpOrigStartAddress = winThreadPtr->lpStartAddress; + lpOrigParameter = winThreadPtr->lpParameter; + + ckfree((char *)winThreadPtr); + return lpOrigStartAddress(lpOrigParameter); } /* |