Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
05abfa38
Commit
05abfa38
authored
Feb 14, 2002
by
sof
Browse files
[project @ 2002-02-14 07:40:17 by sof]
win32: make it compile
parent
2efe6e31
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/rts/OSThreads.c
View file @
05abfa38
...
...
@@ -171,7 +171,7 @@ startProcWrapper(void* pReal)
}
int
createOSThread
(
OSThreadId
*
pId
,
void
(
*
startProc
)(
void
*
))
createOSThread
(
OSThreadId
*
pId
,
void
(
*
startProc
)(
void
))
{
return
_beginthreadex
(
NULL
,
/* default security attributes */
...
...
ghc/rts/OSThreads.h
View file @
05abfa38
...
...
@@ -9,7 +9,7 @@
* --------------------------------------------------------------------------*/
#ifndef __OSTHREADS_H__
#define __OSTHREADS_H__
#if defined(RTS_SUPPORTS_THREADS)
/*to the end */
#if defined(RTS_SUPPORTS_THREADS)
/*
to the end */
# if defined(HAVE_PTHREAD_H) && !defined(WANT_NATIVE_WIN32_THREADS)
# include <pthread.h>
...
...
@@ -33,9 +33,8 @@ typedef DWORD OSThreadId;
#define INIT_MUTEX_VAR 0
#define INIT_COND_VAR 0
#define ACQURE_LOCK(mutex) WaitForSingleObject(mutex,INFINITE)
#define RELEASE_LOCK(mutex) ReleaseMutex(handle)
#define
#define ACQUIRE_LOCK(mutex) WaitForSingleObject(mutex,INFINITE)
#define RELEASE_LOCK(mutex) ReleaseMutex(mutex)
# else
# error "Threads not supported"
# endif
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment