From 9b29ac7ea714507a9c0690620c02c8ca5ab25f90 Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Tue, 22 Jan 2008 21:54:45 +0000 Subject: 20080122-2200 --- appl/lib/devpointer.b | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'appl/lib/devpointer.b') diff --git a/appl/lib/devpointer.b b/appl/lib/devpointer.b index 137f29f6..36492164 100644 --- a/appl/lib/devpointer.b +++ b/appl/lib/devpointer.b @@ -27,7 +27,7 @@ reader(file: string, posn: chan of ref Pointer, pid: chan of (int, string)) if(pid != nil) pid <-= (sys->pctl(0, nil), nil); b:= array[Size] of byte; - while((n := sys->read(dfd, b, len b)) == Size) + while(sys->read(dfd, b, len b) == Size) posn <-= bytes2ptr(b); } @@ -64,7 +64,7 @@ srv(c: chan of ref Pointer, f: ref Sys->FileIO) if(p == nil) exit; ptrq.put(p); - (nil, n, nil, rc) := <-r => + (nil, nil, nil, rc) := <-r => if(rc != nil){ alt{ rc <-= (ptr2bytes(ptrq.get()), nil) =>; -- cgit v1.2.3