2 * Win32 kernel functions
4 * Copyright 1995 Martin von Loewis
17 static HANDLE32 ProcessHeap
= 0; /* FIXME: should be in process database */
19 /***********************************************************************
20 * ExitProcess (KERNEL32.100)
23 void ExitProcess(DWORD status
)
25 TASK_KillCurrentTask( status
);
28 /***********************************************************************
29 * CreateMutexA (KERNEL32.52)
31 HANDLE32
CreateMutexA (SECURITY_ATTRIBUTES
*sa
, BOOL on
, const char *a
)
36 /***********************************************************************
37 * ReleaseMutex (KERNEL32.435)
39 BOOL
ReleaseMutex (HANDLE32 h
)
44 /***********************************************************************
45 * CreateEventA (KERNEL32.43)
47 HANDLE32
CreateEventA (SECURITY_ATTRIBUTES
*sa
, BOOL au
, BOOL on
, const char
52 /***********************************************************************
53 * SetEvent (KERNEL32.487)
55 BOOL
SetEvent (HANDLE32 h
)
59 /***********************************************************************
60 * ResetEvent (KERNEL32.439)
62 BOOL
ResetEvent (HANDLE32 h
)
66 /***********************************************************************
67 * WaitForSingleObject (KERNEL32.561)
69 DWORD
WaitForSingleObject(HANDLE32 h
, DWORD a
)
73 /***********************************************************************
74 * DuplicateHandle (KERNEL32.78)
76 BOOL
DuplicateHandle(HANDLE32 a
, HANDLE32 b
, HANDLE32 c
, HANDLE32
* d
, DWORD e
, BOOL f
, DWORD g
)
81 /***********************************************************************
82 * GetCurrentProcess (KERNEL32.198)
84 HANDLE32
GetCurrentProcess(void)
89 /***********************************************************************
90 * GetProcessHeap (KERNEL32.259)
92 HANDLE32
GetProcessHeap(void)
94 if (!ProcessHeap
) ProcessHeap
= HeapCreate( 0, 0x10000, 0 );
98 /***********************************************************************
99 * LoadLibraryA (KERNEL32.365)
100 * copied from LoadLibrary
101 * This does not currently support built-in libraries
103 HINSTANCE32
LoadLibraryA(char *libname
)
106 dprintf_module( stddeb
, "LoadLibrary: (%08x) %s\n", (int)libname
, libname
);
107 handle
= LoadModule( libname
, (LPVOID
)-1 );
108 if (handle
== (HINSTANCE32
) -1)
111 strcpy( buffer
, libname
);
112 strcat( buffer
, ".dll" );
113 handle
= LoadModule( buffer
, (LPVOID
)-1 );
115 /* Obtain module handle and call initialization function */
117 if (handle
>= (HINSTANCE32
)32) PE_InitializeDLLs( GetExePtr(handle
));
122 /***********************************************************************
125 BOOL
FreeLibrary32(HINSTANCE32 hLibModule
)
127 fprintf(stderr
,"FreeLibrary: empty stub\n");
131 /**********************************************************************
132 * GetProcessAffinityMask
134 BOOL
GetProcessAffinityMask(HANDLE32 hProcess
, LPDWORD lpProcessAffinityMask
,
135 LPDWORD lpSystemAffinityMask
)
137 dprintf_task(stddeb
,"GetProcessAffinityMask(%x,%lx,%lx)\n",
138 hProcess
,(lpProcessAffinityMask
?*lpProcessAffinityMask
:0),
139 (lpSystemAffinityMask
?*lpSystemAffinityMask
:0));
140 /* It is definitely important for a process to know on what processor
142 if(lpProcessAffinityMask
)
143 *lpProcessAffinityMask
=1;
144 if(lpSystemAffinityMask
)
145 *lpSystemAffinityMask
=1;
149 /**********************************************************************
150 * SetThreadAffinityMask
152 BOOL
SetThreadAffinityMask(HANDLE32 hThread
, DWORD dwThreadAffinityMask
)
154 dprintf_task(stddeb
,"SetThreadAffinityMask(%x,%lx)\n",hThread
,
155 dwThreadAffinityMask
);
156 /* FIXME: We let it fail */