sysdeps/sparc/sparc64/fpu/w_sqrtf.S

   1 /* sqrtf function.  sparc64 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         fzeros  %f8
  23         fcmps   %fcc2, %f1, %f8
  24         fbl,pn  %fcc2, 1f
  25          nop
  26 8:      retl
  27          fsqrts %f1, %f0
  28 1:
  29 #ifdef SHARED
  30         SETUP_PIC_REG_LEAF(o5, g1)
  31         sethi   %gdop_hix22(_LIB_VERSION), %g1
  32         xor     %g1, %gdop_lox10(_LIB_VERSION), %g1
  33         ldx     [%o5 + %g1], %g1, %gdop(_LIB_VERSION)
  34 #else
  35         sethi   %hi(_LIB_VERSION), %g1
  36         or      %g1, %lo(_LIB_VERSION), %g1
  37 #endif
  38         ld      [%g1], %g1
  39         cmp     %g1, -1
  40         be,pt   %icc, 8b
  41          fmovs  %f1, %f3
  42         mov     126, %o2
  43         mov     %o7, %g1
  44         call    __kernel_standard_f
  45          mov    %g1, %o7
  46 END (__sqrtf)
  47
  48 weak_alias (__sqrtf, sqrtf)