2018-12-28 15:30:48 +00:00
|
|
|
; Copyright (C) 2012-2018 Free Software Foundation, Inc.
|
2014-09-21 17:33:12 +00:00
|
|
|
; Contributed by Red Hat.
|
|
|
|
|
;
|
|
|
|
|
; This file is free software; you can redistribute it and/or modify it
|
|
|
|
|
; under the terms of the GNU General Public License as published by the
|
|
|
|
|
; Free Software Foundation; either version 3, or (at your option) any
|
|
|
|
|
; later version.
|
|
|
|
|
;
|
|
|
|
|
; This file is distributed in the hope that it will be useful, but
|
|
|
|
|
; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
|
; General Public License for more details.
|
|
|
|
|
;
|
|
|
|
|
; Under Section 7 of GPL version 3, you are granted additional
|
|
|
|
|
; permissions described in the GCC Runtime Library Exception, version
|
|
|
|
|
; 3.1, as published by the Free Software Foundation.
|
|
|
|
|
;
|
|
|
|
|
; You should have received a copy of the GNU General Public License and
|
|
|
|
|
; a copy of the GCC Runtime Library Exception along with this program;
|
|
|
|
|
; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
|
|
|
; <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
#include "vregs.h"
|
|
|
|
|
|
|
|
|
|
;; int signbitf (float X)
|
|
|
|
|
;; int signbit (double X)
|
|
|
|
|
;; int signbitl (long double X)
|
|
|
|
|
;;
|
|
|
|
|
;; `signbit' returns a nonzero value if the value of X has its sign
|
|
|
|
|
;; bit set.
|
|
|
|
|
;;
|
|
|
|
|
;; This is not the same as `x < 0.0', because IEEE 754 floating point
|
|
|
|
|
;; allows zero to be signed. The comparison `-0.0 < 0.0' is false,
|
|
|
|
|
;; but `signbit (-0.0)' will return a nonzero value.
|
|
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
.text
|
|
|
|
|
|
2015-08-28 15:33:40 +00:00
|
|
|
START_FUNC _signbit
|
|
|
|
|
START_ANOTHER_FUNC _signbitf
|
|
|
|
|
;; X is at [sp+4]..[SP+7]
|
2014-09-21 17:33:12 +00:00
|
|
|
;; result is in R8..R9
|
|
|
|
|
|
|
|
|
|
movw r8, #0
|
|
|
|
|
mov a, [sp+7]
|
|
|
|
|
mov1 cy, a.7
|
|
|
|
|
sknc
|
|
|
|
|
movw r8, #1
|
|
|
|
|
ret
|
2015-08-28 15:33:40 +00:00
|
|
|
END_ANOTHER_FUNC _signbitf
|
|
|
|
|
END_FUNC _signbit
|
2014-09-21 17:33:12 +00:00
|
|
|
|
2015-08-28 15:33:40 +00:00
|
|
|
|
|
|
|
|
START_FUNC _signbitl
|
|
|
|
|
;; X is at [sp+4]..[SP+7]
|
2014-09-21 17:33:12 +00:00
|
|
|
;; result is in R8..R9
|
|
|
|
|
|
|
|
|
|
movw r8, #0
|
|
|
|
|
mov a, [sp+11]
|
|
|
|
|
mov1 cy, a.7
|
|
|
|
|
sknc
|
|
|
|
|
movw r8, #1
|
|
|
|
|
ret
|
2015-08-28 15:33:40 +00:00
|
|
|
END_FUNC _signbitl
|
