blob: bb702dbbb1cee0dd4e36641fb6a66c2c341f4ad0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
/* $OpenBSD: s_trunc.c,v 1.7 2015/01/20 04:41:01 krw Exp $ */
/*
* Written by Michael Shalayeff. Public Domain
*/
#include <sys/types.h>
#include <machine/ieeefp.h>
#include "math.h"
double
trunc(double x)
{
u_int64_t ofpsr, fpsr;
__asm__ volatile("fstds %%fr0,0(%0)" :: "r" (&ofpsr) : "memory");
fpsr = (ofpsr & ~((u_int64_t)FP_RM << (9 + 32))) |
((u_int64_t)FP_RZ << (9 + 32));
__asm__ volatile("fldds 0(%0), %%fr0" :: "r" (&fpsr) : "memory");
__asm__ volatile("frnd,dbl %0,%0" : "+f" (x));
__asm__ volatile("fldds 0(%0), %%fr0" :: "r" (&ofpsr) : "memory");
return (x);
}
__strong_alias(truncl, trunc);
|
