1/* $NetBSD: fpsetround.S,v 1.7 1999/10/25 23:48:11 thorpej Exp $ */ 2 3/* 4 * Written by J.T. Conklin, Apr 6, 1995 5 * Public Domain. 6 */ 7 8#include <machine/asm.h> 9 10#ifdef WEAK_ALIAS 11WEAK_ALIAS(fpsetround, _fpsetround) 12ENTRY(_fpsetround) 13#else 14ENTRY(fpsetround) 15#endif 16 movel %d2,%sp@- 17 fmovel %fpcr,%d1 18 movel %sp@(8),%d2 19 bfextu %d1{#26,#2},%d0 20 bfins %d2,%d1{#26:#2} 21 movel %sp@+,%d2 22 fmovel %d1,%fpcr 23 rts 24