[Openmcl-cvs-notifications] r10428 - /trunk/source/library/x8664-solaris-syscalls.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 11 00:04:42 2008
New Revision: 10428

Log:
In syscall definition for fcntl, claim that the third (optional) =

arg is an int.  (It is, in our use of it.)

Modified:
    trunk/source/library/x8664-solaris-syscalls.lisp

Modified: trunk/source/library/x8664-solaris-syscalls.lisp
=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/library/x8664-solaris-syscalls.lisp (original)
+++ trunk/source/library/x8664-solaris-syscalls.lisp Mon Aug 11 00:04:42 20=
08
@@ -139,7 +139,7 @@
 (define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::execve 59 () :void)
 (define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::umask 60 () :void)
 (define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::chroot 61 () :void)
-(define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::fcntl 62 (:int :int :address) :int :min-args 2)
+(define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::fcntl 62 (:int :int :int) :int :min-args 2)
 (define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::ulimit 63 () :void)
 (define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::reserved_64 64 #|| 64 reserved ||# () :void)
 (define-syscall (logior platform-os-solaris platform-cpu-x86 platform-word=
-size-64) syscalls::reserved_65 65 #|| 65 reserved ||# () :void)