blob: a21c45ec1437b7b643c7120a0a4cbd6ba01c2ba3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/* $OpenBSD: s_signbitl_e.c,v 1.1 2007/06/01 05:52:42 jason Exp $ */
/*
* Written by Jason L. Wright (jason@thought.net) in 2007 and placed
* into the public domain.
*/
#include "math.h"
#include "math_private.h"
/* __signbitl for extended long double */
int
__signbitl(long double l)
{
ieee_extended_shape_type e;
e.value = l;
return (e.parts.msw & 0x8000);
}
|
