lib/float/cff4.c

   1 /*
   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".
   4 */
   5
   6 /* $Header$ */
   7
   8 /*
   9                 CONVERT DOUBLE TO SINGLE (CFF 8 4)
  10
  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.
  15
  16 */
  17
  18 #include        "FP_types.h"
  19
  20 void
  21 cff4(src)
  22 DOUBLE  src;    /* the source itself -  THIS TIME it's DOUBLE */
  23 {
  24         EXTEND  buf;
  25
  26         extend(&src.d[0],&buf,sizeof(DOUBLE));  /* no matter what */
  27         compact(&buf,&(src.d[1]),sizeof(SINGLE));
  28 }