libgcc/config/rl78/signbit.S

   1 ;   Copyright (C) 2012-2014 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
  40         .global _signbit
  41 _signbit:
  42         .global _signbitf
  43 _signbitf:
  44         ;; X is at [sp+4]
  45         ;; result is in R8..R9
  46
  47         movw    r8, #0
  48         mov     a, [sp+7]
  49         mov1    cy, a.7
  50         sknc
  51         movw    r8, #1
  52         ret
  53         .size   _signbit, . - _signbit
  54         .size   _signbitf, . - _signbitf
  55
  56         .global _signbitl
  57 _signbitl:
  58         ;; X is at [sp+4]
  59         ;; result is in R8..R9
  60
  61         movw    r8, #0
  62         mov     a, [sp+11]
  63         mov1    cy, a.7
  64         sknc
  65         movw    r8, #1
  66         ret
  67         .size   _signbitl, . - _signbitl