52 lines
1.1 KiB
Text
52 lines
1.1 KiB
Text
/*
|
|
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
|
|
/* $Header$ */
|
|
|
|
/*
|
|
CONVERT FLOAT TO SIGNED (CFI m n)
|
|
|
|
N.B. The caller must know what it is getting.
|
|
A LONG is always returned. If it is an
|
|
integer the high byte is cleared first.
|
|
*/
|
|
|
|
#include "FP_trap.h"
|
|
#include "FP_types.h"
|
|
#include "FP_shift.h"
|
|
|
|
long
|
|
cfi(ds,ss,src)
|
|
int ds; /* destination size (2 or 4) */
|
|
int ss; /* source size (4 or 8) */
|
|
DOUBLE src; /* assume worst case */
|
|
{
|
|
EXTEND buf;
|
|
long new;
|
|
short max_exp;
|
|
|
|
extend(&src.d[0],&buf,ss); /* get extended format */
|
|
if (buf.exp < 0) { /* no conversion needed */
|
|
src.d[ss == 8] = 0L;
|
|
return(0L);
|
|
}
|
|
max_exp = (ds << 3) - 2; /* signed numbers */
|
|
/* have more limited max_exp */
|
|
if (buf.exp > max_exp) {
|
|
if (buf.exp == max_exp+1 && buf.sign && buf.m1 == NORMBIT &&
|
|
buf.m2 == 0L) {
|
|
}
|
|
else {
|
|
trap(EIOVFL); /* integer overflow */
|
|
buf.exp %= max_exp; /* truncate */
|
|
}
|
|
}
|
|
new = buf.m1 >> (31-buf.exp);
|
|
if (buf.sign)
|
|
new = -new;
|
|
done:
|
|
src.d[ss == 8] = new;
|
|
return(new);
|
|
}
|