From: sater <none@none>
Date: Thu, 19 Jul 1984 13:09:53 +0000 (+0000)
Subject: a setl instruction was changed to a setd
X-Git-Tag: release-5-5~6168
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d082a2b0a2659648e2afdd25f849a890c91a2451;p=ack.git

a setl instruction was changed to a setd
setl was just plain wrong
---

diff --git a/mach/pdp/libem/adf.s b/mach/pdp/libem/adf.s
index b3bfc9166..42d5a2ede 100644
--- a/mach/pdp/libem/adf.s
+++ b/mach/pdp/libem/adf.s
@@ -9,5 +9,5 @@ adf~:
 	movf	(sp)+,r0
 	addf	(sp)+,r0
 	movf	r0,-(sp)
-	setl
+	setd
 	jmp	(r1)
diff --git a/mach/pdp/libem/cff.s b/mach/pdp/libem/cff.s
index c8c6c59df..9d43e9884 100644
--- a/mach/pdp/libem/cff.s
+++ b/mach/pdp/libem/cff.s
@@ -10,5 +10,5 @@ cff~:
 	jsr	pc,setfloat~
 	movof	(sp)+,r0
 	movf	r0,-(sp)
-	setl
+	setd
 1:	jmp	(r1)
diff --git a/mach/pdp/libem/cfi.s b/mach/pdp/libem/cfi.s
index 8dbb51317..d333a667b 100644
--- a/mach/pdp/libem/cfi.s
+++ b/mach/pdp/libem/cfi.s
@@ -10,5 +10,5 @@ cfi~:
 	jsr	pc,setfloat~
 	movf	(sp)+,r0
 	movfi	r0,-(sp)
-	setl;seti
+	setd;seti
 	jmp	(r1)
diff --git a/mach/pdp/libem/cif.s b/mach/pdp/libem/cif.s
index e7bf0dd34..729ab5449 100644
--- a/mach/pdp/libem/cif.s
+++ b/mach/pdp/libem/cif.s
@@ -10,7 +10,7 @@ cif~:
 1:	jsr	pc,setint~
 	movif	(sp)+,r0
 	movf	r0,-(sp)
-	setl;seti
+	setd;seti
 	jmp	(r1)
 cuf~:
 	mov	(sp)+,r1
diff --git a/mach/pdp/libem/cmf.s b/mach/pdp/libem/cmf.s
index abe6c956e..028273b88 100644
--- a/mach/pdp/libem/cmf.s
+++ b/mach/pdp/libem/cmf.s
@@ -9,7 +9,7 @@ cmf~:
 	movf	(sp)+,r1
 	clr	r0
 	cmpf	r0,r1
-	setl
+	setd
 	cfcc
 	beq	1f
 	blt	2f
diff --git a/mach/pdp/libem/dvf.s b/mach/pdp/libem/dvf.s
index db8b9e1a1..9658a804f 100644
--- a/mach/pdp/libem/dvf.s
+++ b/mach/pdp/libem/dvf.s
@@ -9,5 +9,5 @@ dvf~:
 	movf	(sp)+,r1
 	divf	r0,r1
 	movf	r1,-(sp)
-	setl
+	setd
 	jmp	(r1)
diff --git a/mach/pdp/libem/fef.s b/mach/pdp/libem/fef.s
index bd4b56a04..270813556 100644
--- a/mach/pdp/libem/fef.s
+++ b/mach/pdp/libem/fef.s
@@ -9,5 +9,5 @@ fef~:
 	movei	r0,-(sp)
 	movie	$0,r0
 	movf	r0,02(sp)
-	setl
+	setd
 	jmp	(r1)
diff --git a/mach/pdp/libem/fif.s b/mach/pdp/libem/fif.s
index 7382cfabe..1fe2cae0f 100644
--- a/mach/pdp/libem/fif.s
+++ b/mach/pdp/libem/fif.s
@@ -9,5 +9,5 @@ fif~:
 	modf	(sp)+,r0
 	movf	r0,-(sp)
 	movf	r1,-(sp)
-	setl
+	setd
 	jmp	(r1)
diff --git a/mach/pdp/libem/mlf.s b/mach/pdp/libem/mlf.s
index b5b355a30..4e4df933d 100644
--- a/mach/pdp/libem/mlf.s
+++ b/mach/pdp/libem/mlf.s
@@ -8,5 +8,5 @@ mlf~:
 	movf	(sp)+,r0
 	mulf	(sp)+,r0
 	movf	r0,-(sp)
-	setl
+	setd
 	jmp	(r1)
diff --git a/mach/pdp/libem/ngf.s b/mach/pdp/libem/ngf.s
index 64c1d2fe3..47a387076 100644
--- a/mach/pdp/libem/ngf.s
+++ b/mach/pdp/libem/ngf.s
@@ -6,5 +6,5 @@ ngf~:
 	mov	(sp)+,r1
 	jsr	pc,setfloat~
 	negf	(sp)
-	setl
+	setd
 	jmp	(r1)
diff --git a/mach/pdp/libem/sbf.s b/mach/pdp/libem/sbf.s
index d45e9610b..eca176604 100644
--- a/mach/pdp/libem/sbf.s
+++ b/mach/pdp/libem/sbf.s
@@ -9,5 +9,5 @@ sbf~:
 	subf	(sp)+,r0
 	negf	r0
 	movf	r0,-(sp)
-	setl
+	setd
 	jmp	(r1)