[Wisp-cvs] wisp/modules linux.wrti,1.16,1.17
Status: Alpha
Brought to you by:
digg
From: <di...@us...> - 2002-09-13 16:36:01
|
Update of /cvsroot/wisp/wisp/modules In directory usw-pr-cvs1:/tmp/cvs-serv10070/modules Modified Files: linux.wrti Log Message: Dropped |sys:raw:read|, |sys:raw:write|, |sys:raw:open|, and |sys:raw:waitpid| in favour of the new corresponding low-level non-signalling procedures. Index: linux.wrti =================================================================== RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- linux.wrti 7 Sep 2002 22:03:51 -0000 1.16 +++ linux.wrti 13 Sep 2002 16:34:57 -0000 1.17 @@ -16,15 +16,7 @@ (macro sys.exit (->reg 0 %ebx) 1 \sys ,(\skip)) - (macro sys.write - (->reg 0 %edx) - (->reg 1 %ecx) - (->reg 2 %ebx) - (register %eax) - 4 \sys - nip nip nip) - - (macro sys.write-char + (macro sys.write-char ; ( fd char ) (flush) ,(pop %ecx) ,(pop %ebx) @@ -49,6 +41,9 @@ then) (macro sys.fork (conform) 2 \sys (believe %eax)) + (macro sys.read (conform %ebx %ecx %edx) 3 \sys (believe %eax)) + (macro sys.write (conform %ebx %ecx %edx) 4 \sys (believe %eax)) + (macro sys.open (conform %ebx %ecx %edx) 5 \sys (believe %eax)) (macro sys.close (conform %ebx) 6 \sys (believe %eax)) ; |sys.waitpid| takes (pid options) and ; returns (status pid) or (-errno) or (0) |