From: ceriel <none@none>
Date: Wed, 27 Apr 1988 16:57:43 +0000 (+0000)
Subject: almost fixed problem with cfu
X-Git-Tag: release-5-5~3309
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=2e009ecfffc7363c9a007bc4d47b0d5310ee96a0;p=ack.git

almost fixed problem with cfu
---

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