mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
50 lines
1.3 KiB
C
50 lines
1.3 KiB
C
/*
|
||
Copyright 1982
|
||
Alcyon Corporation
|
||
8716 Production Ave.
|
||
San Diego, Ca. 92121
|
||
*/
|
||
|
||
/* char *version "@(#)ftol.c 1.2 10/19/83"; */
|
||
|
||
/*
|
||
* Floating Point Float to Long Routine :
|
||
* Front End to IEEE Floating Point Package.
|
||
*
|
||
* long
|
||
* fpftol(fparg)
|
||
* double fparg;
|
||
*
|
||
* Return : Fixed Point representation of Floating Point Number
|
||
*/
|
||
|
||
long
|
||
fpftol(f)
|
||
long f;
|
||
{
|
||
register long l;
|
||
register int exp, sign;
|
||
|
||
exp = (f & 0x7f) - 0x40;
|
||
if (f == 0L || exp < 0) /* underflow or 0 */
|
||
return(0L);
|
||
sign = (f & 0x80);
|
||
if (exp > 31) /* overflow */
|
||
return( (sign) ? 0x80000000 : 0x7fffffff);
|
||
l = (f>>8) & 0xffffff;
|
||
exp -= 24;
|
||
for( ; exp < 0 ; exp++)
|
||
l >>= 1;
|
||
for( ; exp > 0; exp--)
|
||
l <<= 1;
|
||
if (sign)
|
||
l = -l;
|
||
return(l);
|
||
}
|
||
|
||
return(l);
|
||
}
|
||
|
||
return(l);
|
||
}
|
||
|
||
return(l);
|
||
}
|
||
|
||
|