LXR linux/arch/mips/math-emu/dp

   1/* IEEE754 floating point arithmetic
   2 * double precision: common utilities
   3 */
   4/*
   5 * MIPS floating point support
   6 * Copyright (C) 1994-2000 Algorithmics Ltd.
   7 *
   8 *  This program is free software; you can distribute it and/or modify it
   9 *  under the terms of the GNU General Public License (Version 2) as
  10 *  published by the Free Software Foundation.
  11 *
  12 *  This program is distributed in the hope it will be useful, but WITHOUT
  13 *  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 *  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 *  for more details.
  16 *
  17 *  You should have received a copy of the GNU General Public License along
  18 *  with this program; if not, write to the Free Software Foundation, Inc.,
  19 *  51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA.
  20 */
  21
  22#include "ieee754dp.h"
  23
  24union ieee754dp ieee754dp_neg(union ieee754dp x)
  25{
  26        unsigned int oldrm;
  27        union ieee754dp y;
  28
  29        oldrm = ieee754_csr.rm;
  30        ieee754_csr.rm = FPU_CSR_RD;
  31        y = ieee754dp_sub(ieee754dp_zero(0), x);
  32        ieee754_csr.rm = oldrm;
  33        return y;
  34}
  35
  36union ieee754dp ieee754dp_abs(union ieee754dp x)
  37{
  38        unsigned int oldrm;
  39        union ieee754dp y;
  40
  41        oldrm = ieee754_csr.rm;
  42        ieee754_csr.rm = FPU_CSR_RD;
  43        if (DPSIGN(x))
  44                y = ieee754dp_sub(ieee754dp_zero(0), x);
  45        else
  46                y = ieee754dp_add(ieee754dp_zero(0), x);
  47        ieee754_csr.rm = oldrm;
  48        return y;
  49}
  50