xref: /openbsd/lib/libm/arch/hppa/s_ceilf.c (revision 5af055cd)
1 /*	$OpenBSD: s_ceilf.c,v 1.7 2015/01/20 04:41:01 krw Exp $	*/
2 /*
3  * Written by Michael Shalayeff. Public Domain
4  */
5 
6 #include <sys/types.h>
7 #include <machine/ieeefp.h>
8 #include "math.h"
9 
10 float
11 ceilf(float x)
12 {
13 	u_int64_t ofpsr, fpsr;
14 
15 	__asm__ volatile("fstds %%fr0,0(%0)" :: "r" (&ofpsr) : "memory");
16 	fpsr = (ofpsr & ~((u_int64_t)FP_RM << (9 + 32))) |
17 	    ((u_int64_t)FP_RP << (9 + 32));
18 	__asm__ volatile("fldds 0(%0), %%fr0" :: "r" (&fpsr) : "memory");
19 
20 	__asm__ volatile("frnd,sgl %0,%0" : "+f" (x));
21 
22 	__asm__ volatile("fldds 0(%0), %%fr0" :: "r" (&ofpsr) : "memory");
23 	return (x);
24 }
25