d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

corrected

Browse source
This commit is contained in:
ceriel 1988-06-03 14:25:26 +00:00
parent 8036ca8aec
commit cd893a6ff8
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mach/proto/fp/cuf4.c
View file

@ -16,6 +16,7 @@
#include "FP_types.h"
_float
cuf4(ss,src)
int ss; /* source size */
long src; /* largest possible integer to convert */
@ -41,7 +42,8 @@ long src; /* largest possible integer to convert */
fprintf(stderr,"CUF4(ds(%d),ss(%d),src(%D))\n\n",4,ss,i_src);
#endif
if (i_src == 0) {
src = 0L;
*result = (_float) 0L;
return (_float) 0L;
}
/* ESTABLISHED THAT src != 0 */
@ -58,4 +60,5 @@ long src; /* largest possible integer to convert */
fprintf(stderr,"CUF() buf.exp after nrm_ext() == %d\n\n",buf.exp);
#endif
compact(&buf,(_double *) result,4);
return *result;
}