[Openmcl-cvs-notifications] r10917 - /trunk/source/lisp-kernel/windows-calls.c

[gb at clozure.com]

Author: gb
Date: Mon Sep 29 04:32:42 2008
New Revision: 10917

Log:
On win32, call init_win32_ldt() from init_windows_io().

Modified:
    trunk/source/lisp-kernel/windows-calls.c

Modified: trunk/source/lisp-kernel/windows-calls.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/windows-calls.c (original)
+++ trunk/source/lisp-kernel/windows-calls.c Mon Sep 29 04:32:42 2008
@@ -523,6 +523,10 @@
 void
 init_windows_io()
 {
+#ifdef WIN_32
+  extern void init_win32_ldt(void);
+  init_win32_ldt();
+#endif
   find_symbol_lock =3D CreateMutex(NULL,false,NULL);
 }
 =