sysdeps/sparc/sparc32/sparcv9/fpu/w_sqrtf_compat.S

   1 /* sqrtf function.  sparc32 v9 version.
   2    Copyright (C) 2012-2017 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <http://www.gnu.org/licenses/>.  */
  18
  19 #include <sysdep.h>
  20
  21 ENTRY (__sqrtf)
  22         st      %o0, [%sp + 72]
  23         fzeros  %f8
  24         ld      [%sp + 72], %f0
  25         fcmps   %f0, %f8
  26         fbl     1f
  27          nop
  28 8:      retl
  29          fsqrts %f0, %f0
  30 1:
  31 #ifdef SHARED
  32         SETUP_PIC_REG_LEAF(o5, g1)
  33         sethi   %gdop_hix22(_LIB_VERSION), %g1
  34         xor     %g1, %gdop_lox10(_LIB_VERSION), %g1
  35         ld      [%o5 + %g1], %g1, %gdop(_LIB_VERSION)
  36 #else
  37         sethi   %hi(_LIB_VERSION), %g1
  38         or      %g1, %lo(_LIB_VERSION), %g1
  39 #endif
  40         ld      [%g1], %g1
  41         cmp     %g1, -1
  42         be      8b
  43          mov    %o0, %o1
  44         mov     126, %o2
  45         mov     %o7, %g1
  46         call    __kernel_standard_f
  47          mov    %g1, %o7
  48 END (__sqrtf)
  49
  50 weak_alias (__sqrtf, sqrtf)