a setl instruction was changed to a setd

setl was just plain wrong
This commit is contained in:
sater 1984-07-19 13:09:53 +00:00
parent d5aa088876
commit d082a2b0a2
11 changed files with 11 additions and 11 deletions

View file

@ -9,5 +9,5 @@ adf~:
movf (sp)+,r0
addf (sp)+,r0
movf r0,-(sp)
setl
setd
jmp (r1)

View file

@ -10,5 +10,5 @@ cff~:
jsr pc,setfloat~
movof (sp)+,r0
movf r0,-(sp)
setl
setd
1: jmp (r1)

View file

@ -10,5 +10,5 @@ cfi~:
jsr pc,setfloat~
movf (sp)+,r0
movfi r0,-(sp)
setl;seti
setd;seti
jmp (r1)

View file

@ -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

View file

@ -9,7 +9,7 @@ cmf~:
movf (sp)+,r1
clr r0
cmpf r0,r1
setl
setd
cfcc
beq 1f
blt 2f

View file

@ -9,5 +9,5 @@ dvf~:
movf (sp)+,r1
divf r0,r1
movf r1,-(sp)
setl
setd
jmp (r1)

View file

@ -9,5 +9,5 @@ fef~:
movei r0,-(sp)
movie $0,r0
movf r0,02(sp)
setl
setd
jmp (r1)

View file

@ -9,5 +9,5 @@ fif~:
modf (sp)+,r0
movf r0,-(sp)
movf r1,-(sp)
setl
setd
jmp (r1)

View file

@ -8,5 +8,5 @@ mlf~:
movf (sp)+,r0
mulf (sp)+,r0
movf r0,-(sp)
setl
setd
jmp (r1)

View file

@ -6,5 +6,5 @@ ngf~:
mov (sp)+,r1
jsr pc,setfloat~
negf (sp)
setl
setd
jmp (r1)

View file

@ -9,5 +9,5 @@ sbf~:
subf (sp)+,r0
negf r0
movf r0,-(sp)
setl
setd
jmp (r1)