/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 */

#include <machine/asm.h>
/* RCSID("$NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $") */

ENTRY(scalbnf)
        fildl   8(%esp)
        flds    4(%esp)
        fscale
        fstp    %st(1)          /* bug fix for fp stack overflow */
        ret
END(scalbnf)

.globl CNAME(ldexpf)
.set    CNAME(ldexpf),CNAME(scalbnf)

        .section .note.GNU-stack,"",%progbits