ack/modules/src/flt_arith/flt_ar2flt.c

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

/* $Header$ */

#include "flt_misc.h"
#include <em_arith.h>

flt_arith2flt(n, e, uns)
	register arith n;
	register flt_arith *e;
{
	/*	Convert the arith "n" to a flt_arith "e".
	*/
	register int i;

	if (!uns && n < 0) {
		e->flt_sign = 1;
		n = -n;
	}
	else	e->flt_sign = 0;
	e->m1 = e->m2 = 0;
	if (n == 0) {
		e->flt_exp = 0;
		return;
	}
	e->flt_exp = 63;
		
	for (i = 64; i > 0 && n != 0; i--) {
		flt_b64_sft(&(e->flt_mantissa),1);
		e->m1 |= (n & 1) << 31;
		n = (n >> 1) & ~(0x80L << 8*(sizeof(arith)-1));
	}

	if (i > 0) {
		flt_b64_sft(&(e->flt_mantissa), i);
	}
	flt_status = 0;
	flt_nrm(e);
}