28 lines
688 B
C
28 lines
688 B
C
/*
|
|
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
|
|
/* $Header$ */
|
|
|
|
/*
|
|
SUBTRACT 2 EXTENDED FORMAT NUMBERS
|
|
*/
|
|
/*
|
|
* adf (addition routines) use this rather than
|
|
* add_ext when the signs of the numbers are different.
|
|
* sub_ext requires that e1 >= e2 on entry
|
|
* otherwise nonsense results. If you use this routine
|
|
* make certain this requirement is met.
|
|
*/
|
|
|
|
#include "FP_types.h"
|
|
sub_ext(e1,e2)
|
|
EXTEND *e1,*e2;
|
|
{
|
|
if (e2->m2 > e1->m2)
|
|
e1->m1 -= 1; /* carry in */
|
|
e1->m1 -= e2->m1;
|
|
e1->m2 -= e2->m2;
|
|
nrm_ext(e1);
|
|
}
|