ack/mach/vax4/libem/cif.s

27 lines
360 B
ArmAsm
Raw Normal View History

1985-01-18 14:30:03 +00:00
# $Header$
#include "em_abs.h"
.globl .cif
.cif:
movl (sp)+,r1
movl (sp)+,r0
cmpl r0,$4
bneq Ldbl
movl (sp)+,r0
cmpl r0,$4
bneq Lerr
cvtlf (sp)+,-(sp)
jmp (r1)
Ldbl:
cmpl r0,$8
bneq Lerr
movl (sp)+,r0
cmpl r0,$4
bneq Lerr
cvtld (sp)+,-(sp)
jmp (r1)
Lerr:
pushl $EILLINS
jmp .fat