lib/float/ngf4.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                 NEGATE A FLOATING POINT (NGF 4)
  10 */
  11 /********************************************************/
  12
  13 #include "FP_types.h"
  14 #include "get_put.h"
  15
  16 #define OFF ((FL_MSW_AT_LOW_ADDRESS ? 0 : 2) + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
  17 void
  18 ngf4(f)
  19 SINGLE  f;
  20 {
  21         unsigned char *p;
  22
  23         if (f != (SINGLE) 0) {
  24                 p = (unsigned char *) &f + OFF;
  25                 *p ^= 0x80;
  26         }
  27 }