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: sbf4.c,v 1.10 1994/06/24 13:32:37 ceriel Exp $ */
9 SUBTRACT TWO FLOATS - SINGLE Precision (SBF 4)
20 if (s2 == (SINGLE) 0) {
23 extend(&s1,&e1,sizeof(SINGLE));
24 extend(&s2,&e2,sizeof(SINGLE));
26 compact(&e1,&s1,sizeof(SINGLE));