1145171Sdas/*
2145171Sdas * Based on code written by J.T. Conklin <jtc@netbsd.org>.
3145171Sdas * Public domain.
4145171Sdas */
5145171Sdas
6145171Sdas#include <machine/asm.h>
7145171Sdas__FBSDID("$FreeBSD$")
8145171Sdas/* RCSID("$NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $") */
9145171Sdas
10145171SdasENTRY(scalbnl)
11145171Sdas	movl	%edi,-4(%rsp)
12145171Sdas	fildl	-4(%rsp)
13145171Sdas	fldt	8(%rsp)
14145171Sdas	fscale
15145171Sdas	fstp	%st(1)
16145171Sdas	ret
17192760SattilioEND(scalbnl)
18145171Sdas
19145171Sdas.globl	CNAME(ldexpl)
20145171Sdas.set	CNAME(ldexpl),CNAME(scalbnl)
21217108Skib
22217108Skib	.section .note.GNU-stack,"",%progbits
23