Home | History | Annotate | Download | only in common
      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 1988 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 #include "_Qquad.h"
     30 #include "_Qglobals.h"
     31 
     32 enum fcc_type
     33 _Q_cmp(QUAD x, QUAD y)
     34 {
     35 	unpacked	px,py,pz;
     36 	enum fcc_type	fcc;
     37 	_fp_current_exceptions = 0;
     38 	_fp_unpack(&px, (int *)&x,fp_op_extended);
     39 	_fp_unpack(&py, (int *)&y,fp_op_extended);
     40 	fcc = _fp_compare(&px,&py,0);	/* quiet NaN unexceptional */
     41 	_Q_set_exception(_fp_current_exceptions);
     42 	return (fcc);
     43 }
     44