ack/mach/vax4/libem/cif.s
1985-01-18 14:30:03 +00:00

27 lines
360 B
ArmAsm

# $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