usr/src/lib/libbc/libc/gen/common/_Q_fcc.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright 1989 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"
  28
  29 /* integer function _Q_feq, _Q_fne, _Q_fgt, _Q_fge, _Q_flt, _Q_fle */
  30
  31 #include "_Qquad.h"
  32
  33 int
  34 _Q_feq(QUAD x, QUAD y)
  35 {
  36         enum fcc_type   fcc;
  37         fcc = _Q_cmp(x,y);
  38         return (fcc_equal==fcc);
  39 }
  40
  41 int
  42 _Q_fne(QUAD x, QUAD y)
  43 {
  44         enum fcc_type   fcc;
  45         fcc = _Q_cmp(x,y);
  46         return (fcc_equal!=fcc);
  47 }
  48
  49 int
  50 _Q_fgt(QUAD x, QUAD y)
  51 {
  52         enum fcc_type   fcc;
  53         fcc = _Q_cmpe(x,y);
  54         return (fcc_greater==fcc);
  55 }
  56
  57 int
  58 _Q_fge(QUAD x, QUAD y)
  59 {
  60         enum fcc_type   fcc;
  61         fcc = _Q_cmpe(x,y);
  62         return (fcc_greater==fcc||fcc_equal==fcc);
  63 }
  64
  65 int
  66 _Q_flt(QUAD x, QUAD y)
  67 {
  68         enum fcc_type   fcc;
  69         fcc = _Q_cmpe(x,y);
  70         return (fcc_less==fcc);
  71 }
  72
  73 int
  74 _Q_fle(QUAD x, QUAD y)
  75 {
  76         enum fcc_type   fcc;
  77         fcc = _Q_cmpe(x,y);
  78         return (fcc_less==fcc||fcc_equal==fcc);
  79 }