flt_umin.c 300 B

123456789101112131415161718
  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. /* $Id$ */
  6. #include "flt_misc.h"
  7. void
  8. flt_umin(e)
  9. flt_arith *e;
  10. {
  11. /* Unary minus
  12. */
  13. flt_status = 0;
  14. e->flt_sign = ! e->flt_sign;
  15. }