Initial revision

1988-04-07 10:57:49 +00:00
parent cb4e02f02e
commit 8a96f95c59
50 changed files with 2504 additions and 0 deletions
--- a/mach/proto/fp/fef4.c
+++ b/mach/proto/fp/fef4.c
@@ -0,0 +1,22 @@
+/*
+	SEPERATE INTO EXPONENT AND FRACTION
+*/
+
+#include	"FP_types.h"
+
+struct	fef4_returns {
+	short	e;
+	_float	f;
+};
+
+fef4(s1)
+_float	s1;
+{
+	struct	fef4_returns	*r = (struct fef4_returns *) &s1;
+	EXTEND	buf;
+
+	extend((_double *) &s1,&buf,sizeof(_float));
+	r->e = buf.exp-1;
+	buf.exp = 1;
+	compact(&buf,(_double *) &r->f,sizeof(_float));
+}