From c6279842e9f3980ec08c28eac34d8f02364d0a08 Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Mon, 18 Apr 1994 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1994-04-18

---
 carrera/l.s | 40 ++++++++++++++++++++--------------------
 port/qio.c  |  2 +-
 2 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/carrera/l.s b/carrera/l.s
index a6d65d94d36822c6cd91eea8f274c3edc8410e6d..100f4000cb9fbc31bee18b07d302711851acc960 100644
--- a/carrera/l.s
+++ b/carrera/l.s
@@ -814,43 +814,43 @@ TEXT	uvst(SB), $-4		/* uvst(address, src) */
 
 TEXT	fwblock(SB), $-4	/* fwblock(void*port, void *block, csum) */
 	MOVW	4(FP), R2
-	MOVW	8(FP), R3
+	MOVW	8(FP), R6
 
 	MOVW	$64, R4
 fwloop:
 	MOVV	0(R2), R5
 	MOVV	R5, 0(R1)
-	XOR	R5, R3
-	SRLV	$32, R5
-	XOR	R5, R3
+	XOR	R5, R6
+	MOVV	8(R2), R5
+	MOVV	R5, 0(R1)
+	XOR	R5, R6
 
-	ADD	$8, R2
-	SUB	$1, R4
+	ADD	$16, R2
+	SUB	$2, R4
 	BNE	R4, fwloop
 
-	MOVW	R3, R1
+	MOVW	R6, R1
+	SRLV	$32, R6
+	XOR	R6, R1
 	RET
 
 TEXT	frblock(SB), $-4	/* frblock(void*port, void *block, csum) */
 	MOVW	4(FP), R2
-	MOVW	8(FP), R3
+	MOVW	8(FP), R6
 
 	MOVW	$64, R4
 frloop:
-
-	MOVW	$50, R10
-xx:	SUB	$1, R10
-	BNE	R10, xx
-
 	MOVV	0(R1), R5
 	MOVV	R5, 0(R2)
-	XOR	R5, R3
-	SRLV	$32, R5
-	XOR	R5, R3
-
-	ADD	$8, R2
-	SUB	$1, R4
+	XOR	R5, R6
+	MOVV	0(R1), R5
+	MOVV	R5, 8(R2)
+	XOR	R5, R6
+	ADD	$16, R2
+	SUB	$2, R4
 	BNE	R4, frloop
 
-	MOVW	R3, R1
+	MOVW	R6, R1
+	SRLV	$32, R6
+	XOR	R6, R1
 	RET
diff --git a/port/qio.c b/port/qio.c
index d06a18c7d0c95a5250a51b10b2d4a23ad894614e..6fe42d398dd5f181b4e9578ac84d9ef258614f3e 100644
--- a/port/qio.c
+++ b/port/qio.c
@@ -243,7 +243,7 @@ qpass(Queue *q, Block *b)
 	q->len += len;
 checkb(b, "qpass");
 
-	if(q->len >= q->limit)
+	if(q->len >= q->limit/2)
 		q->state |= Qflow;
 
 	if(q->state & Qstarve){