[Sbcl-commits] CVS: sbcl/src/runtime win32-os.c,1.16,1.17

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv16142/src/runtime

Modified Files:
	win32-os.c 
Log Message:
0.9.16.35:
        Merge sbcl-devel "some reconstruction of win32 and others", 2006-09-10
        by Yaroslav Kavenchuk.

        * Replace manual external-format conversions in various SB-WIN32
          internals with alien external-formats.
        * Implement MACHINE-INSTANCE and SOFTWARE-VERSION.


Index: win32-os.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/win32-os.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- win32-os.c	7 Sep 2006 01:58:12 -0000	1.16
+++ win32-os.c	17 Sep 2006 09:50:00 -0000	1.17
@@ -677,6 +677,27 @@
     GetExitCodeProcess(0, 0);
     GetCurrentProcess();
     GetProcessTimes(0, 0, 0, 0, 0);
+    #ifndef LISP_FEATURE_SB_UNICODE
+      SetEnvironmentVariableA(0, 0);
+    #else
+      SetEnvironmentVariableW(0, 0);
+    #endif
+    #ifndef LISP_FEATURE_SB_UNICODE
+      GetVersionExA(0);
+    #else
+      GetVersionExW(0);
+    #endif
+    #ifndef LISP_FEATURE_SB_UNICODE
+      GetComputerNameA(0, 0);
+    #else
+      GetComputerNameW(0, 0);
+    #endif
+    #ifndef LISP_FEATURE_SB_UNICODE
+      SetCurrentDirectoryA(0);
+    #else
+      SetCurrentDirectoryW(0);
+    #endif
+    CloseHandle(0);
 }
 
 char *