2 (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
3 See the copyright notice in the ACK home directory, in the file "Copyright".
6 /* $Id: flt_ar2flt.c,v 1.14 1994/06/24 11:15:37 ceriel Exp $ */
12 flt_arith2flt(n, e, uns)
14 register flt_arith *e;
16 /* Convert the arith "n" to a flt_arith "e".
24 if (sizeof(arith) == 4) {
28 e->m2 = n & 0xffffffffL;
30 n &= ~((arith) 1 << (8*sizeof(arith)-1));