1;   Copyright (C) 2012-2015 Free Software Foundation, Inc.
2;   Contributed by Red Hat.
3;
4; This file is free software; you can redistribute it and/or modify it
5; under the terms of the GNU General Public License as published by the
6; Free Software Foundation; either version 3, or (at your option) any
7; later version.
8;
9; This file is distributed in the hope that it will be useful, but
10; WITHOUT ANY WARRANTY; without even the implied warranty of
11; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12; General Public License for more details.
13;
14; Under Section 7 of GPL version 3, you are granted additional
15; permissions described in the GCC Runtime Library Exception, version
16; 3.1, as published by the Free Software Foundation.
17;
18; You should have received a copy of the GNU General Public License and
19; a copy of the GCC Runtime Library Exception along with this program;
20; see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
21; <http://www.gnu.org/licenses/>.
22
23#include "vregs.h"
24
25;; int signbitf (float X)
26;; int signbit  (double X)
27;; int signbitl (long double X)
28;;
29;;     `signbit' returns a nonzero value if the value of X has its sign
30;;     bit set.
31;;
32;;     This is not the same as `x < 0.0', because IEEE 754 floating point
33;;     allows zero to be signed.  The comparison `-0.0 < 0.0' is false,
34;;     but `signbit (-0.0)' will return a nonzero value.
35
36;----------------------------------------------------------------------
37
38	.text
39
40START_FUNC		_signbit
41START_ANOTHER_FUNC	_signbitf
42	;; X is at [sp+4]..[SP+7]
43	;; result is in R8..R9
44
45	movw	r8, #0
46	mov	a, [sp+7]
47	mov1	cy, a.7
48	sknc
49	movw	r8, #1
50	ret
51END_ANOTHER_FUNC	_signbitf
52END_FUNC		_signbit
53
54
55START_FUNC	_signbitl
56	;; X is at [sp+4]..[SP+7]
57	;; result is in R8..R9
58
59	movw	r8, #0
60	mov	a, [sp+11]
61	mov1	cy, a.7
62	sknc
63	movw	r8, #1
64	ret
65END_FUNC 	_signbitl
66