[Sbcl-commits] CVS: sbcl/contrib/sb-posix posix-tests.lisp,1.16,1.16.6.1

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

Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4023/contrib/sb-posix

Modified Files:
      Tag: x86-64-again-branch
	posix-tests.lisp 
Log Message:
0.8.15.14.x86-64-again-branch.31:
	* Change arg-type of specialized array indexing VOPs with constant
          indexes to (signed-byte 29), since larger immediate displacements
          are impossible.
        * Fix too large shifts in %RANDOM-DOUBLE-FLOAT which caused the
          random number to always have a value of approximately 0d0.
        * Change SB-ALIEN:INTEGER -> SB-ALIEN:INT for socket functions,
          since they're declared to take ints (32-bit on AMD64) while
          SB-ALIEN:INTEGER is 64-bit.
        * Add a special case for Linux/AMD64 to fcntl/f-getfl test,
          O_LARGEFILE is always set on this platform.
        * Maybe-add-rex-prefix in test even if register is accumulator.


Index: posix-tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v
retrieving revision 1.16
retrieving revision 1.16.6.1
diff -u -d -r1.16 -r1.16.6.1
--- posix-tests.lisp	20 Jul 2004 21:27:23 -0000	1.16
+++ posix-tests.lisp	11 Dec 2004 01:43:58 -0000	1.16.6.1
@@ -355,11 +355,19 @@
       (sb-posix:syscall-errno c)))
   #.sb-posix::eisdir)
 
+#-(and x86-64 linux)
 (deftest fcntl.1
   (let ((fd (sb-posix:open "/dev/null" sb-posix::o-nonblock)))
     (= (sb-posix:fcntl fd sb-posix::f-getfl) sb-posix::o-nonblock))
   t)
-
+;; On AMD64/Linux O_LARGEFILE is always set, even though the whole
+;; flag makes no sense.
+#+(and x86-64 linux)
+(deftest fcntl.1
+  (let ((fd (sb-posix:open "/dev/null" sb-posix::o-nonblock)))
+    (/= 0 (logand (sb-posix:fcntl fd sb-posix::f-getfl)
+		  sb-posix::o-nonblock)))
+  t)
 
 (deftest opendir.1
   (let ((dir (sb-posix:opendir "/")))