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

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 00:02:40 2008
New Revision: 10675

Log:
Fix several typos.

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 Wed Sep 10 00:02:40 2008
@@ -350,7 +350,7 @@
 int
 lisp_fchmod(int fd, int mode)
 {
-  errno =3D ENOSYS
+  errno =3D ENOSYS;
   return -1;
 }
 =

@@ -367,9 +367,16 @@
 }
 =

 int
-windows_fstat(int fd, struct __stat64 *buf)
+lisp_fstat(int fd, struct __stat64 *buf)
 {
   return _fstat64(fd,buf);
+}
+
+int
+lisp_futex(int *uaddr, int op, int val, void *timeout, int *uaddr2, int va=
l3)
+{
+  errno =3D ENOSYS;
+  return -1;
 }
 =

 =

@@ -395,7 +402,7 @@
 __int64
 lisp_closedir(_WDIR *dir)
 {
-  WSYSCALL_RETURN(_wclosedir(dir));
+  return _wclosedir(dir);
 }
 =

 int