1 /* Subroutines for long double support. 2 Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. 3 4 This file is part of GNU CC. 5 6 GNU CC is free software; you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation; either version 2, or (at your option) 9 any later version. 10 11 In addition to the permissions in the GNU General Public License, the 12 Free Software Foundation gives you unlimited permission to link the 13 compiled version of this file into combinations with other programs, 14 and to distribute those combinations without any restriction coming 15 from the use of this file. (The General Public License restrictions 16 do apply in other respects; for example, they cover modification of 17 the file, and distribution when not linked into a combine 18 executable.) 19 20 GNU CC is distributed in the hope that it will be useful, 21 but WITHOUT ANY WARRANTY; without even the implied warranty of 22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23 GNU General Public License for more details. 24 25 You should have received a copy of the GNU General Public License 26 along with GNU CC; see the file COPYING. If not, write to 27 the Free Software Foundation, 59 Temple Place - Suite 330, 28 Boston, MA 02111-1307, USA. */ 29 30 extern int _U_Qfcmp (long double a, long double b, int); 31 32 int _U_Qfeq (long double, long double); 33 int _U_Qfne (long double, long double); 34 int _U_Qfgt (long double, long double); 35 int _U_Qfge (long double, long double); 36 int _U_Qflt (long double, long double); 37 int _U_Qfle (long double, long double); 38 int _U_Qfcomp (long double, long double); 39 40 int 41 _U_Qfeq (long double a, long double b) 42 { 43 return (_U_Qfcmp (a, b, 4) != 0); 44 } 45 46 int 47 _U_Qfne (long double a, long double b) 48 { 49 return (_U_Qfcmp (a, b, 4) == 0); 50 } 51 52 int 53 _U_Qfgt (long double a, long double b) 54 { 55 return (_U_Qfcmp (a, b, 17) != 0); 56 } 57 58 int 59 _U_Qfge (long double a, long double b) 60 { 61 return (_U_Qfcmp (a, b, 21) != 0); 62 } 63 64 int 65 _U_Qflt (long double a, long double b) 66 { 67 return (_U_Qfcmp (a, b, 9) != 0); 68 } 69 70 int 71 _U_Qfle (long double a, long double b) 72 { 73 return (_U_Qfcmp (a, b, 13) != 0); 74 } 75 76 int 77 _U_Qfcomp (long double a, long double b) 78 { 79 if (_U_Qfcmp (a, b, 4) == 0) 80 return 0; 81 82 return (_U_Qfcmp (a, b, 22) != 0 ? 1 : -1); 83 } 84