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