equal
deleted
inserted
replaced
41 ThreadLock: PSDL_Mutex; |
41 ThreadLock: PSDL_Mutex; |
42 |
42 |
43 procedure FreeActionsList; |
43 procedure FreeActionsList; |
44 begin |
44 begin |
45 AddFileLog('FreeActionsList called'); |
45 AddFileLog('FreeActionsList called'); |
|
46 if (ThinkThread <> nil) then |
|
47 begin |
|
48 StopThinking:= true; |
|
49 SDL_WaitThread(ThinkThread, nil); |
|
50 end; |
46 SDL_LockMutex(ThreadLock); |
51 SDL_LockMutex(ThreadLock); |
47 if (ThinkThread <> nil) then |
|
48 SDL_KillThread(ThinkThread); |
|
49 ThinkThread:= nil; |
52 ThinkThread:= nil; |
50 SDL_UnlockMutex(ThreadLock); |
53 SDL_UnlockMutex(ThreadLock); |
51 |
54 |
52 with CurrentHedgehog^ do |
55 with CurrentHedgehog^ do |
53 if Gear <> nil then |
56 if Gear <> nil then |