godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

many changes, to use IEEE format

Browse Source
This commit is contained in:
ceriel
1989-07-25 14:21:09 +00:00
parent c7be2d1a44
commit f7360f0fec
32 changed files with 223 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
mach/proto/fp/fef4.c
View File

@@ -16,14 +16,17 @@ struct fef4_returns {
_float f;
};
fef4(s1)
fef4(r,s1)
_float s1;
struct fef4_returns *r;
{
struct fef4_returns *r = (struct fef4_returns *) &s1;
EXTEND buf;
register struct fef4_returns *p = r; /* make copy; r might refer
to itself (see table)
*/
extend((_double *) &s1,&buf,sizeof(_float));
r->e = buf.exp-1;
buf.exp = 1;
compact(&buf,(_double *) &r->f,sizeof(_float));
p->e = buf.exp+1;
buf.exp = -1;
compact(&buf,(_double *) &p->f,sizeof(_float));
}