Changeset 4825 for trunk/ccl/level-0/l0-io.lisp

Timestamp:

Jun 27, 2006, 10:34:02 AM (15 years ago)

Author:

gb

Message:

FreeBSD syscalls.

File:

• trunk/ccl/level-0/l0-io.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-io.lisp

@@ -23 +23 @@
   (require "X8664-LINUX-SYSCALLS")
   #+darwin-target
-  (require "DARWIN-SYSCALLS"))
+  (require "DARWIN-SYSCALLS")
+  #+freebsd-target
+  (require "X8664-FREEBSD-SYSCALLS")
+  )
 
 
@@ -62 +65 @@
 #-(and ppc32-target linux-target)
 (defun fd-lseek (fd offset whence)
+  #+freebsd-target
+  (syscall syscalls::lseek fd 0 offset whence)
+  #-freebsd-target
   (syscall syscalls::lseek fd offset whence))