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".
	*/

	if (!uns && n < 0) {
		e->flt_sign = 1;
		n = -n;
	}
	else	e->flt_sign = 0;
	if (sizeof(arith) == 4) {
		if (n < 0) {
			e->m1 = 1; e->m2 = 0;
		}
		else {
			e->m1 = 0; e->m2 = n;
		}
	}
	else {
		if (n < 0) {
			e->m2 = 0;
			e->m1 = (1 << (sizeof(arith)*8-32));
		}
		else {
			e->m2 = n & 0xffffffffL;
			e->m1 = (n >> 32);
		}
	}
	if (n == 0) {
		e->flt_exp = 0;
		return;
	}
	e->flt_exp = 63;
		
	flt_status = 0;
	flt_nrm(e);
}