mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-14 15:27:41 +00:00
Code Issues 1 Releases Wiki Activity

Working example for threaded channels.

Browse Source 
Still no marshalling more complex values.
This commit is contained in:
Calvin Rose
2021-08-15 15:25:07 -05:00
parent dea4906144
commit b75b3e3984
3 changed files with 35 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/core/os.c
View File

@@ -2147,13 +2147,13 @@ void janet_lib_os(JanetTable *env) {
* in the thread tree sets up the critical section. */
static volatile long env_lock_initializing = 0;
static volatile long env_lock_initialized = 0;
if(!InterlockedExchange(&env_lock_initializing, 1)){
InitializeCriticalSection(&env_lock);
InterlockedOr(&env_lock_initialized, 1);
if (!InterlockedExchange(&env_lock_initializing, 1)) {
InitializeCriticalSection(&env_lock);
InterlockedOr(&env_lock_initialized, 1);
} else {
while (!InterlockedOr(&env_lock_initialized, 0)) {
Sleep(0);
}
while (!InterlockedOr(&env_lock_initialized, 0)) {
Sleep(0);
}
}
#endif