equal
deleted
inserted
replaced
190 |
190 |
191 procedure registerIPCCallback(p: pointer; f: TIPCCallback); |
191 procedure registerIPCCallback(p: pointer; f: TIPCCallback); |
192 begin |
192 begin |
193 callbackPointerF:= p; |
193 callbackPointerF:= p; |
194 callbackFunctionF:= f; |
194 callbackFunctionF:= f; |
195 callbackListenerThreadF:= SDL_CreateThread(@engineListener{$IFDEF SDL2}, 'engineListener'{$ENDIF}, nil); |
195 callbackListenerThreadF:= SDL_CreateThread(@engineListener, 'engineListener', nil); |
196 end; |
196 end; |
197 |
197 |
198 procedure registerNetCallback(p: pointer; f: TIPCCallback); |
198 procedure registerNetCallback(p: pointer; f: TIPCCallback); |
199 begin |
199 begin |
200 callbackPointerN:= p; |
200 callbackPointerN:= p; |
201 callbackFunctionN:= f; |
201 callbackFunctionN:= f; |
202 callbackListenerThreadN:= SDL_CreateThread(@netListener{$IFDEF SDL2}, 'netListener'{$ENDIF}, nil); |
202 callbackListenerThreadN:= SDL_CreateThread(@netListener, 'netListener', nil); |
203 end; |
203 end; |
204 |
204 |
205 procedure initIPC; |
205 procedure initIPC; |
206 begin |
206 begin |
207 msgFrontend.str:= ''; |
207 msgFrontend.str:= ''; |
222 condNet:= SDL_CreateCond; |
222 condNet:= SDL_CreateCond; |
223 end; |
223 end; |
224 |
224 |
225 procedure freeIPC; |
225 procedure freeIPC; |
226 begin |
226 begin |
227 SDL_KillThread(callbackListenerThreadF); |
227 //FIXME SDL_KillThread(callbackListenerThreadF); |
228 SDL_KillThread(callbackListenerThreadN); |
228 //FIXME SDL_KillThread(callbackListenerThreadN); |
229 SDL_DestroyMutex(mutFrontend); |
229 SDL_DestroyMutex(mutFrontend); |
230 SDL_DestroyMutex(mutEngine); |
230 SDL_DestroyMutex(mutEngine); |
231 SDL_DestroyMutex(mutNet); |
231 SDL_DestroyMutex(mutNet); |
232 SDL_DestroyCond(condFrontend); |
232 SDL_DestroyCond(condFrontend); |
233 SDL_DestroyCond(condEngine); |
233 SDL_DestroyCond(condEngine); |