1/* 2 * Based on code written by J.T. Conklin <jtc@netbsd.org>. 3 * Public domain. 4 */ 5 6#include <machine/asm.h> 7/* RCSID("$NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $") */ 8 9ENTRY(scalbnl) 10 movl %edi,-4(%rsp) 11 fildl -4(%rsp) 12 fldt 8(%rsp) 13 fscale 14 fstp %st(1) 15 ret 16END(scalbnl) 17 18.globl CNAME(ldexpl) 19.set CNAME(ldexpl),CNAME(scalbnl) 20 21 .section .note.GNU-stack,"",%progbits 22