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 b3bfc91..42d5a2e 100644 (file)
--- 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 c8c6c59..9d43e98 100644 (file)
--- 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 8dbb513..d333a66 100644 (file)
--- 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 e7bf0dd..729ab54 100644 (file)
--- 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 abe6c95..028273b 100644 (file)
--- 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 db8b9e1..9658a80 100644 (file)
--- 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 bd4b56a..2708135 100644 (file)
--- 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 7382cfa..1fe2cae 100644 (file)
--- 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 b5b355a..4e4df93 100644 (file)
--- 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 64c1d2f..47a3870 100644 (file)
--- 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 d45e961..eca1766 100644 (file)
--- 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)