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