fixed for 0 argument

This commit is contained in:
ceriel 1990-01-12 15:34:21 +00:00
parent 558a632821
commit cb25b013fb

View file

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