d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

some more fixes

Browse source
This commit is contained in:
ceriel 1990-01-12 17:02:31 +00:00
parent 027b33d313
commit 7babff444a
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
mach/vax4/libem/fef.s
View file

@ -9,28 +9,29 @@
movl (sp)+,r3 movl (sp)+,r3
cmpl r0,$4 cmpl r0,$4
bneq I1 bneq I1
cvtfd (sp)+,r0 cvtfd (sp),r0
jsb Ihulp jsb Ihulp
cvtdf r0,-(sp) cvtdf r0,(sp)
movl r2,-(sp)
jmp (r3) jmp (r3)
I1: I1:
cmpl r0,$8 cmpl r0,$8
bneq I2 bneq I2
movd (sp)+,r0 movd (sp),r0
jsb Ihulp jsb Ihulp
movd r0,-(sp) movd r0,(sp)
movl r2,-(sp)
jmp (r3) jmp (r3)
I2: I2:
pushl $EILLINS pushl $EILLINS
jmp .fat jmp .fat
Ihulp: Ihulp:
movl (sp)+,r2
tstd r0 tstd r0
bneq 1f bneq 1f
clrl -(sp) clrl r2
jmp (r2) rsb
1: 1:
extzv $7,$8,r0,-(sp) extzv $7,$8,r0,r2
subl2 $128,(sp) subl2 $128,r2
insv $128,$7,$8,r0 insv $128,$7,$8,r0
jmp (r2) rsb