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: cff4.c,v 1.7 1994/06/24 13:31:14 ceriel Exp $ */
9 CONVERT DOUBLE TO SINGLE (CFF 8 4)
11 This routine works quite simply. A floating point
12 of size 08 is converted to extended format.
13 This extended variable is converted back to
14 a floating point of size 04.
22 DOUBLE src; /* the source itself - THIS TIME it's DOUBLE */
26 extend(&src.d[0],&buf,sizeof(DOUBLE)); /* no matter what */
27 compact(&buf,&(src.d[1]),sizeof(SINGLE));