newlib/libm/machine/amdgcn/v64df_ispos.c

   1 /*
   2  * Copyright 2023 Siemens
   3  *
   4  * The authors hereby grant permission to use, copy, modify, distribute,
   5  * and license this software and its documentation for any purpose, provided
   6  * that existing copyright notices are retained in all copies and that this
   7  * notice is included verbatim in any distributions.  No written agreement,
   8  * license, or royalty fee is required for any of the authorized uses.
   9  * Modifications to this software may be copyrighted by their authors
  10  * and need not follow the licensing terms described here, provided that
  11  * the new terms are clearly indicated on the first page of each file where
  12  * they apply.
  13  */
  14
  15 /*
  16  * Copyright (c) 1994-2009  Red Hat, Inc. All rights reserved.
  17  *
  18  * This copyrighted material is made available to anyone wishing to use,
  19  * modify, copy, or redistribute it subject to the terms and conditions
  20  * of the BSD License.   This program is distributed in the hope that
  21  * it will be useful, but WITHOUT ANY WARRANTY expressed or implied,
  22  * including the implied warranties of MERCHANTABILITY or FITNESS FOR
  23  * A PARTICULAR PURPOSE.  A copy of this license is available at
  24  * http://www.opensource.org/licenses. Any Red Hat trademarks that are
  25  * incorporated in the source code or documentation are not subject to
  26  * the BSD License and may only be used or replicated with the express
  27  * permission of Red Hat, Inc.
  28  */
  29
  30 /* Based on newlib/libm/mathfp/s_ispos.c in Newlib.  */
  31
  32 #include "amdgcnmach.h"
  33
  34 v64si
  35 v64df_ispos (v64df x)
  36 {
  37   // Explicitly create mask for internal function.
  38   v64si __mask = VECTOR_INIT (-1);
  39   FUNCTION_INIT (v64si);
  40
  41   v64si hx;
  42   GET_HIGH_WORD (hx, x, NO_COND);
  43
  44   VECTOR_RETURN ((hx & 0x80000000) == 0, NO_COND);
  45
  46   FUNCTION_RETURN;
  47 }