123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- /*
- (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /* $Id$ */
- /*
- CONVERT INTEGER TO SINGLE (CUF n 4)
- THIS ROUTINE WORKS BY FILLING AN EXTENDED
- WITH THE INTEGER VALUE IN EXTENDED FORMAT
- AND USES COMPACT() TO PUT IT INTO THE PROPER
- FLOATING POINT PRECISION.
- */
- #include "FP_types.h"
- void
- cuf4(ss,src)
- int ss; /* source size */
- long src; /* largest possible integer to convert */
- {
- EXTEND buf;
- short *ipt;
- SINGLE *result;
- long i_src;
- zrf_ext(&buf);
- if (ss == sizeof(long)) {
- buf.exp = 31;
- i_src = src;
- result = (SINGLE *) &src;
- }
- else {
- ipt = (short *) &src;
- i_src = (long) *ipt;
- buf.exp = 15;
- result = (SINGLE *) ((void *) &ss);
- }
- if (i_src == 0) {
- *result = (SINGLE) 0L;
- return;
- }
- /* ESTABLISHED THAT src != 0 */
- /* adjust exponent field */
- if (ss != sizeof(long))
- i_src <<= 16;
- /* move to mantissa field */
- buf.m1 = i_src;
- /* adjust mantissa field */
- nrm_ext(&buf);
- compact(&buf,result,4);
- }
|