/*  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.  See the copyright notice in the ACK home directory, in the file "Copyright".*//* $Header: /cvsup/minix/src/lib/ack/float/cuf4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ *//*	CONVERT INTEGER TO SINGLE (CUF n 4)	THIS ROUTINE WORKS BY FILLING AN EXTENDED	WITH THE INTEGER VALUE IN EXTENDED FORMAT	AND USES COMPACT() TO PUT IT INTO THE PROPER	FLOATING POINT PRECISION.*/#include "FP_types.h"voidcuf4(ss,src)int	ss;	/* source size */long	src;	/* largest possible integer to convert */{	EXTEND	buf;	short	*ipt;	SINGLE	*result;	long	i_src;	zrf_ext(&buf);	if (ss == sizeof(long))	{		buf.exp = 31;		i_src = src;		result = (SINGLE *) &src;	}	else	{		ipt = (short *) &src;		i_src = (long) *ipt;		buf.exp = 15;		result = (SINGLE *) ((void *) &ss);	}	if (i_src == 0)	{		*result = (SINGLE) 0L;		return;	}			/* ESTABLISHED THAT src != 0	*/			/* adjust exponent field	*/	if (ss != sizeof(long))		i_src <<= 16;			/* move to mantissa field	*/	buf.m1 = i_src;			/* adjust mantissa field	*/	nrm_ext(&buf);	compact(&buf,result,4);}