mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 06:40:50 -08:00
Code Issues Projects Releases Packages Wiki Activity

Automatic initialization of GC library uses ECL's usual flags

Browse source
This commit is contained in:
jjgarcia 2008-06-26 21:06:09 +00:00
parent 0c4c43b052
commit faa259203e
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/gc/win32_threads.c
View file

@ -545,6 +545,8 @@ int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
DWORD thread_id;
/* initialize everything */
GC_all_interior_pointers = 0;
GC_no_dls = 1;
GC_init();
/* start the main thread */
@ -764,6 +766,8 @@ BOOL WINAPI DllMain(HINSTANCE inst, ULONG reason, LPVOID reserved)
{
switch (reason) {
case DLL_PROCESS_ATTACH:
GC_no_dls = 1;
GC_all_interior_pointers = 0;
GC_init(); /* Force initialization before thread attach. */
/* fall through */
case DLL_THREAD_ATTACH: