21 lines
277 B
C
21 lines
277 B
C
|
/*
|
||
|
|
ZERO and return EXTEND FORMAT FLOAT
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "FP_types.h"
|
||
|
|
|
||
|
|
zrf_ext(e)
|
||
|
|
EXTEND *e;
|
||
|
|
{
|
||
|
|
register short *ipt;
|
||
|
|
register short i;
|
||
|
|
register short zero = 0;
|
||
|
|
|
||
|
|
/* local CAST conversion */
|
||
|
|
ipt = (short *) e;
|
||
|
|
|
||
|
|
i = sizeof(EXTEND)/sizeof(short);
|
||
|
|
while (i--)
|
||
|
|
*ipt++ = zero;
|
||
|
|
}
|