From 2e009ecfffc7363c9a007bc4d47b0d5310ee96a0 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 27 Apr 1988 16:57:43 +0000
Subject: [PATCH] almost fixed problem with cfu

---
 mach/pdp/int/em_int.s | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/mach/pdp/int/em_int.s b/mach/pdp/int/em_int.s
index ac38f0e5d..e309f36ce 100644
--- a/mach/pdp/int/em_int.s
+++ b/mach/pdp/int/em_int.s
@@ -1645,17 +1645,21 @@ cuu.z:
 	jbr	6b
 /-------
 cfu.z:
-	mov	(sp)+,r0
+	mov	(sp)+,r1
+	mov	$4,r0
 	jsr	pc,setint
 	mov	(sp)+,r0
 	jsr	pc,setfloat
 	movf	(sp)+,fr0
 	movfi	fr0,-(sp)
+/ unfortunately, this does not work for numbers >= 2^31
 .if .test
 	jcs	9b
 	jlt	9b
 .endif
-	next
+	mov	$4,-(sp)
+	mov	r1,-(sp)
+	jbr	cuu_z
 /-------
 cfi.z:
 	mov	(sp)+,r0