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