1 /* Copyright (C) 2010-2020 The RetroArch team
3 * ---------------------------------------------------------------------------------------
4 * The following license statement only applies to this file (gx_pthread.h).
5 * ---------------------------------------------------------------------------------------
7 * Permission is hereby granted, free of charge,
8 * to any person obtaining a copy of this software and associated documentation files (the "Software"),
9 * to deal in the Software without restriction, including without limitation the rights to
10 * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software,
11 * and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
16 * INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18 * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
19 * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23 #ifndef _CTR_PTHREAD_WRAP_CTR_
24 #define _CTR_PTHREAD_WRAP_CTR_
26 #include <3ds/thread.h>
27 #include <3ds/synchronization.h>
31 #include <retro_inline.h>
33 #define STACKSIZE (32 * 1024)
35 #ifndef PTHREAD_SCOPE_PROCESS
36 /* An earlier version of devkitARM does not define the pthread types. Can remove in r54+. */
38 typedef Thread pthread_t;
39 typedef LightLock pthread_mutex_t;
40 typedef void* pthread_mutexattr_t;
41 typedef int pthread_attr_t;
42 typedef uint32_t pthread_cond_t;
43 typedef int pthread_condattr_t;
47 /* Backported CondVar API from libctru 2.0, and under its license:
48 https://github.com/devkitPro/libctru
49 Slightly modified for compatibility with older libctru. */
53 static INLINE Result syncArbitrateAddress(s32* addr, ArbitrationType type, s32 value)
55 return svcArbitrateAddress(__sync_get_arbiter(), (u32)addr, type, value, 0);
58 static INLINE Result syncArbitrateAddressWithTimeout(s32* addr, ArbitrationType type, s32 value, s64 timeout_ns)
60 return svcArbitrateAddress(__sync_get_arbiter(), (u32)addr, type, value, timeout_ns);
63 static INLINE void __dmb(void)
65 __asm__ __volatile__("mcr p15, 0, %[val], c7, c10, 5" :: [val] "r" (0) : "memory");
68 static INLINE void CondVar_BeginWait(CondVar* cv, LightLock* lock)
72 val = __ldrex(cv) - 1;
73 while (__strex(cv, val));
74 LightLock_Unlock(lock);
77 static INLINE bool CondVar_EndWait(CondVar* cv, s32 num_threads)
89 else if (val <= -num_threads)
94 } while (__strex(cv, val));
99 static INLINE void CondVar_Init(CondVar* cv)
104 static INLINE void CondVar_Wait(CondVar* cv, LightLock* lock)
106 CondVar_BeginWait(cv, lock);
107 syncArbitrateAddress(cv, ARBITRATION_WAIT_IF_LESS_THAN, 0);
108 LightLock_Lock(lock);
111 static INLINE int CondVar_WaitTimeout(CondVar* cv, LightLock* lock, s64 timeout_ns)
113 CondVar_BeginWait(cv, lock);
115 bool timedOut = false;
116 Result rc = syncArbitrateAddressWithTimeout(cv, ARBITRATION_WAIT_IF_LESS_THAN_TIMEOUT, 0, timeout_ns);
117 if (R_DESCRIPTION(rc) == RD_TIMEOUT)
119 timedOut = CondVar_EndWait(cv, 1);
123 LightLock_Lock(lock);
127 static INLINE void CondVar_WakeUp(CondVar* cv, s32 num_threads)
130 if (CondVar_EndWait(cv, num_threads))
131 syncArbitrateAddress(cv, ARBITRATION_SIGNAL, num_threads);
136 static INLINE void CondVar_Signal(CondVar* cv)
138 CondVar_WakeUp(cv, 1);
141 static INLINE void CondVar_Broadcast(CondVar* cv)
143 CondVar_WakeUp(cv, ARBITRATION_SIGNAL_ALL);
145 /* End libctru 2.0 backport */
148 /* libctru threads return void but pthreads return void pointer */
149 static bool mutex_inited = false;
150 static LightLock safe_double_thread_launch;
151 static void *(*start_routine_jump)(void*);
153 static void ctr_thread_launcher(void* data)
155 void *(*start_routine_jump_safe)(void*) = start_routine_jump;
156 LightLock_Unlock(&safe_double_thread_launch);
157 start_routine_jump_safe(data);
160 static INLINE int pthread_create(pthread_t *thread,
161 const pthread_attr_t *attr, void *(*start_routine)(void*), void *arg)
164 Thread new_ctr_thread;
165 int procnum = -2; // use default cpu
168 APT_CheckNew3DS(&isNew3DS);
175 LightLock_Init(&safe_double_thread_launch);
179 /*Must wait if attempting to launch 2 threads at once to prevent corruption of function pointer*/
180 while (LightLock_TryLock(&safe_double_thread_launch) != 0);
182 svcGetThreadPriority(&prio, CUR_THREAD_HANDLE);
184 start_routine_jump = start_routine;
185 new_ctr_thread = threadCreate(ctr_thread_launcher, arg, STACKSIZE, prio - 1, procnum, false);
189 LightLock_Unlock(&safe_double_thread_launch);
193 *thread = (pthread_t)new_ctr_thread;
197 static INLINE pthread_t pthread_self(void)
199 return (pthread_t)threadGetCurrent();
202 static INLINE int pthread_mutex_init(pthread_mutex_t *mutex,
203 const pthread_mutexattr_t *attr)
205 LightLock_Init((LightLock *)mutex);
209 static INLINE int pthread_mutex_destroy(pthread_mutex_t *mutex)
211 /*Nothing to destroy*/
215 static INLINE int pthread_mutex_lock(pthread_mutex_t *mutex)
217 LightLock_Lock((LightLock *)mutex);
221 static INLINE int pthread_mutex_unlock(pthread_mutex_t *mutex)
223 LightLock_Unlock((LightLock *)mutex);
227 static INLINE void pthread_exit(void *retval)
229 /*Yes the pointer to int cast is not ideal*/
230 /*threadExit((int)retval);*/
236 static INLINE int pthread_detach(pthread_t thread)
238 threadDetach((Thread)thread);
242 static INLINE int pthread_join(pthread_t thread, void **retval)
244 /*retval is ignored*/
245 if (threadJoin((Thread)thread, INT64_MAX))
248 threadFree((Thread)thread);
253 static INLINE int pthread_mutex_trylock(pthread_mutex_t *mutex)
255 return LightLock_TryLock((LightLock *)mutex);
258 static INLINE int pthread_cond_wait(pthread_cond_t *cond,
259 pthread_mutex_t *mutex)
261 CondVar_Wait((CondVar *)cond, (LightLock *)mutex);
265 static INLINE int pthread_cond_timedwait(pthread_cond_t *cond,
266 pthread_mutex_t *mutex, const struct timespec *abstime)
268 /* Missing clock_gettime*/
276 gettimeofday(&tm, NULL);
277 now.tv_sec = tm.tv_sec;
278 now.tv_nsec = tm.tv_usec * 1000;
280 if ((timeout = (abstime->tv_sec - now.tv_sec) * 1000000000 +
281 (abstime->tv_nsec - now.tv_nsec)) < 0)
287 if (!CondVar_WaitTimeout((CondVar *)cond, (LightLock *)mutex, timeout))
294 static INLINE int pthread_cond_init(pthread_cond_t *cond,
295 const pthread_condattr_t *attr)
297 CondVar_Init((CondVar *)cond);
301 static INLINE int pthread_cond_signal(pthread_cond_t *cond)
303 CondVar_Signal((CondVar *)cond);
307 static INLINE int pthread_cond_broadcast(pthread_cond_t *cond)
309 CondVar_Broadcast((CondVar *)cond);
313 static INLINE int pthread_cond_destroy(pthread_cond_t *cond)
315 /*Nothing to destroy*/
319 static INLINE int pthread_equal(pthread_t t1, pthread_t t2)
321 if (threadGetHandle((Thread)t1) == threadGetHandle((Thread)t2))