Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31654/src/builtin
Modified Files:
sys.wisp
Log Message:
Dropped |sys:raw:lseek|.
Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- sys.wisp 4 Sep 2002 14:28:37 -0000 1.106
+++ sys.wisp 4 Sep 2002 14:35:28 -0000 1.107
@@ -39,6 +39,7 @@
(kill pid sig)
(link oldname newname)
(listen s backlog)
+ (lseek fd ofs whence)
(mkdir name mode)
(pipe)
(rename oldname newname)
@@ -68,12 +69,6 @@
(my s (valloc (asm () (tn . 3)))
(asm ((decui (- res 1)) s . buffer) pt (s . 2) p (s . 1) (tn . 9) s0)
s)))))))
-
-(local (sys:lseek fd ofs whence)
- (my res (encsi ((asm NN_sys_raw_lseek) (decui fd) (decsi ofs) (decui whence)))
- (if (negative? res)
- (signal-system-error res `(sys:lseek ,fd ,ofs ,whence))
- res)))
(local (%wsv->0tv wsv)
(my i (vector-length wsv)
|
