/* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands. See the copyright notice in the ACK home directory, in the file "Copyright". */ /* $Header: /cvsup/minix/src/lib/float/adf8.c,v 1.1.1.1 2005/04/21 14:56:10 beng Exp $ */ /* ADD TWO FLOATS - DOUBLE (ADF 8) */ #include "FP_types.h" void adf8(s2,s1) DOUBLE s1,s2; { EXTEND e1,e2; if (s1.d[0] == 0 && s1.d[1] == 0) { s1 = s2; return; } if (s2.d[0] == 0 && s2.d[1] == 0) { return; } extend(&s1.d[0],&e1,sizeof(DOUBLE)); extend(&s2.d[0],&e2,sizeof(DOUBLE)); add_ext(&e1,&e2); compact(&e1,&s1.d[0],sizeof(DOUBLE)); }