/*
  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  See the copyright notice in the ACK home directory, in the file "Copyright".
*/

/* $Id$ */

/*
	COMPARE	SINGLES (CMF 4)
*/

#include	"FP_types.h"
#include	"get_put.h"

int
cmf4(f1,f2)
SINGLE	f1,f2;
{
		/*
		 * return ((f1 < f2) ? 1 : (f1 - f2))
		 */
#define SIGN(x) (((x) < 0) ? -1 : 1)
        int	sign1,sign2;
	long	l1,l2;

	l1 = get4((char *) &f1);
	l2 = get4((char *) &f2);

	if (l1 == l2) return 0;

        sign1 = SIGN(l1);
        sign2 = SIGN(l2);
        if (sign1 != sign2) {
		if ((l1 & 0x7fffffff) == 0 &&
		    (l2 & 0x7fffffff) == 0) return 0;
                return ((sign1 > 0) ? -1 : 1);
	}

	return (sign1 * ((l1 < l2) ? 1 : -1));
}
