Index: trunk/minix/lib/ack/float/FP.compile
===================================================================
--- trunk/minix/lib/ack/float/FP.compile	(revision 9)
+++ 	(revision )
@@ -1,22 +1,0 @@
-#!/bin/sh
-#							Author: Kees J. Bot
-# Compile one soft FP source file.
-# (These files shouldn't be optimized normally, but the 16-bit C compiler
-# only optimizes scratch register allocation a bit with -O.  To the 32-bit
-# compiler -O is a no-op.)
-
-case $#:$2 in
-2:*.fc)	;;
-*)	echo "$0: $1: not a FC file" >&2; exit 1
-esac
-
-dst=$1
-src=$2
-base="`basename "$src" .fc`"
-trap 'rm -f tmp.c tmp.s"; exit 1' 2
-
-cp "$src" tmp.c &&
-cc -O -I. -D_MINIX -D_POSIX_SOURCE -S tmp.c &&
-sed -f FP.script tmp.s > "$base.s" &&
-cc -c -o $dst "$base.s" &&
-rm tmp.c tmp.s
Index: trunk/minix/lib/ack/float/FP.script
===================================================================
--- trunk/minix/lib/ack/float/FP.script	(revision 9)
+++ 	(revision )
@@ -1,39 +1,0 @@
-s/_adf4/.adf4/
-s/_adf8/.adf8/
-s/_cff4/.cff4/
-s/_cff8/.cff8/
-s/_cfi/.cfi/
-s/_cfu/.cfu/
-s/_cif4/.cif4/
-s/_cif8/.cif8/
-s/_cmf4/.cmf4/
-s/_cmf8/.cmf8/
-s/_cuf4/.cuf4/
-s/_cuf8/.cuf8/
-s/_dvf4/.dvf4/
-s/_dvf8/.dvf8/
-s/_fef4/.fef4/
-s/_fef8/.fef8/
-s/_fif4/.fif4/
-s/_fif8/.fif8/
-s/_mlf4/.mlf4/
-s/_mlf8/.mlf8/
-s/_ngf4/.ngf4/
-s/_ngf8/.ngf8/
-s/_sbf4/.sbf4/
-s/_sbf8/.sbf8/
-s/_zrf4/.zrf4/
-s/_zrf8/.zrf8/
-s/_add_ext/.add_ext/
-s/_div_ext/.div_ext/
-s/_mul_ext/.mul_ext/
-s/_nrm_ext/.nrm_ext/
-s/_sft_ext/.sft_ext/
-s/_sub_ext/.sub_ext/
-s/_zrf_ext/.zrf_ext/
-s/_compact/.compact/
-s/_extend/.extend/
-s/_b64_add/.b64_add/
-s/_b64_sft/.b64_sft/
-s/_b64_rsft/.b64_rsft/
-s/_b64_lsft/.b64_lsft/
Index: trunk/minix/lib/ack/float/FP_bias.h
===================================================================
--- trunk/minix/lib/ack/float/FP_bias.h	(revision 9)
+++ 	(revision )
@@ -1,28 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/FP_bias.h,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	include file for floating point package
-*/
-
-		/*	FLOAT FORMAT EXPONENT BIAS	*/
-
-#define	SGL_BIAS	 127	/* excess  128 notation used	*/
-#define	DBL_BIAS	1023	/* excess 1024 notation used	*/
-#define	EXT_BIAS	   0	/* 2s-complement notation used	*/
-				/* this is possible because the	*/
-				/* sign is in a seperate word	*/
-		
-		/*	VARIOUS MAX AND MIN VALUES	*/
-		/*	1) FOR THE DIFFERENT FORMATS	*/
-
-#define	SGL_MAX		   254	/*	standard definition	*/
-#define	SGL_MIN		     1	/*	standard definition	*/
-#define	DBL_MAX		  2046	/*	standard definition	*/
-#define	DBL_MIN		     1	/*	standard definition	*/
-#define EXT_MAX		 16383	/*	standard minimum	*/
-#define EXT_MIN		-16382	/*	standard minimum	*/
Index: trunk/minix/lib/ack/float/FP_shift.h
===================================================================
--- trunk/minix/lib/ack/float/FP_shift.h	(revision 9)
+++ 	(revision )
@@ -1,49 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/FP_shift.h,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	include file for floating point package
-*/
-
-# define	CARRYBIT	0x80000000L
-# define	NORMBIT		0x80000000L
-# define	EXP_STORE	16
-
-
-				/* parameters for Single Precision */
-#define SGL_EXPSHIFT	7
-#define SGL_M1LEFT	8
-#define SGL_ZERO	0xffffff80L
-#define SGL_EXACT	0xff
-#define SGL_RUNPACK	SGL_M1LEFT
-
-#define SGL_ROUNDUP	0x80
-#define	SGL_CARRYOUT	0x01000000L
-#define	SGL_MASK	0x007fffffL
-
-				/* parameters for Double Precision */
-				/* used in extend.c */
-
-#define DBL_EXPSHIFT	4
-
-#define DBL_M1LEFT	11
-
-#define	DBL_RPACK	(32-DBL_M1LEFT)
-#define	DBL_LPACK	DBL_M1LEFT
-
-				/* used in compact.c */
-
-#define DBL_ZERO	0xfffffd00L
-
-#define DBL_EXACT	0x7ff
-
-#define DBL_RUNPACK	DBL_M1LEFT
-#define DBL_LUNPACK	(32-DBL_RUNPACK)
-
-#define DBL_ROUNDUP	0x400
-#define	DBL_CARRYOUT	0x00200000L
-#define	DBL_MASK	0x000fffffL
Index: trunk/minix/lib/ack/float/FP_trap.h
===================================================================
--- trunk/minix/lib/ack/float/FP_trap.h	(revision 9)
+++ 	(revision )
@@ -1,22 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/FP_trap.h,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	include file for floating point package
-*/
-
-			/*	EM TRAPS	*/
-
-#define	EIOVFL	3	/* Integer  Overflow		*/
-#define	EFOVFL	4	/* Floating Overflow		*/
-#define	EFUNFL	5	/* Floating Underflow		*/
-#define	EIDIVZ	6	/* Integer  Divide by 0		*/
-#define	EFDIVZ	7	/* Floating Divide by 0.0	*/
-#define	EIUND	8	/* Integer  Undefined Number	*/
-#define	EFUND	9	/* Floating Undefined Number	*/
-#define	ECONV	10	/* Conversion Error		*/
-# define trap(x) _fptrp(x)
Index: trunk/minix/lib/ack/float/FP_types.h
===================================================================
--- trunk/minix/lib/ack/float/FP_types.h	(revision 9)
+++ 	(revision )
@@ -1,113 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/FP_types.h,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/********************************************************/
-/*
-	Type definitions for C Floating Point Package
-	include file for floating point package
-*/
-/********************************************************/
-/*
-	THESE STRUCTURES ARE USED TO ADDRESS THE INDIVIDUAL
-	PARTS OF THE FLOATING POINT NUMBER REPRESENTATIONS.
-
-	THREE STRUCTURES ARE DEFINED:
-		SINGLE:	single precision floating format
-		DOUBLE:	double precision floating format
-		EXTEND:	double precision extended format
-*/
-/********************************************************/
-
-#ifndef __FPTYPES
-#define __FPTYPES
-
-typedef	struct	{
-	unsigned long	h_32;	/* higher 32 bits of 64 */
-	unsigned long	l_32;	/* lower  32 bits of 64 */
-}	B64;
-
-typedef	unsigned long	SINGLE;
-
-typedef	struct	{
-	unsigned long	d[2];
-}	DOUBLE;
-
-typedef	struct	{	/* expanded float format	*/
-	short	sign;
-	short	exp;
-	B64	mantissa;
-#define m1 mantissa.h_32
-#define m2 mantissa.l_32
-} EXTEND;
-
-struct	fef4_returns {
-	int	e;
-	SINGLE	f;
-};
-
-struct	fef8_returns {
-	int	e;
-	DOUBLE	f;
-};
-
-struct fif4_returns {
-	SINGLE ipart;
-	SINGLE fpart;
-};
-
-struct fif8_returns {
-	DOUBLE ipart;
-	DOUBLE fpart;
-};
-
-#if __STDC__
-#define _PROTOTYPE(function, params)	function params
-#else
-#define _PROTOTYPE(function, params)	function()
-#endif
-_PROTOTYPE( void add_ext, (EXTEND *e1, EXTEND *e2));
-_PROTOTYPE( void mul_ext, (EXTEND *e1, EXTEND *e2));
-_PROTOTYPE( void div_ext, (EXTEND *e1, EXTEND *e2));
-_PROTOTYPE( void sub_ext, (EXTEND *e1, EXTEND *e2));
-_PROTOTYPE( void sft_ext, (EXTEND *e1, EXTEND *e2));
-_PROTOTYPE( void nrm_ext, (EXTEND *e1));
-_PROTOTYPE( void zrf_ext, (EXTEND *e1));
-_PROTOTYPE( void extend, (unsigned long *from, EXTEND *to, int size));
-_PROTOTYPE( void compact, (EXTEND *from, unsigned long *to, int size));
-_PROTOTYPE( void _fptrp, (int));
-_PROTOTYPE( void adf4, (SINGLE s2, SINGLE s1));
-_PROTOTYPE( void adf8, (DOUBLE s2, DOUBLE s1));
-_PROTOTYPE( void sbf4, (SINGLE s2, SINGLE s1));
-_PROTOTYPE( void sbf8, (DOUBLE s2, DOUBLE s1));
-_PROTOTYPE( void dvf4, (SINGLE s2, SINGLE s1));
-_PROTOTYPE( void dvf8, (DOUBLE s2, DOUBLE s1));
-_PROTOTYPE( void mlf4, (SINGLE s2, SINGLE s1));
-_PROTOTYPE( void mlf8, (DOUBLE s2, DOUBLE s1));
-_PROTOTYPE( void ngf4, (SINGLE f));
-_PROTOTYPE( void ngf8, (DOUBLE f));
-_PROTOTYPE( void zrf4, (SINGLE *l));
-_PROTOTYPE( void zrf8, (DOUBLE *z));
-_PROTOTYPE( void cff4, (DOUBLE src));
-_PROTOTYPE( void cff8, (SINGLE src));
-_PROTOTYPE( void cif4, (int ss, long src));
-_PROTOTYPE( void cif8, (int ss, long src));
-_PROTOTYPE( void cuf4, (int ss, long src));
-_PROTOTYPE( void cuf8, (int ss, long src));
-_PROTOTYPE( long cfu, (int ds, int ss, DOUBLE src));
-_PROTOTYPE( long cfi, (int ds, int ss, DOUBLE src));
-_PROTOTYPE( int cmf4, (SINGLE s2, SINGLE s1));
-_PROTOTYPE( int cmf8, (DOUBLE d1, DOUBLE d2));
-_PROTOTYPE( void fef4, (struct fef4_returns *r, SINGLE s1));
-_PROTOTYPE( void fef8, (struct fef8_returns *r, DOUBLE s1));
-_PROTOTYPE( void fif4, (struct fif4_returns *p, SINGLE x, SINGLE y));
-_PROTOTYPE( void fif8, (struct fif8_returns *p, DOUBLE x, DOUBLE y));
-
-_PROTOTYPE( void b64_sft, (B64 *, int));
-_PROTOTYPE( void b64_lsft, (B64 *));
-_PROTOTYPE( void b64_rsft, (B64 *));
-_PROTOTYPE( int b64_add, (B64 *, B64 *));
-#endif
Index: trunk/minix/lib/ack/float/Makedepend-ack
===================================================================
--- trunk/minix/lib/ack/float/Makedepend-ack	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-depend-ack:
-	rm .depend-ack
-	touch .depend-ack
-	mkdep 'cc -E' add_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' adder.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' adf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' adf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cff4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cff8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cfi.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cfu.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cif4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cif8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cmf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cmf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' compact.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cuf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' cuf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' div_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' dvf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' dvf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' extend.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' fef4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' fef8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' fif4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' fif8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc  -E' fptrp.s | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' mlf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' mlf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' mul_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' ngf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' ngf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' nrm_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' sbf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' sbf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' sft_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' shifter.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' sub_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' zrf4.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' zrf8.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
-	mkdep 'cc -E' zrf_ext.fc | sed -e 's:^\(.\):../../obj-ack//./ack/float/\1:' >> .depend-ack
Index: trunk/minix/lib/ack/float/Makedepend-gnu
===================================================================
--- trunk/minix/lib/ack/float/Makedepend-gnu	(revision 9)
+++ 	(revision )
@@ -1,3 +1,0 @@
-depend-gnu:
-	rm .depend-gnu
-	touch .depend-gnu
Index: trunk/minix/lib/ack/float/Makefile
===================================================================
--- trunk/minix/lib/ack/float/Makefile	(revision 9)
+++ 	(revision )
@@ -1,151 +1,0 @@
-#Generated from ./ack/float/Makefile.in
-all: all-ack
-
-all-ack:
-all-gnu:
-
-makefiles: Makefile
-Makedepend-ack Makedepend-gnu: 
-	sh ../../generate.sh ./ack/float ../../obj-ack/ ../../obj-gnu
-
-Makefile: Makefile.in Makedepend-ack Makedepend-gnu
-	sh ../../generate.sh ./ack/float ../../obj-ack/ ../../obj-gnu
-	@echo
-	@echo *Attention*
-	@echo Makefile is regenerated... rerun command to see changes
-	@echo *Attention*
-	@echo
-
-depend: depend-ack
-all-ack: ../../obj-ack//libfp.a
-
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(add_ext.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(adder.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(adf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(adf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cff4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cff8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cfi.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cfu.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cif4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cif8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cmf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cmf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(compact.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cuf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(cuf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(div_ext.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(dvf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(dvf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(extend.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(fef4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(fef8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(fif4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(fif8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(fptrp.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(mlf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(mlf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(mul_ext.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(ngf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(ngf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(nrm_ext.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(sbf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(sbf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(sft_ext.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(shifter.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(sub_ext.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(zrf4.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(zrf8.o)
-../../obj-ack//libfp.a: ../../obj-ack//libfp.a(zrf_ext.o)
-
-../../obj-ack//libfp.a:
-	ar cr ../../obj-ack//libfp.a ../../obj-ack//./ack/float/*.o
-	rm ../../obj-ack//./ack/float/*.o
-
-../../obj-ack//libfp.a(add_ext.o): add_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/add_ext.o add_ext.fc
-../../obj-ack//libfp.a(adder.o): adder.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/adder.o adder.fc
-../../obj-ack//libfp.a(adf4.o): adf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/adf4.o adf4.fc
-../../obj-ack//libfp.a(adf8.o): adf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/adf8.o adf8.fc
-../../obj-ack//libfp.a(cff4.o): cff4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cff4.o cff4.fc
-../../obj-ack//libfp.a(cff8.o): cff8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cff8.o cff8.fc
-../../obj-ack//libfp.a(cfi.o): cfi.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cfi.o cfi.fc
-../../obj-ack//libfp.a(cfu.o): cfu.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cfu.o cfu.fc
-../../obj-ack//libfp.a(cif4.o): cif4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cif4.o cif4.fc
-../../obj-ack//libfp.a(cif8.o): cif8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cif8.o cif8.fc
-../../obj-ack//libfp.a(cmf4.o): cmf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cmf4.o cmf4.fc
-../../obj-ack//libfp.a(cmf8.o): cmf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cmf8.o cmf8.fc
-../../obj-ack//libfp.a(compact.o): compact.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/compact.o compact.fc
-../../obj-ack//libfp.a(cuf4.o): cuf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cuf4.o cuf4.fc
-../../obj-ack//libfp.a(cuf8.o): cuf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/cuf8.o cuf8.fc
-../../obj-ack//libfp.a(div_ext.o): div_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/div_ext.o div_ext.fc
-../../obj-ack//libfp.a(dvf4.o): dvf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/dvf4.o dvf4.fc
-../../obj-ack//libfp.a(dvf8.o): dvf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/dvf8.o dvf8.fc
-../../obj-ack//libfp.a(extend.o): extend.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/extend.o extend.fc
-../../obj-ack//libfp.a(fef4.o): fef4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/fef4.o fef4.fc
-../../obj-ack//libfp.a(fef8.o): fef8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/fef8.o fef8.fc
-../../obj-ack//libfp.a(fif4.o): fif4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/fif4.o fif4.fc
-../../obj-ack//libfp.a(fif8.o): fif8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/fif8.o fif8.fc
-../../obj-ack//libfp.a(fptrp.o): fptrp.s
-	cc  -c -o ../../obj-ack//./ack/float/fptrp.o fptrp.s
-../../obj-ack//libfp.a(mlf4.o): mlf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/mlf4.o mlf4.fc
-../../obj-ack//libfp.a(mlf8.o): mlf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/mlf8.o mlf8.fc
-../../obj-ack//libfp.a(mul_ext.o): mul_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/mul_ext.o mul_ext.fc
-../../obj-ack//libfp.a(ngf4.o): ngf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/ngf4.o ngf4.fc
-../../obj-ack//libfp.a(ngf8.o): ngf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/ngf8.o ngf8.fc
-../../obj-ack//libfp.a(nrm_ext.o): nrm_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/nrm_ext.o nrm_ext.fc
-../../obj-ack//libfp.a(sbf4.o): sbf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/sbf4.o sbf4.fc
-../../obj-ack//libfp.a(sbf8.o): sbf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/sbf8.o sbf8.fc
-../../obj-ack//libfp.a(sft_ext.o): sft_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/sft_ext.o sft_ext.fc
-../../obj-ack//libfp.a(shifter.o): shifter.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/shifter.o shifter.fc
-../../obj-ack//libfp.a(sub_ext.o): sub_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/sub_ext.o sub_ext.fc
-../../obj-ack//libfp.a(zrf4.o): zrf4.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/zrf4.o zrf4.fc
-../../obj-ack//libfp.a(zrf8.o): zrf8.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/zrf8.o zrf8.fc
-../../obj-ack//libfp.a(zrf_ext.o): zrf_ext.fc
-	sh ./FP.compile ../../obj-ack//./ack/float/zrf_ext.o zrf_ext.fc
-
-
-
-clean::
-	rm -f ../../obj-ack//./ack/float/*
-
-include Makedepend-ack
-include .depend-ack
-
-include Makedepend-gnu
-include .depend-gnu
Index: trunk/minix/lib/ack/float/Makefile.in
===================================================================
--- trunk/minix/lib/ack/float/Makefile.in	(revision 9)
+++ 	(revision )
@@ -1,61 +1,0 @@
-# Makefile for lib/float.
-
-#CC1	= /bin/sh ./FP.compile
-
-LIBRARIES=libfp
-
-libfp_FILES=" \
-	add_ext.fc \
-	adder.fc \
-	adf4.fc \
-	adf8.fc \
-	cff4.fc \
-	cff8.fc \
-	cfi.fc \
-	cfu.fc \
-	cif4.fc \
-	cif8.fc \
-	cmf4.fc \
-	cmf8.fc \
-	compact.fc \
-	cuf4.fc \
-	cuf8.fc \
-	div_ext.fc \
-	dvf4.fc \
-	dvf8.fc \
-	extend.fc \
-	fef4.fc \
-	fef8.fc \
-	fif4.fc \
-	fif8.fc \
-	fptrp.s \
-	mlf4.fc \
-	mlf8.fc \
-	mul_ext.fc \
-	ngf4.fc \
-	ngf8.fc \
-	nrm_ext.fc \
-	sbf4.fc \
-	sbf8.fc \
-	sft_ext.fc \
-	shifter.fc \
-	sub_ext.fc \
-	zrf4.fc \
-	zrf8.fc \
-	zrf_ext.fc"
-
-TYPE=ack
-
-#extra commands to convert the c files to the correct assembler files
-
-#%.s: %.fc
-#	/bin/sh ./FP.compile $<
-
-#1. make a assembler file of the c file
-#%.fs: %.fc
-#	-cp $< $(<:.fc=.c) && cc -O -I. -D_MINIX -D_POSIX_SOURCE -S $(<:.fc=.c) && cp $(<:.fc=.s) $(<:.fc=.fs)
-#	@rm $(<:.fc=.c) $(<:.fc=.s)
-
-#2. modify the assembler file
-#%.s: %.fs
-#	sed -f FP.script $< > $@
Index: trunk/minix/lib/ack/float/add_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/add_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,56 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/add_ext.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	ADD TWO EXTENDED FORMAT NUMBERS
-*/
-
-#include "FP_types.h"
-
-void
-add_ext(e1,e2)
-register EXTEND	*e1,*e2;
-{
-	if ((e2->m1 | e2->m2) == 0L) {
-		return;
-	}
-	if ((e1->m1 | e1->m2) == 0L) {
-		*e1 = *e2;
-		return;
-	}
-	sft_ext(e1, e2);	/* adjust mantissas to equal powers */
-	if (e1->sign != e2->sign) {
-		/* e1 + e2 = e1 - (-e2) */
-		if (e2->m1 > e1->m1 ||
-                    (e2->m1 == e1->m1 && e2->m2 > e1->m2)) {
-                	/*      abs(e2) > abs(e1) */
-			EXTEND x;
-
-			x = *e1;
-			*e1 = *e2;
-                	if (x.m2 > e1->m2) {
-                        	e1->m1 -= 1;    /* carry in */
-                	}
-                	e1->m1 -= x.m1;
-                	e1->m2 -= x.m2;
-        	}
-        	else {
-                	if (e2->m2 > e1->m2)
-                        	e1->m1 -= 1;    /* carry in */
-                	e1->m1 -= e2->m1;
-                	e1->m2 -= e2->m2;
-        	}
-	}
-	else {
-		if (b64_add(&e1->mantissa,&e2->mantissa)) {	/* addition carry */
-			b64_rsft(&e1->mantissa);	/* shift mantissa one bit RIGHT */
-			e1->m1 |= 0x80000000L;	/* set max bit	*/
-			e1->exp++;		/* increase the exponent */
-		}
-	}
-	nrm_ext(e1);
-}
Index: trunk/minix/lib/ack/float/add_ext.s
===================================================================
--- trunk/minix/lib/ack/float/add_ext.s	(revision 9)
+++ 	(revision )
@@ -1,107 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .add_ext
-.sect .text
-.add_ext:
-push ebp
-mov ebp,esp
-sub	esp,12
-push esi
-push edi
-mov esi,8(ebp)
-mov edi,12(ebp)
-mov edx,8(edi)
-or edx,4(edi)
-je I1_1
-mov edx,8(esi)
-or edx,4(esi)
-jne I1_7
-push edi
-push esi
-mov ecx,3
-call .blm
-jmp I1_1
-I1_7:
-push edi
-push esi
-call .sft_ext
-pop ecx
-pop ecx
-movsx eax,(esi)
-movsx ebx,(edi)
-cmp eax,ebx
-je I1_10
-mov edx,4(esi)
-cmp 4(edi),edx
-ja I1_12
-cmp 4(edi),edx
-jne I1_13
-mov edx,8(esi)
-cmp 8(edi),edx
-jbe I1_13
-I1_12:
-push esi
-lea eax,-12(ebp)
-push eax
-mov ecx,3
-call .blm
-push edi
-push esi
-mov ecx,3
-call .blm
-mov edx,-4(ebp)
-cmp 8(esi),edx
-jae I1_18
-mov edx,4(esi)
-sub edx,1
-mov 4(esi),edx
-I1_18:
-mov edx,4(esi)
-sub edx,-8(ebp)
-mov 4(esi),edx
-mov edx,8(esi)
-sub edx,-4(ebp)
-mov 8(esi),edx
-jmp I1_11
-I1_13:
-mov edx,8(esi)
-cmp 8(edi),edx
-jbe I1_21
-mov edx,4(esi)
-sub edx,1
-mov 4(esi),edx
-I1_21:
-mov edx,4(esi)
-sub edx,4(edi)
-mov 4(esi),edx
-mov edx,8(esi)
-sub edx,8(edi)
-mov 8(esi),edx
-jmp I1_11
-I1_10:
-lea eax,4(edi)
-push eax
-lea eax,4(esi)
-push eax
-call .b64_add
-pop ecx
-pop ecx
-test eax,eax
-je I1_11
-lea eax,4(esi)
-push eax
-call .b64_rsft
-pop ecx
-or 4(esi),-2147483648
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_11:
-push esi
-call .nrm_ext
-pop ecx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/adder.fc
===================================================================
--- trunk/minix/lib/ack/float/adder.fc	(revision 9)
+++ 	(revision )
@@ -1,50 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/adder.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
- *	these are the routines the routines to do 32 and  64-bit addition
- */
-
-# ifdef	EXT_DEBUG
-# include <stdio.h>
-# endif
-
-# include "FP_types.h"
-# define	UNKNOWN -1
-# define	TRUE	 1
-# define	FALSE	 0
-# define	MAXBIT	0x80000000L
-
-	/*
-	 *	add 64 bits
-	 */
-int
-b64_add(e1,e2)
-		/*
-		 * pointers to 64 bit 'registers'
-		 */
-register	B64	*e1,*e2;
-{
-		register	int	overflow;
-				int	carry;
-
-			/* add higher pair of 32 bits */
-	overflow = ((unsigned long) 0xFFFFFFFF - e1->h_32 < e2->h_32);
-	e1->h_32 += e2->h_32;
-
-			/* add lower pair of 32 bits */
-	carry = ((unsigned long) 0xFFFFFFFF - e1->l_32 < e2->l_32);
-	e1->l_32 += e2->l_32;
-# ifdef	EXT_DEBUG
-	printf("\t\t\t\t\tb64_add: overflow (%d); internal carry(%d)\n",
-					overflow,carry);
-	fflush(stdout);
-# endif
-	if ((carry) && (++e1->h_32 == 0))
-		return(TRUE);		/* had a 64 bit overflow */
-	return(overflow);		/* return status from higher add */
-}
Index: trunk/minix/lib/ack/float/adder.h
===================================================================
--- trunk/minix/lib/ack/float/adder.h	(revision 9)
+++ 	(revision )
@@ -1,15 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/adder.h,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
- *	include file for 32 & 64 bit addition
- */
-
-typedef	struct	B64 {
-	unsigned long	h_32;	/* higher 32 bits of 64 */
-	unsigned long	l_32;	/* lower  32 bits of 64 */
-}	B64;
Index: trunk/minix/lib/ack/float/adder.s
===================================================================
--- trunk/minix/lib/ack/float/adder.s	(revision 9)
+++ 	(revision )
@@ -1,46 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .b64_add
-.sect .text
-.b64_add:
-push ebp
-mov ebp,esp
-sub	esp,8
-push esi
-push edi
-mov esi,8(ebp)
-mov edi,12(ebp)
-mov edx,-1
-sub edx,(esi)
-xor eax,eax
-cmp (edi),edx
-jbe 1f
-inc eax
-1:
-mov -4(ebp),eax
-mov edx,(edi)
-add (esi),edx
-mov edx,-1
-sub edx,4(esi)
-xor eax,eax
-cmp 4(edi),edx
-jbe 1f
-inc eax
-1:
-mov -8(ebp),eax
-mov edx,4(edi)
-add 4(esi),edx
-cmp -8(ebp),0
-je I1_4
-mov edx,(esi)
-inc edx
-mov (esi),edx
-jne I1_4
-mov eax,1
-jmp I1_1
-I1_4:
-mov eax,-4(ebp)
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/adf4.fc
===================================================================
--- trunk/minix/lib/ack/float/adf4.fc	(revision 9)
+++ 	(revision )
@@ -1,32 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/adf4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	ADD TWO FLOATS - SINGLE (ADF 4)
-*/
-
-#include	"FP_types.h"
-
-void
-adf4(s2,s1)
-SINGLE	s1,s2;
-{
-	EXTEND	e1,e2;
-	int	swap = 0;
-
-	if (s1 == (SINGLE) 0) {
-		s1 = s2;
-		return;
-	}
-	if (s2 == (SINGLE) 0) {
-		return;
-	}
-	extend(&s1,&e1,sizeof(SINGLE));
-	extend(&s2,&e2,sizeof(SINGLE));
-	add_ext(&e1,&e2);
-	compact(&e1,&s1,sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/adf4.s
===================================================================
--- trunk/minix/lib/ack/float/adf4.s	(revision 9)
+++ 	(revision )
@@ -1,47 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .adf4
-.sect .text
-.adf4:
-push ebp
-mov ebp,esp
-sub	esp,28
-mov -28(ebp),0
-cmp 12(ebp),0
-jne I1_4
-mov edx,8(ebp)
-mov 12(ebp),edx
-jmp I1_1
-I1_4:
-cmp 8(ebp),0
-je I1_1
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-push 4
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .add_ext
-pop ecx
-pop ecx
-push 4
-lea eax,12(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-leave
-ret
Index: trunk/minix/lib/ack/float/adf8.fc
===================================================================
--- trunk/minix/lib/ack/float/adf8.fc	(revision 9)
+++ 	(revision )
@@ -1,32 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/adf8.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	ADD TWO FLOATS - DOUBLE (ADF 8)
-*/
-
-#include	"FP_types.h"
-
-void
-adf8(s2,s1)
-DOUBLE	s1,s2;
-{
-	EXTEND	e1,e2;
-
-	if (s1.d[0] == 0 && s1.d[1] == 0) {
-		s1 = s2;
-		return;
-	}
-	if (s2.d[0] == 0 && s2.d[1] == 0) {
-		return;
-	}
-
-	extend(&s1.d[0],&e1,sizeof(DOUBLE));
-	extend(&s2.d[0],&e2,sizeof(DOUBLE));
-	add_ext(&e1,&e2);
-	compact(&e1,&s1.d[0],sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/adf8.s
===================================================================
--- trunk/minix/lib/ack/float/adf8.s	(revision 9)
+++ 	(revision )
@@ -1,53 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .adf8
-.sect .text
-.adf8:
-push ebp
-mov ebp,esp
-sub	esp,24
-cmp 16(ebp),0
-jne I1_4
-cmp 20(ebp),0
-jne I1_4
-mov edx,8(ebp)
-mov ecx,12(ebp)
-mov 16(ebp),edx
-mov 20(ebp),ecx
-jmp I1_1
-I1_4:
-cmp 8(ebp),0
-jne I1_8
-cmp 12(ebp),0
-je I1_1
-I1_8:
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-push 8
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .add_ext
-pop ecx
-pop ecx
-push 8
-lea eax,16(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-leave
-ret
Index: trunk/minix/lib/ack/float/byte_order.h
===================================================================
--- trunk/minix/lib/ack/float/byte_order.h	(revision 9)
+++ 	(revision )
@@ -1,6 +1,0 @@
-#define CHAR_UNSIGNED	0
-#define MSB_AT_LOW_ADDRESS	0
-#define MSW_AT_LOW_ADDRESS	0
-#define FL_MSB_AT_LOW_ADDRESS	0
-#define FL_MSW_AT_LOW_ADDRESS	0
-#define FL_MSL_AT_LOW_ADDRESS	0
Index: trunk/minix/lib/ack/float/cff4.fc
===================================================================
--- trunk/minix/lib/ack/float/cff4.fc	(revision 9)
+++ 	(revision )
@@ -1,28 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cff4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-		CONVERT DOUBLE TO SINGLE (CFF 8 4)
-
-	This routine works quite simply. A floating point
-	of size 08 is converted to extended format.
-	This extended variable is converted back to
-	a floating point of size 04.
-
-*/
-
-#include	"FP_types.h"
-
-void
-cff4(src)
-DOUBLE	src;	/* the source itself -	THIS TIME it's DOUBLE */
-{
-	EXTEND	buf;
-
-	extend(&src.d[0],&buf,sizeof(DOUBLE));	/* no matter what */
-	compact(&buf,&(src.d[1]),sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/cff4.s
===================================================================
--- trunk/minix/lib/ack/float/cff4.s	(revision 9)
+++ 	(revision )
@@ -1,23 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cff4
-.sect .text
-.cff4:
-push ebp
-mov ebp,esp
-sub	esp,12
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-push 4
-lea eax,12(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-leave
-ret
Index: trunk/minix/lib/ack/float/cff8.fc
===================================================================
--- trunk/minix/lib/ack/float/cff8.fc	(revision 9)
+++ 	(revision )
@@ -1,28 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cff8.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-		CONVERT SINGLE TO DOUBLE (CFF 4 8)
-
-	This routine works quite simply. A floating point
-	of size 04 is converted to extended format.
-	This extended variable is converted back to
-	a floating point of size 08.
-
-*/
-
-#include "FP_types.h"
-
-void
-cff8(src)
-SINGLE	src;
-{
-	EXTEND	buf;
-
-	extend(&src,&buf,sizeof(SINGLE));	/* no matter what */
-	compact(&buf, &src,sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/cff8.s
===================================================================
--- trunk/minix/lib/ack/float/cff8.s	(revision 9)
+++ 	(revision )
@@ -1,23 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cff8
-.sect .text
-.cff8:
-push ebp
-mov ebp,esp
-sub	esp,12
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-push 8
-lea eax,8(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-leave
-ret
Index: trunk/minix/lib/ack/float/cfi.fc
===================================================================
--- trunk/minix/lib/ack/float/cfi.fc	(revision 9)
+++ 	(revision )
@@ -1,52 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cfi.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-		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);
-}
Index: trunk/minix/lib/ack/float/cfi.s
===================================================================
--- trunk/minix/lib/ack/float/cfi.s	(revision 9)
+++ 	(revision )
@@ -1,80 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cfi
-.sect .text
-.cfi:
-push ebp
-mov ebp,esp
-sub	esp,20
-push esi
-push 12(ebp)
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-movsx eax,-10(ebp)
-test eax,eax
-jns I1_4
-xor eax,eax
-cmp 12(ebp),8
-jne 1f
-inc eax
-1:
-mov 16(ebp)(eax*4),0
-xor eax,eax
-jmp I1_1
-I1_4:
-mov edx,8(ebp)
-sal edx,3
-sub edx,2
-o16 mov -18(ebp),edx
-movsx eax,-10(ebp)
-movsx ebx,-18(ebp)
-cmp eax,ebx
-jle I1_7
-movsx eax,-18(ebp)
-inc eax
-movsx ebx,-10(ebp)
-cmp eax,ebx
-jne I1_10
-movzx edx,-12(ebp)
-test edx,edx
-je I1_10
-cmp -8(ebp),-2147483648
-jne I1_10
-cmp -4(ebp),0
-je I1_7
-I1_10:
-push 3
-call __fptrp
-pop ecx
-movsx eax,-10(ebp)
-movsx ebx,-18(ebp)
-cdq
-idiv ebx
-o16 mov -10(ebp),edx
-I1_7:
-movsx eax,-10(ebp)
-sub eax,31
-neg eax
-mov ecx,eax
-mov edx,-8(ebp)
-shr edx,cl
-mov esi,edx
-movzx edx,-12(ebp)
-test edx,edx
-je I1_18
-neg esi
-I1_18:
-xor eax,eax
-cmp 12(ebp),8
-jne 1f
-inc eax
-1:
-mov 16(ebp)(eax*4),esi
-mov eax,esi
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cfu.fc
===================================================================
--- trunk/minix/lib/ack/float/cfu.fc	(revision 9)
+++ 	(revision )
@@ -1,43 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cfu.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-		CONVERT FLOAT TO UNSIGNED (CFU 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"
-
-long
-cfu(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	newint, 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) - 1;
-	if (buf.exp > max_exp) {
-		trap(EIOVFL);	/* integer overflow	*/
-		buf.exp %= max_exp;
-	}
-	new = buf.m1 >> (31-buf.exp);
-done:
-	src.d[ss == 8] = new;
-	return(new);
-}
Index: trunk/minix/lib/ack/float/cfu.s
===================================================================
--- trunk/minix/lib/ack/float/cfu.s	(revision 9)
+++ 	(revision )
@@ -1,62 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cfu
-.sect .text
-.cfu:
-push ebp
-mov ebp,esp
-sub	esp,20
-push esi
-push 12(ebp)
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-movsx eax,-10(ebp)
-test eax,eax
-jns I1_4
-xor eax,eax
-cmp 12(ebp),8
-jne 1f
-inc eax
-1:
-mov 16(ebp)(eax*4),0
-xor eax,eax
-jmp I1_1
-I1_4:
-mov edx,8(ebp)
-sal edx,3
-dec edx
-o16 mov -20(ebp),edx
-movsx eax,-10(ebp)
-movsx ebx,-20(ebp)
-cmp eax,ebx
-jle I1_7
-push 3
-call __fptrp
-pop ecx
-movsx eax,-10(ebp)
-movsx ebx,-20(ebp)
-cdq
-idiv ebx
-o16 mov -10(ebp),edx
-I1_7:
-movsx eax,-10(ebp)
-sub eax,31
-neg eax
-mov ecx,eax
-mov edx,-8(ebp)
-shr edx,cl
-mov esi,edx
-xor eax,eax
-cmp 12(ebp),8
-jne 1f
-inc eax
-1:
-mov 16(ebp)(eax*4),esi
-mov eax,esi
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cif4.fc
===================================================================
--- trunk/minix/lib/ack/float/cif4.fc	(revision 9)
+++ 	(revision )
@@ -1,56 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cif4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	CONVERT INTEGER TO SINGLE (CIF 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
-cif4(ss,src)
-int	ss;	/* source size */
-long	src;	/* largest possible integer to convert */
-{
-	EXTEND	buf;
-	short	*ipt;
-	long	i_src;
-	SINGLE	*result;
-
-	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 *) &ss;
-	}
-	if (i_src == 0)	{
-		*result = (SINGLE) 0L;
-		return;
-	}
-			/* ESTABLISHED THAT src != 0	*/
-			/* adjust exponent field	*/
-	buf.sign = (i_src < 0) ? 0x8000 : 0;
-			/* clear sign bit of integer	*/
-			/* move to mantissa field	*/
-	buf.m1 = (i_src < 0) ? -i_src : i_src;
-			/* adjust mantissa field	*/
-	if (ss != sizeof(long))
-		buf.m1 <<= 16;
-	nrm_ext(&buf);		/* adjust mantissa field	*/
-	compact(&buf, result,sizeof(SINGLE));	/* put on stack */
-}
Index: trunk/minix/lib/ack/float/cif4.s
===================================================================
--- trunk/minix/lib/ack/float/cif4.s	(revision 9)
+++ 	(revision )
@@ -1,69 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cif4
-.sect .text
-.cif4:
-push ebp
-mov ebp,esp
-sub	esp,16
-push esi
-push edi
-lea eax,-12(ebp)
-push eax
-call .zrf_ext
-pop ecx
-cmp 8(ebp),4
-jne I1_4
-o16 mov -10(ebp),31
-mov esi,12(ebp)
-lea edi,12(ebp)
-jmp I1_5
-I1_4:
-lea edx,12(ebp)
-mov -16(ebp),edx
-movsx eax,(edx)
-mov esi,eax
-o16 mov -10(ebp),15
-lea edi,8(ebp)
-I1_5:
-test esi,esi
-jne I1_7
-mov (edi),0
-jmp I1_1
-I1_7:
-test esi,esi
-jns I1_10
-mov eax,32768
-jmp I1_11
-I1_10:
-xor eax,eax
-I1_11:
-o16 mov -12(ebp),eax
-test esi,esi
-jns I1_13
-mov edx,esi
-neg edx
-mov eax,edx
-jmp I1_14
-I1_13:
-mov eax,esi
-I1_14:
-mov -8(ebp),eax
-cmp 8(ebp),4
-je I1_16
-sal -8(ebp),16
-I1_16:
-lea eax,-12(ebp)
-push eax
-call .nrm_ext
-pop ecx
-push 4
-push edi
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cif8.fc
===================================================================
--- trunk/minix/lib/ack/float/cif8.fc	(revision 9)
+++ 	(revision )
@@ -1,55 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cif8.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	CONVERT INTEGER TO FLOAT (CIF n 8)
-
-	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
-cif8(ss,src)
-int	ss;	/* source size */
-long	src;	/* largest possible integer to convert */
-{
-	EXTEND	buf;
-	DOUBLE	*result;	/* for return value */
-	short	*ipt;
-	long	i_src;
-
-	result = (DOUBLE *) ((void *) &ss);	/* always */
-	zrf_ext(&buf);
-	if (ss == sizeof(long))	{
-		buf.exp = 31;
-		i_src = src;
-	}
-	else	{
-		ipt = (short *) &src;
-		i_src = (long) *ipt;
-		buf.exp = 15;
-	}
-	if (i_src == 0)	{
-		zrf8(result);
-		return;
-	}
-			/* ESTABLISHED THAT src != 0	*/
-			/* adjust exponent field	*/
-	buf.sign = (i_src < 0) ? 0x8000 : 0;
-			/* clear sign bit of integer	*/
-			/* move to mantissa field	*/
-	buf.m1 = (i_src < 0) ? -i_src : i_src;
-			/* adjust mantissa field	*/
-	if (ss != sizeof(long))
-		buf.m1 <<= 16;
-	nrm_ext(&buf);
-	compact(&buf,&result->d[0],8);
-}
Index: trunk/minix/lib/ack/float/cif8.s
===================================================================
--- trunk/minix/lib/ack/float/cif8.s	(revision 9)
+++ 	(revision )
@@ -1,70 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cif8
-.sect .text
-.cif8:
-push ebp
-mov ebp,esp
-sub	esp,20
-push esi
-push edi
-lea edi,8(ebp)
-lea eax,-12(ebp)
-push eax
-call .zrf_ext
-pop ecx
-cmp 8(ebp),4
-jne I1_4
-o16 mov -10(ebp),31
-mov esi,12(ebp)
-jmp I1_5
-I1_4:
-lea edx,12(ebp)
-mov -20(ebp),edx
-movsx eax,(edx)
-mov esi,eax
-o16 mov -10(ebp),15
-I1_5:
-test esi,esi
-jne I1_7
-push edi
-call .zrf8
-pop ecx
-jmp I1_1
-I1_7:
-test esi,esi
-jns I1_10
-mov eax,32768
-jmp I1_11
-I1_10:
-xor eax,eax
-I1_11:
-o16 mov -12(ebp),eax
-test esi,esi
-jns I1_13
-mov edx,esi
-neg edx
-mov eax,edx
-jmp I1_14
-I1_13:
-mov eax,esi
-I1_14:
-mov -8(ebp),eax
-cmp 8(ebp),4
-je I1_16
-sal -8(ebp),16
-I1_16:
-lea eax,-12(ebp)
-push eax
-call .nrm_ext
-pop ecx
-push 8
-push edi
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cmf4.fc
===================================================================
--- trunk/minix/lib/ack/float/cmf4.fc	(revision 9)
+++ 	(revision )
@@ -1,40 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cmf4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	COMPARE	SINGLES (CMF 4)
-*/
-
-#include	"FP_types.h"
-#include	"get_put.h"
-
-int
-cmf4(f1,f2)
-SINGLE	f1,f2;
-{
-		/*
-		 * return ((f1 < f2) ? 1 : (f1 - f2))
-		 */
-#define SIGN(x) (((x) < 0) ? -1 : 1)
-        int	sign1,sign2;
-	long	l1,l2;
-
-	l1 = get4((char *) &f1);
-	l2 = get4((char *) &f2);
-
-	if (l1 == l2) return 0;
-
-        sign1 = SIGN(l1);
-        sign2 = SIGN(l2);
-        if (sign1 != sign2) {
-		if ((l1 & 0x7fffffff) == 0 &&
-		    (l2 & 0x7fffffff) == 0) return 0;
-                return ((sign1 > 0) ? -1 : 1);
-	}
-
-	return (sign1 * ((l1 < l2) ? 1 : -1));
-}
Index: trunk/minix/lib/ack/float/cmf4.s
===================================================================
--- trunk/minix/lib/ack/float/cmf4.s	(revision 9)
+++ 	(revision )
@@ -1,63 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cmf4
-.sect .text
-.cmf4:
-push ebp
-mov ebp,esp
-sub	esp,8
-push esi
-push edi
-mov edi,8(ebp)
-mov esi,12(ebp)
-cmp edi,esi
-jne I1_4
-xor eax,eax
-jmp I1_1
-I1_4:
-test edi,edi
-jns I1_7
-mov eax,-1
-jmp I1_8
-I1_7:
-mov eax,1
-I1_8:
-mov -4(ebp),eax
-test esi,esi
-jns I1_10
-mov eax,-1
-jmp I1_11
-I1_10:
-mov eax,1
-I1_11:
-mov -8(ebp),eax
-cmp -4(ebp),eax
-je I1_13
-test edi,2147483647
-jne I1_16
-test esi,2147483647
-jne I1_16
-xor eax,eax
-jmp I1_1
-I1_16:
-! kill cc
-cmp -4(ebp),0
-jle I1_20
-mov eax,-1
-jmp I1_1
-I1_20:
-mov eax,1
-jmp I1_1
-I1_13:
-cmp edi,esi
-jge I1_23
-mov eax,1
-jmp I1_24
-I1_23:
-mov eax,-1
-I1_24:
-imul eax,-4(ebp)
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cmf8.fc
===================================================================
--- trunk/minix/lib/ack/float/cmf8.fc	(revision 9)
+++ 	(revision )
@@ -1,61 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cmf8.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	COMPARE	DOUBLES (CMF 8)
-*/
-
-#include	"FP_types.h"
-#include	"get_put.h"
-
-int
-cmf8(d1,d2)
-DOUBLE	d1,d2;
-{
-#define	SIGN(x)	(((x) < 0) ? -1 : 1)
-		/*
-		 * return ((d1 < d2) ? 1 : (d1 > d2) ? -1 : 0))
-		 */
-	long	l1,l2;
-	int	sign1,sign2;
-	int	rv;
-
-#if FL_MSL_AT_LOW_ADDRESS
-	l1 = get4((char *)&d1);
-	l2 = get4((char *)&d2);
-#else
-	l1 = get4(((char *)&d1+4));
-	l2 = get4(((char *)&d2+4));
-#endif
-	sign1 = SIGN(l1);
-	sign2 = SIGN(l2);
-	if (sign1 != sign2) {
-		l1 &= 0x7fffffff;
-		l2 &= 0x7fffffff;
-		if (l1 != 0 || l2 != 0) {
-			return ((sign1 > 0) ? -1 : 1);
-		}
-	}
-	if (l1 != l2)	{	/* we can decide here */
-		rv = l1 < l2 ? 1 : -1;
-	}
-	else	{ 		/* decide in 2nd half */
-		unsigned long u1, u2;
-#if FL_MSL_AT_LOW_ADDRESS
-		u1 = get4(((char *)&d1 + 4));
-		u2 = get4(((char *)&d2 + 4));
-#else
-		u1 = get4((char *)&d1);
-		u2 = get4((char *)&d2);
-#endif
-		if (u1 == u2)
-			return(0);
-		if (u1 < u2) rv = 1;
-		else rv = -1;
-	}
-	return sign1 * rv;
-}
Index: trunk/minix/lib/ack/float/cmf8.s
===================================================================
--- trunk/minix/lib/ack/float/cmf8.s	(revision 9)
+++ 	(revision )
@@ -1,82 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cmf8
-.sect .text
-.cmf8:
-push ebp
-mov ebp,esp
-sub	esp,28
-push esi
-push edi
-mov edi,12(ebp)
-mov esi,20(ebp)
-test edi,edi
-jns I1_4
-mov eax,-1
-jmp I1_5
-I1_4:
-mov eax,1
-I1_5:
-mov -12(ebp),eax
-test esi,esi
-jns I1_7
-mov eax,-1
-jmp I1_8
-I1_7:
-mov eax,1
-I1_8:
-mov -16(ebp),eax
-cmp -12(ebp),eax
-je I1_10
-and edi,2147483647
-and esi,2147483647
-test edi,edi
-jne I1_12
-test esi,esi
-je I1_10
-I1_12:
-! kill cc
-cmp -12(ebp),0
-jle I1_17
-mov eax,-1
-jmp I1_1
-I1_17:
-mov eax,1
-jmp I1_1
-I1_10:
-cmp edi,esi
-je I1_20
-cmp edi,esi
-jge I1_23
-mov eax,1
-jmp I1_24
-I1_23:
-mov eax,-1
-I1_24:
-mov -20(ebp),eax
-jmp I1_21
-I1_20:
-mov edx,8(ebp)
-mov -24(ebp),edx
-mov edx,16(ebp)
-mov -28(ebp),edx
-cmp -24(ebp),edx
-jne I1_26
-xor eax,eax
-jmp I1_1
-I1_26:
-mov edx,-28(ebp)
-cmp -24(ebp),edx
-jae I1_29
-mov -20(ebp),1
-jmp I1_21
-I1_29:
-mov -20(ebp),-1
-I1_21:
-mov edx,-12(ebp)
-imul edx,-20(ebp)
-mov eax,edx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/compact.fc
===================================================================
--- trunk/minix/lib/ack/float/compact.fc	(revision 9)
+++ 	(revision )
@@ -1,202 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/compact.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	COMPACT EXTEND FORMAT INTO FLOAT OF PROPER SIZE
-*/
-
-# include "FP_bias.h"
-# include "FP_shift.h"
-# include "FP_trap.h"
-# include "FP_types.h"
-# include "get_put.h"
-
-void
-compact(f,to,size)
-EXTEND	*f;
-unsigned long	*to;
-int	size;
-{
-	int	error = 0;
-
-	if (size == sizeof(DOUBLE)) {
-	/*
-	 * COMPACT EXTENDED INTO DOUBLE
-	 */
-		DOUBLE *DBL = (DOUBLE *) (void *) to;
-
-		if ((f->m1|(f->m2 & DBL_ZERO)) == 0L)	{
-			zrf8(DBL);
-			return;
-		}
-		f->exp += DBL_BIAS;	/* restore proper bias	*/
-		if (f->exp > DBL_MAX)	{
-dbl_over:			trap(EFOVFL);
-			f->exp = DBL_MAX+1;
-			f->m1 = 0;
-			f->m2 = 0;
-			if (error++)
-				return;
-		}
-		else if (f->exp < DBL_MIN)	{
-			b64_rsft(&(f->mantissa));
-			if (f->exp < 0) {
-				b64_sft(&(f->mantissa), -f->exp);
-				f->exp = 0;
-			}
-			/* underflow ??? */
-		}
-			
-		/* local CAST conversion		*/
-
-		/* because of special format shift only 10 bits */
-		/* bit shift mantissa 10 bits		*/
-
-		/* first align within words, then do store operation */
-
-		DBL->d[0] = f->m1 >> DBL_RUNPACK;   /* plus 22 == 32 */
-		DBL->d[1] = f->m2 >> DBL_RUNPACK;   /* plus 22 == 32 */
-		DBL->d[1] |= (f->m1 << DBL_LUNPACK); /* plus 10 == 32 */
-
-		/* if not exact then round to nearest	*/
-		/* on a tie, round to even */
-
-#ifdef EXCEPTION_INEXACT
-		if ((f->m2 & DBL_EXACT) != 0) {
-		    INEXACT();
-#endif
-		    if (((f->m2 & DBL_EXACT) > DBL_ROUNDUP)
-			|| ((f->m2 & DBL_EXACT) == DBL_ROUNDUP
-			    && (f->m2 & (DBL_ROUNDUP << 1)))) {
-			DBL->d[1]++;	/* rounding up	*/
-			if (DBL->d[1] == 0L) { /* carry out	*/
-			    DBL->d[0]++;
-
-			    if (f->exp == 0 && (DBL->d[0] & ~DBL_MASK)) {
-					f->exp++;
-				}
-			    if (DBL->d[0] & DBL_CARRYOUT) { /* carry out */
-				if (DBL->d[0] & 01)
-				    DBL->d[1] = CARRYBIT;
-				DBL->d[0] >>= 1;
-				f->exp++;
-			    }
-			}
-			/*	check for overflow			*/
-			if (f->exp > DBL_MAX)
-		    		goto dbl_over;
-		    }
-#ifdef EXCEPTION_INEXACT
-		}
-#endif
-
-		/*
-		 * STORE EXPONENT AND SIGN:
-		 *
-		 * 1) clear leading bits (B4-B15)
-		 * 2) shift and store exponent
-		 */
-
-		DBL->d[0] &= DBL_MASK;
-		DBL->d[0] |= 
-			((long) (f->exp << DBL_EXPSHIFT) << EXP_STORE);
-		if (f->sign)
-			DBL->d[0] |= CARRYBIT;
-
-		/*
-		 * STORE MANTISSA
-		 */
-
-#if FL_MSL_AT_LOW_ADDRESS
-		put4(DBL->d[0], (char *) &DBL->d[0]);
-		put4(DBL->d[1], (char *) &DBL->d[1]);
-#else
-		{ unsigned long l;
-		  put4(DBL->d[1], (char *) &l);
-		  put4(DBL->d[0], (char *) &DBL->d[1]);
-		  DBL->d[0] = l;
-		}
-#endif
-	}
-	else {
-		/*
-		 * COMPACT EXTENDED INTO FLOAT
-		 */
-		SINGLE	*SGL;
-
-		/* local CAST conversion		*/
-		SGL = (SINGLE *) (void *) to;
-		if ((f->m1 & SGL_ZERO) == 0L)	{
-			*SGL = 0L;
-			return;
-		}
-		f->exp += SGL_BIAS;	/* restore bias	*/
-		if (f->exp > SGL_MAX)	{
-sgl_over:			trap(EFOVFL);
-			f->exp = SGL_MAX+1;
-			f->m1 = 0L;
-			f->m2 = 0L;
-			if (error++)
-				return;
-		}
-		else if (f->exp < SGL_MIN)	{
-			b64_rsft(&(f->mantissa));
-			if (f->exp < 0) {
-				b64_sft(&(f->mantissa), -f->exp);
-				f->exp = 0;
-			}
-			/* underflow ??? */
-		}
-
-		/* shift mantissa and store	*/
-		*SGL = (f->m1 >> SGL_RUNPACK);
-
-		/* check for rounding to nearest	*/
-		/* on a tie, round to even		*/
-#ifdef EXCEPTION_INEXACT
-		if (f->m2 != 0 ||
-		    (f->m1 & SGL_EXACT) != 0L) {
-			INEXACT();
-#endif
-		        if (((f->m1 & SGL_EXACT) > SGL_ROUNDUP)
-			    || ((f->m1 & SGL_EXACT) == SGL_ROUNDUP
-			        && (f->m1 & (SGL_ROUNDUP << 1)))) {
-				(*SGL)++;
-				if (f->exp == 0 && (*SGL & ~SGL_MASK)) {
-					f->exp++;
-				}
-			/* check normal */
-				if (*SGL & SGL_CARRYOUT)	{
-					*SGL >>= 1;
-					f->exp++;
-				}
-				if (f->exp > SGL_MAX)
-					goto sgl_over;
-			}
-#ifdef EXCEPTION_INEXACT
-		}
-#endif
-
-		/*
-		 * STORE EXPONENT AND SIGN:
-		 *
-		 * 1) clear leading bit of fraction
-		 * 2) shift and store exponent
-		 */
-
-		*SGL &= SGL_MASK; /* B23-B31 are 0 */
-		*SGL |= ((long) (f->exp << SGL_EXPSHIFT) << EXP_STORE);
-		if (f->sign)
-			*SGL |= CARRYBIT;
-
-		/*
-		 * STORE MANTISSA
-		 */
-
-		put4(*SGL, (char *) &SGL);
-	}
-}
Index: trunk/minix/lib/ack/float/compact.s
===================================================================
--- trunk/minix/lib/ack/float/compact.s	(revision 9)
+++ 	(revision )
@@ -1,270 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .compact
-.sect .text
-.compact:
-push ebp
-mov ebp,esp
-sub	esp,16
-push esi
-push edi
-mov esi,8(ebp)
-mov -4(ebp),0
-cmp 16(ebp),8
-jne I1_4
-mov edi,12(ebp)
-mov edx,-768
-and edx,8(esi)
-or edx,4(esi)
-jne I1_7
-push edi
-call .zrf8
-pop ecx
-jmp I1_1
-I1_7:
-movsx eax,2(esi)
-add eax,1023
-movsx eax,eax
-o16 mov 2(esi),eax
-movsx ebx,2(esi)
-cmp ebx,2046
-jle I1_10
-I1_12:
-push 4
-call __fptrp
-pop ecx
-o16 mov 2(esi),2047
-mov 4(esi),0
-mov 8(esi),0
-mov edx,-4(ebp)
-mov ecx,edx
-inc ecx
-mov -4(ebp),ecx
-test edx,edx
-je I1_11
-jmp I1_1
-I1_10:
-movsx eax,2(esi)
-! kill cc
-test eax,eax
-jg I1_11
-lea eax,4(esi)
-push eax
-call .b64_rsft
-pop ecx
-movsx eax,2(esi)
-test eax,eax
-jns I1_11
-movsx eax,2(esi)
-neg eax
-push eax
-lea eax,4(esi)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-o16 mov 2(esi),0
-I1_11:
-mov edx,4(esi)
-shr edx,11
-mov (edi),edx
-mov edx,8(esi)
-shr edx,11
-mov 4(edi),edx
-lea edx,4(edi)
-mov -12(ebp),edx
-mov ecx,4(esi)
-sal ecx,21
-or ecx,(edx)
-mov eax,-12(ebp)
-mov (eax),ecx
-! kill eax
-mov edx,2047
-and edx,8(esi)
-cmp edx,1024
-ja I1_22
-mov edx,2047
-and edx,8(esi)
-cmp edx,1024
-jne I1_23
-test 8(esi),2048
-je I1_23
-I1_22:
-lea edx,4(edi)
-mov -12(ebp),edx
-mov ecx,1
-add ecx,(edx)
-mov eax,-12(ebp)
-mov (eax),ecx
-! kill eax
-cmp 4(edi),0
-jne I1_28
-mov -12(ebp),edi
-mov edx,1
-add edx,(edi)
-mov eax,-12(ebp)
-mov (eax),edx
-! kill eax
-movzx edx,2(esi)
-test edx,edx
-jne I1_31
-test (edi),-1048576
-je I1_31
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_31:
-test (edi),2097152
-je I1_28
-mov edx,(edi)
-testb dl,1
-je I1_38
-mov 4(edi),-2147483648
-I1_38:
-mov -12(ebp),edi
-mov edx,(edi)
-shr edx,1
-mov eax,-12(ebp)
-mov (eax),edx
-! kill eax
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_28:
-movsx eax,2(esi)
-cmp eax,2046
-jg I1_12
-I1_23:
-mov -12(ebp),edi
-mov edx,1048575
-and edx,(edi)
-mov eax,-12(ebp)
-mov (eax),edx
-! kill eax
-mov -12(ebp),edi
-movsx eax,2(esi)
-sal eax,4
-sal eax,16
-or eax,(edi)
-mov ebx,-12(ebp)
-mov (ebx),eax
-! kill ebx
-movzx edx,(esi)
-test edx,edx
-je I1_44
-mov -12(ebp),edi
-mov edx,-2147483648
-or edx,(edi)
-mov eax,-12(ebp)
-mov (eax),edx
-! kill eax
-I1_44:
-mov edx,4(edi)
-mov -16(ebp),edx
-mov edx,(edi)
-mov 4(edi),edx
-mov edx,-16(ebp)
-mov (edi),edx
-jmp I1_1
-I1_4:
-mov edi,12(ebp)
-test 4(esi),-128
-jne I1_47
-mov (edi),0
-jmp I1_1
-I1_47:
-movsx eax,2(esi)
-add eax,127
-movsx eax,eax
-o16 mov 2(esi),eax
-movsx ebx,2(esi)
-cmp ebx,254
-jle I1_50
-I1_52:
-push 4
-call __fptrp
-pop ecx
-o16 mov 2(esi),255
-mov 4(esi),0
-mov 8(esi),0
-mov edx,-4(ebp)
-mov ecx,edx
-inc ecx
-mov -4(ebp),ecx
-test edx,edx
-je I1_51
-jmp I1_1
-I1_50:
-movsx eax,2(esi)
-! kill cc
-test eax,eax
-jg I1_51
-lea eax,4(esi)
-push eax
-call .b64_rsft
-pop ecx
-movsx eax,2(esi)
-test eax,eax
-jns I1_51
-movsx eax,2(esi)
-neg eax
-push eax
-lea eax,4(esi)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-o16 mov 2(esi),0
-I1_51:
-mov edx,4(esi)
-shr edx,8
-mov (edi),edx
-mov edx,4(esi)
-movzxb ecx,dl
-cmp ecx,128
-ja I1_62
-cmpb dl,128
-jne I1_63
-test 4(esi),256
-je I1_63
-I1_62:
-inc (edi)
-movzx edx,2(esi)
-test edx,edx
-jne I1_68
-test (edi),-8388608
-je I1_68
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_68:
-test (edi),16777216
-je I1_72
-shr (edi),1
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_72:
-movsx eax,2(esi)
-cmp eax,254
-jg I1_52
-I1_63:
-and (edi),8388607
-movsx eax,2(esi)
-sal eax,7
-sal eax,16
-or (edi),eax
-movzx edx,(esi)
-test edx,edx
-je I1_78
-or (edi),-2147483648
-I1_78:
-mov edi,(edi)
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cuf4.fc
===================================================================
--- trunk/minix/lib/ack/float/cuf4.fc	(revision 9)
+++ 	(revision )
@@ -1,57 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cuf4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	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);
-}
Index: trunk/minix/lib/ack/float/cuf4.s
===================================================================
--- trunk/minix/lib/ack/float/cuf4.s	(revision 9)
+++ 	(revision )
@@ -1,52 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cuf4
-.sect .text
-.cuf4:
-push ebp
-mov ebp,esp
-sub	esp,16
-push esi
-push edi
-lea eax,-12(ebp)
-push eax
-call .zrf_ext
-pop ecx
-cmp 8(ebp),4
-jne I1_4
-o16 mov -10(ebp),31
-mov esi,12(ebp)
-lea edi,12(ebp)
-jmp I1_5
-I1_4:
-lea edx,12(ebp)
-mov -16(ebp),edx
-movsx eax,(edx)
-mov esi,eax
-o16 mov -10(ebp),15
-lea edi,8(ebp)
-I1_5:
-test esi,esi
-jne I1_7
-mov (edi),0
-jmp I1_1
-I1_7:
-cmp 8(ebp),4
-je I1_10
-sal esi,16
-I1_10:
-mov -8(ebp),esi
-lea eax,-12(ebp)
-push eax
-call .nrm_ext
-pop ecx
-push 4
-push edi
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/cuf8.fc
===================================================================
--- trunk/minix/lib/ack/float/cuf8.fc	(revision 9)
+++ 	(revision )
@@ -1,54 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/cuf8.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	CONVERT INTEGER TO FLOAT (CUF n 8)
-
-	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
-cuf8(ss,src)
-int	ss;	/* source size */
-long	src;	/* largest possible integer to convert */
-{
-	EXTEND	buf;
-	short	*ipt;
-	long	i_src;
-
-	zrf_ext(&buf);
-	if (ss == sizeof(long))	{
-		buf.exp = 31;
-		i_src = src;
-	}
-	else	{
-		ipt = (short *) &src;
-		i_src = (long) *ipt;
-		buf.exp = 15;
-	}
-	if (i_src == 0)	{
-		zrf8((DOUBLE *)((void *)&ss));
-		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,(unsigned long *) (void *)&ss,8);
-}
Index: trunk/minix/lib/ack/float/cuf8.s
===================================================================
--- trunk/minix/lib/ack/float/cuf8.s	(revision 9)
+++ 	(revision )
@@ -1,52 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .cuf8
-.sect .text
-.cuf8:
-push ebp
-mov ebp,esp
-sub	esp,16
-push esi
-lea eax,-12(ebp)
-push eax
-call .zrf_ext
-pop ecx
-cmp 8(ebp),4
-jne I1_4
-o16 mov -10(ebp),31
-mov esi,12(ebp)
-jmp I1_5
-I1_4:
-lea edx,12(ebp)
-mov -16(ebp),edx
-movsx eax,(edx)
-mov esi,eax
-o16 mov -10(ebp),15
-I1_5:
-test esi,esi
-jne I1_7
-lea eax,8(ebp)
-push eax
-call .zrf8
-pop ecx
-jmp I1_1
-I1_7:
-cmp 8(ebp),4
-je I1_10
-sal esi,16
-I1_10:
-mov -8(ebp),esi
-lea eax,-12(ebp)
-push eax
-call .nrm_ext
-pop ecx
-push 8
-lea eax,8(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/div_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/div_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,266 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/div_ext.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	DIVIDE EXTENDED FORMAT
-*/
-
-#include "FP_bias.h"
-#include "FP_trap.h"
-#include "FP_types.h"
-
-/*
-	November 15, 1984
-
-	This is a routine to do the work.
-	There are two versions: 
-	One is based on the partial products method
-	and makes no use possible machine instructions
-	to divide (hardware dividers).
-	The other is used when USE_DIVIDE is defined. It is much faster on
-	machines with fast 4 byte operations.
-*/
-/********************************************************/
-
-void
-div_ext(e1,e2)
-EXTEND	*e1,*e2;
-{
-	short	error = 0;
-	B64		result;
-	register	unsigned long	*lp;
-#ifndef USE_DIVIDE
-	short	count;
-#else
-	unsigned short u[9], v[5];
-	register int j;
-	register unsigned short *u_p = u;
-	int maxv = 4;
-#endif
-
-	if ((e2->m1 | e2->m2) == 0) {
-                /*
-                 * Exception 8.2 - Divide by zero
-                 */
-		trap(EFDIVZ);
-		e1->m1 = e1->m2 = 0L;
-		e1->exp = EXT_MAX;
-		return;
-	}
-	if ((e1->m1 | e1->m2) == 0) {	/* 0 / anything == 0 */
-		e1->exp = 0;	/* make sure */
-		return;
-	}
-#ifndef USE_DIVIDE
-	/*
-	 * numbers are right shifted one bit to make sure
-	 * that m1 is quaranteed to be larger if its
-	 * maximum bit is set
-	 */
-	b64_rsft(&e1->mantissa);	/* 64 bit shift right */
-	b64_rsft(&e2->mantissa);	/* 64 bit shift right */
-	e1->exp++;
-	e2->exp++;
-#endif
-	/*	check for underflow, divide by zero, etc	*/
-	e1->sign ^= e2->sign;
-	e1->exp -= e2->exp;
-
-#ifndef USE_DIVIDE
-		/* do division of mantissas	*/
-		/* uses partial product method	*/
-		/* init control variables	*/
-
-	count = 64;
-	result.h_32 = 0L;
-	result.l_32 = 0L;
-
-		/* partial product division loop */
-
-	while (count--)	{
-		/* first left shift result 1 bit	*/
-		/* this is ALWAYS done			*/
-
-		b64_lsft(&result);
-
-		/* compare dividend and divisor		*/
-		/* if dividend >= divisor add a bit	*/
-		/* and subtract divisior from dividend	*/
-
-		if ( (e1->m1 < e2->m1) ||
-			((e1->m1 == e2->m1) && (e1->m2 < e2->m2) ))
-			;	/* null statement */
-				/* i.e., don't add or subtract */
-		else	{
-			result.l_32++;	/* ADD	*/
-			if (e2->m2 > e1->m2)
-				e1->m1 -= 1;	/* carry in */
-			e1->m1 -= e2->m1;	/* do SUBTRACTION */
-			e1->m2 -= e2->m2;	/*    SUBTRACTION */
-		}
-
-		/*	shift dividend left one bit OR	*/
-		/*	IF it equals ZERO we can break out	*/
-		/*	of the loop, but still must shift	*/
-		/*	the quotient the remaining count bits	*/
-		/* NB	save the results of this test in error	*/
-		/*	if not zero, then the result is inexact. */
-		/* 	this would be reported in IEEE standard	*/
-
-		/*	lp points to dividend			*/
-		lp = &e1->m1;
-
-		error = ((*lp | *(lp+1)) != 0L) ? 1 : 0;
-		if (error)	{	/* more work */
-			/*	assume max bit == 0 (see above)	*/
-			b64_lsft(&e1->mantissa);
-			continue;
-		}
-		else
-			break;	/* leave loop	*/
-	}	/* end of divide by subtraction loop	*/
-
-	if (count > 0)	{
-		lp = &result.h_32;
-		if (count > 31) {	/* move to higher word */
-			*lp = *(lp+1);
-			count -= 32;
-			*(lp+1) = 0L;	/* clear low word	*/
-		}
-		if (*lp)
-			*lp <<= count;	/* shift rest of way	*/
-		lp++;	/*  == &result.l_32	*/
-		if (*lp) {
-			result.h_32 |= (*lp >> 32-count);
-			*lp <<= count;
-		}
-	}
-#else /* USE_DIVIDE */
-
-	u[4] = (e1->m2 & 1) << 15;
-	b64_rsft(&(e1->mantissa));
-	u[0] = e1->m1 >> 16;
-	u[1] = e1->m1;
-	u[2] = e1->m2 >> 16;
-	u[3] = e1->m2;
-	u[5] = 0; u[6] = 0; u[7] = 0;
-	v[1] = e2->m1 >> 16;
-	v[2] = e2->m1;
-	v[3] = e2->m2 >> 16;
-	v[4] = e2->m2;
-	while (! v[maxv]) maxv--;
-	result.h_32 = 0;
-	result.l_32 = 0;
-	lp = &result.h_32;
-
-	/*
-	 * Use an algorithm of Knuth (The art of programming, Seminumerical
-	 * algorithms), to divide u by v. u and v are both seen as numbers
-	 * with base 65536. 
-	 */
-	for (j = 0; j <= 3; j++, u_p++) {
-		unsigned long q_est, temp;
-
-		if (j == 2) lp++;
-		if (u_p[0] == 0 && u_p[1] < v[1]) continue;
-		temp = ((unsigned long)u_p[0] << 16) + u_p[1];
-		if (u_p[0] >= v[1]) {
-			q_est = 0x0000FFFFL;
-		}
-		else {
-			q_est = temp / v[1];
-		}
-		temp -= q_est * v[1];
-		while (temp < 0x10000 && v[2]*q_est > ((temp<<16)+u_p[2])) {
-			q_est--;
-			temp += v[1];
-		}
-		/*	Now, according to Knuth, we have an estimate of the
-			quotient, that is either correct or one too big, but
-			almost always correct.
-		*/
-		if (q_est != 0)  {
-			int i;
-			unsigned long k = 0;
-			int borrow = 0;
-
-			for (i = maxv; i > 0; i--) {
-				unsigned long tmp = q_est * v[i] + k + borrow;
-				unsigned short md = tmp;
-
-				borrow = (md > u_p[i]);
-				u_p[i] -= md;
-				k = tmp >> 16;
-			}
-			k += borrow;
-			borrow = u_p[0] < k;
-			u_p[0] -= k;
-
-			if (borrow) {
-				/* So, this does not happen often; the estimate
-				   was one too big; correct this
-				*/
-				*lp |= (j & 1) ? (q_est - 1) : ((q_est-1)<<16);
-				borrow = 0;
-				for (i = maxv; i > 0; i--) {
-					unsigned long tmp 
-					    = v[i]+(unsigned long)u_p[i]+borrow;
-					
-					u_p[i] = tmp;
-					borrow = tmp >> 16;
-				}
-				u_p[0] += borrow;
-			}
-			else *lp |= (j & 1) ? q_est : (q_est<<16);
-		}
-	}
-#ifdef	EXCEPTION_INEXACT
-	u_p = &u[0];
-	for (j = 7; j >= 0; j--) {
-		if (*u_p++) {
-			error = 1;
-			break;
-		}
-	}
-#endif
-#endif
-
-#ifdef  EXCEPTION_INEXACT
-        if (error)      {
-                /*
-                 * report here exception 8.5 - Inexact
-                 * from Draft 8.0 of IEEE P754:
-                 * In the absence of an invalid operation exception,
-                 * if the rounded result of an operation is not exact or if
-                 * it overflows without a trap, then the inexact exception
-                 * shall be assigned. The rounded or overflowed result
-                 * shall be delivered to the destination.
-                 */
-                INEXACT();
-#endif
-	e1->mantissa = result;
-
-	nrm_ext(e1);
-	if (e1->exp < EXT_MIN)	{
-		/*
-		 * Exception 8.4 - Underflow
-		 */
-		trap(EFUNFL);	/* underflow */
-		e1->exp = EXT_MIN;
-		e1->m1 = e1->m2 = 0L;
-		return;
-	}
-	if (e1->exp >= EXT_MAX) {
-                /*
-                 * Exception 8.3 - Overflow
-                 */
-                trap(EFOVFL);   /* overflow */
-                e1->exp = EXT_MAX;
-                e1->m1 = e1->m2 = 0L;
-                return;
-        }
-}
Index: trunk/minix/lib/ack/float/div_ext.s
===================================================================
--- trunk/minix/lib/ack/float/div_ext.s	(revision 9)
+++ 	(revision )
@@ -1,211 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .div_ext
-.sect .text
-.div_ext:
-push ebp
-mov ebp,esp
-sub	esp,20
-push esi
-push edi
-mov esi,8(ebp)
-o16 mov -2(ebp),0
-mov edx,12(ebp)
-mov ecx,12(ebp)
-mov ecx,8(ecx)
-or ecx,4(edx)
-jne I1_4
-push 7
-call __fptrp
-pop ecx
-xor edx,edx
-mov 8(esi),edx
-mov 4(esi),edx
-o16 mov 2(esi),16383
-jmp I1_1
-I1_4:
-mov edx,8(esi)
-or edx,4(esi)
-jne I1_7
-o16 mov 2(esi),0
-jmp I1_1
-I1_7:
-lea eax,4(esi)
-push eax
-call .b64_rsft
-pop ecx
-mov edx,12(ebp)
-! kill edx
-add edx,4
-push edx
-call .b64_rsft
-pop ecx
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-mov edx,12(ebp)
-! kill edx
-movsx ebx,2(edx)
-inc ebx
-mov eax,ebx
-movsx eax,eax
-mov edx,12(ebp)
-! kill edx
-o16 mov 2(edx),eax
-mov edx,12(ebp)
-movsx eax,(edx)
-movsx ebx,(esi)
-xor ebx,eax
-o16 mov (esi),ebx
-movsx eax,2(esi)
-mov edx,12(ebp)
-! kill edx
-movsx ecx,2(edx)
-sub ecx,eax
-neg ecx
-mov eax,ecx
-movsx eax,eax
-o16 mov 2(esi),eax
-o16 mov -18(ebp),64
-mov -12(ebp),0
-mov -8(ebp),0
-I1_10:
-movzx edx,-18(ebp)
-mov eax,edx
-movsx eax,eax
-dec eax
-o16 mov -18(ebp),eax
-mov eax,edx
-movsx eax,eax
-test eax,eax
-je I1_9
-lea eax,-12(ebp)
-push eax
-call .b64_lsft
-pop ecx
-mov edx,12(ebp)
-mov edx,4(edx)
-cmp 4(esi),edx
-jb I1_14
-mov edx,12(ebp)
-mov edx,4(edx)
-cmp 4(esi),edx
-jne I1_13
-mov edx,12(ebp)
-mov edx,8(edx)
-cmp 8(esi),edx
-jb I1_14
-I1_13:
-inc -8(ebp)
-mov edx,12(ebp)
-mov ecx,8(esi)
-cmp 8(edx),ecx
-jbe I1_18
-mov edx,4(esi)
-sub edx,1
-mov 4(esi),edx
-I1_18:
-mov edx,12(ebp)
-mov ecx,4(esi)
-sub ecx,4(edx)
-mov 4(esi),ecx
-mov edx,12(ebp)
-mov ecx,8(esi)
-sub ecx,8(edx)
-mov 8(esi),ecx
-I1_14:
-mov edi,esi
-add edi,4
-mov edx,(edi)
-or edx,4(edi)
-je I1_21
-mov eax,1
-jmp I1_22
-I1_21:
-xor eax,eax
-I1_22:
-o16 mov -2(ebp),eax
-movzx edx,-2(ebp)
-test edx,edx
-je I1_9
-lea eax,4(esi)
-push eax
-call .b64_lsft
-pop ecx
-jmp I1_10
-I1_9:
-movsx eax,-18(ebp)
-! kill cc
-test eax,eax
-jle I1_27
-lea edi,-12(ebp)
-movsx eax,-18(ebp)
-cmp eax,31
-jle I1_30
-mov edx,4(edi)
-mov (edi),edx
-movsx eax,-18(ebp)
-sub eax,32
-o16 mov -18(ebp),eax
-mov 4(edi),0
-I1_30:
-cmp (edi),0
-je I1_33
-movsx eax,-18(ebp)
-mov ecx,eax
-mov edx,(edi)
-sal edx,cl
-mov (edi),edx
-I1_33:
-add edi,4
-cmp (edi),0
-je I1_27
-movsx eax,-18(ebp)
-sub eax,32
-neg eax
-mov ecx,eax
-mov edx,(edi)
-shr edx,cl
-or -12(ebp),edx
-movsx eax,-18(ebp)
-mov ecx,eax
-mov edx,(edi)
-sal edx,cl
-mov (edi),edx
-I1_27:
-lea eax,-12(ebp)
-push eax
-lea eax,4(esi)
-push eax
-mov ecx,2
-call .blm
-push esi
-call .nrm_ext
-pop ecx
-movsx eax,2(esi)
-cmp eax,-16382
-jge I1_39
-push 5
-call __fptrp
-pop ecx
-o16 mov 2(esi),-16382
-xor edx,edx
-mov 8(esi),edx
-mov 4(esi),edx
-jmp I1_1
-I1_39:
-movsx eax,2(esi)
-cmp eax,16383
-jl I1_1
-push 4
-call __fptrp
-pop ecx
-o16 mov 2(esi),16383
-xor edx,edx
-mov 8(esi),edx
-mov 4(esi),edx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/dvf4.fc
===================================================================
--- trunk/minix/lib/ack/float/dvf4.fc	(revision 9)
+++ 	(revision )
@@ -1,26 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/dvf4.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	DIVIDE TWO SINGLES - SINGLE Precision (dvf 4)
-*/
-
-#include	"FP_types.h"
-
-void
-dvf4(s2,s1)
-SINGLE	s1,s2;
-{
-	EXTEND	e1,e2;
-
-	extend(&s1,&e1,sizeof(SINGLE));
-	extend(&s2,&e2,sizeof(SINGLE));
-
-		/* do a divide */
-	div_ext(&e1,&e2);
-	compact(&e1,&s1,sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/dvf4.s
===================================================================
--- trunk/minix/lib/ack/float/dvf4.s	(revision 9)
+++ 	(revision )
@@ -1,37 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .dvf4
-.sect .text
-.dvf4:
-push ebp
-mov ebp,esp
-sub	esp,24
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-push 4
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .div_ext
-pop ecx
-pop ecx
-push 4
-lea eax,12(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-leave
-ret
Index: trunk/minix/lib/ack/float/dvf8.fc
===================================================================
--- trunk/minix/lib/ack/float/dvf8.fc	(revision 9)
+++ 	(revision )
@@ -1,26 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/dvf8.fc,v 1.1 2005/10/10 15:27:42 beng Exp $ */
-
-/*
-	DIVIDE TWO FLOATS - DOUBLE Precision (DVF 8)
-*/
-
-#include	"FP_types.h"
-
-void
-dvf8(s2,s1)
-DOUBLE	s1,s2;
-{
-	EXTEND	e1,e2;
-
-	extend(&s1.d[0],&e1,sizeof(DOUBLE));
-	extend(&s2.d[0],&e2,sizeof(DOUBLE));
-
-		/* do a divide */
-	div_ext(&e1,&e2);
-	compact(&e1,&s1.d[0],sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/dvf8.s
===================================================================
--- trunk/minix/lib/ack/float/dvf8.s	(revision 9)
+++ 	(revision )
@@ -1,37 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .dvf8
-.sect .text
-.dvf8:
-push ebp
-mov ebp,esp
-sub	esp,24
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-push 8
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .div_ext
-pop ecx
-pop ecx
-push 8
-lea eax,16(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-leave
-ret
Index: trunk/minix/lib/ack/float/extend.fc
===================================================================
--- trunk/minix/lib/ack/float/extend.fc	(revision 9)
+++ 	(revision )
@@ -1,111 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/extend.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	CONVERTS FLOATING POINT TO EXTENDED FORMAT
-
-	Two sizes of FLOATING Point are known:
-		SINGLE and DOUBLE
-*/
-/********************************************************/
-/*
-	It is not required to normalize in extended
-	format, but it has been chosen to do so.
-	Extended Format is as follows (at exit):
-
-->sign	S000 0000 | 0000 0000		<SIGN>
-->exp	0EEE EEEE | EEEE EEEE		<EXPONENT>
-->m1	LFFF FFFF | FFFF FFFF		<L.Fraction>
-	FFFF FFFF | FFFF FFFF		<Fraction>
-->m2	FFFF FFFF | FFFF FFFF		<Fraction>
-	FFFF F000 | 0000 0000		<Fraction>
-*/
-/********************************************************/
-
-#include "FP_bias.h"
-#include "FP_shift.h"
-#include "FP_types.h"
-#include "get_put.h"
-/********************************************************/
-
-void
-extend(from,to,size)
-unsigned long	*from;
-EXTEND	*to;
-int	size;
-{
-	register char *cpt1;
-	unsigned long	tmp;
-	int	leadbit = 0;
-
-	cpt1 = (char *) from;
-
-#if FL_MSL_AT_LOW_ADDRESS
-#if FL_MSW_AT_LOW_ADDRESS
-	to->exp = uget2(cpt1);
-#else
-	to->exp = uget2(cpt1+2);
-#endif
-#else
-#if FL_MSW_AT_LOW_ADDRESS
-	to->exp = uget2(cpt1+(size == sizeof(DOUBLE) ? 4 : 0));
-#else
-	to->exp = uget2(cpt1+(size == sizeof(DOUBLE) ? 6 : 2));
-#endif
-#endif
-	to->sign = (to->exp & 0x8000);	/* set sign bit */
-	to->exp ^= to->sign;
-	if (size == sizeof(DOUBLE))
-		to->exp >>= DBL_EXPSHIFT;
-	else
-		to->exp >>= SGL_EXPSHIFT;
-	if (to->exp > 0)
-		leadbit++;	/* will set Lead bit later	*/
-	else to->exp++;
-
-	if (size == sizeof(DOUBLE))	{
-#if FL_MSL_AT_LOW_ADDRESS
-		to->m1 = get4(cpt1);
-		cpt1 += 4;
-		tmp = get4(cpt1);
-#else
-		tmp = get4(cpt1);
-		cpt1 += 4;
-		to->m1 = get4(cpt1);
-#endif
-		if (to->exp == 1 && to->m1 == 0 && tmp == 0) {
-			to->exp = 0;
-			to->sign = 0;
-			to->m1 = 0;
-			to->m2 = 0;
-			return;
-		}
-		to->m1 <<= DBL_M1LEFT;		/* shift	*/
-		to->exp -= DBL_BIAS;		/* remove bias	*/
-		to->m1 |= (tmp>>DBL_RPACK);	/* plus 10 == 32	*/
-		to->m2 = (tmp<<DBL_LPACK);	/* plus 22 == 32	*/
-	}
-	else	{	/* size == sizeof(SINGLE)		*/
-		to->m1 = get4(cpt1);
-		to->m1  <<= SGL_M1LEFT;	/* shift	*/
-		if (to->exp == 1 && to->m1 == 0) {
-			to->exp = 0;
-			to->sign = 0;
-			to->m1 = 0;
-			to->m2 = 0;
-			return;
-		}
-		to->exp -= SGL_BIAS;		/* remove bias	*/
-		to->m2 = 0L;
-	}
-
-	to->m1 |= NORMBIT;				/* set bit L	*/
-	if (leadbit == 0) {		/* set or clear Leading Bit	*/
-		to->m1 &= ~NORMBIT;			/* clear bit L	*/
-		nrm_ext(to);				/* and normalize */
-	}
-}
Index: trunk/minix/lib/ack/float/extend.s
===================================================================
--- trunk/minix/lib/ack/float/extend.s	(revision 9)
+++ 	(revision )
@@ -1,127 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .extend
-.sect .text
-.extend:
-push ebp
-mov ebp,esp
-sub	esp,12
-push esi
-push edi
-mov esi,12(ebp)
-mov -12(ebp),0
-mov edi,8(ebp)
-push edi
-cmp 16(ebp),8
-jne I1_4
-mov eax,6
-jmp I1_5
-I1_4:
-mov eax,2
-I1_5:
-pop edx
-add edx,eax
-movsx eax,(edx)
-o16 mov 2(esi),eax
-movsx ebx,2(esi)
-and ebx,32768
-o16 mov (esi),ebx
-movsx eax,(esi)
-movsx ecx,2(esi)
-xor ecx,eax
-mov eax,ecx
-movsx eax,eax
-o16 mov 2(esi),eax
-cmp 16(ebp),8
-jne I1_7
-movsx ebx,2(esi)
-sar ebx,4
-mov eax,ebx
-movsx eax,eax
-o16 mov 2(esi),eax
-jmp I1_8
-I1_7:
-movsx eax,2(esi)
-sar eax,7
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_8:
-movsx eax,2(esi)
-! kill cc
-test eax,eax
-jle I1_10
-inc -12(ebp)
-jmp I1_11
-I1_10:
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_11:
-cmp 16(ebp),8
-jne I1_13
-mov edx,(edi)
-mov -8(ebp),edx
-add edi,4
-mov edx,(edi)
-mov 4(esi),edx
-movsx eax,2(esi)
-cmp eax,1
-jne I1_16
-cmp 4(esi),0
-jne I1_16
-cmp -8(ebp),0
-jne I1_16
-o16 mov 2(esi),0
-o16 mov (esi),0
-mov 4(esi),0
-mov 8(esi),0
-jmp I1_1
-I1_16:
-mov edx,4(esi)
-sal edx,11
-mov 4(esi),edx
-movsx eax,2(esi)
-sub eax,1023
-movsx eax,eax
-o16 mov 2(esi),eax
-mov edx,-8(ebp)
-shr edx,21
-or 4(esi),edx
-mov edx,-8(ebp)
-sal edx,11
-mov 8(esi),edx
-jmp I1_14
-I1_13:
-mov edx,(edi)
-mov 4(esi),edx
-sal edx,8
-mov 4(esi),edx
-movsx eax,2(esi)
-cmp eax,1
-jne I1_21
-cmp 4(esi),0
-jne I1_21
-o16 mov 2(esi),0
-o16 mov (esi),0
-mov 4(esi),0
-mov 8(esi),0
-jmp I1_1
-I1_21:
-movsx eax,2(esi)
-sub eax,127
-movsx eax,eax
-o16 mov 2(esi),eax
-mov 8(esi),0
-I1_14:
-or 4(esi),-2147483648
-cmp -12(ebp),0
-jne I1_1
-and 4(esi),2147483647
-push esi
-call .nrm_ext
-pop ecx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/fef4.fc
===================================================================
--- trunk/minix/lib/ack/float/fef4.fc	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/fef4.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	SEPERATE INTO EXPONENT AND FRACTION (FEF 4)
-*/
-
-#include	"FP_types.h"
-
-void
-fef4(r,s1)
-SINGLE	s1;
-struct fef4_returns	*r;
-{
-	EXTEND	buf;
-	register struct fef4_returns	*p = r;	/* make copy; r might refer
-						   to itself (see table)
-						*/
-
-	extend(&s1,&buf,sizeof(SINGLE));
-	if (buf.exp == 0 && buf.m1 == 0 && buf.m2 == 0) {
-		p->e = 0;
-	}
-	else {
-		p->e = buf.exp+1;
-		buf.exp = -1;
-	}
-	compact(&buf,&p->f,sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/fef4.s
===================================================================
--- trunk/minix/lib/ack/float/fef4.s	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .fef4
-.sect .text
-.fef4:
-push ebp
-mov ebp,esp
-sub	esp,12
-push esi
-mov esi,8(ebp)
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-movzx edx,-10(ebp)
-test edx,edx
-jne I1_4
-cmp -8(ebp),0
-jne I1_4
-cmp -4(ebp),0
-jne I1_4
-mov (esi),0
-jmp I1_5
-I1_4:
-movsx eax,-10(ebp)
-inc eax
-mov (esi),eax
-o16 mov -10(ebp),-1
-I1_5:
-push 4
-lea eax,4(esi)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/fef8.fc
===================================================================
--- trunk/minix/lib/ack/float/fef8.fc	(revision 9)
+++ 	(revision )
@@ -1,33 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/fef8.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	SEPERATE DOUBLE INTO EXPONENT AND FRACTION (FEF 8)
-*/
-
-#include	"FP_types.h"
-
-void
-fef8(r, s1)
-DOUBLE	s1;
-struct fef8_returns *r;
-{
-	EXTEND	buf;
-	register struct fef8_returns *p = r;	/* make copy, r might refer
-						   to itself (see table)
-						*/
-
-	extend(&s1.d[0],&buf,sizeof(DOUBLE));
-	if (buf.exp == 0 && buf.m1 == 0 && buf.m2 == 0) {
-		p->e = 0;
-	}
-	else {
-		p->e = buf.exp + 1;
-		buf.exp = -1;
-	}
-	compact(&buf,&p->f.d[0],sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/fef8.s
===================================================================
--- trunk/minix/lib/ack/float/fef8.s	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .fef8
-.sect .text
-.fef8:
-push ebp
-mov ebp,esp
-sub	esp,12
-push esi
-mov esi,8(ebp)
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-movzx edx,-10(ebp)
-test edx,edx
-jne I1_4
-cmp -8(ebp),0
-jne I1_4
-cmp -4(ebp),0
-jne I1_4
-mov (esi),0
-jmp I1_5
-I1_4:
-movsx eax,-10(ebp)
-inc eax
-mov (esi),eax
-o16 mov -10(ebp),-1
-I1_5:
-push 8
-lea eax,4(esi)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/fif4.fc
===================================================================
--- trunk/minix/lib/ack/float/fif4.fc	(revision 9)
+++ 	(revision )
@@ -1,46 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/fif4.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	MULTIPLY AND DISMEMBER PARTS (FIF 4)
-*/
-
-#include "FP_types.h"
-#include "FP_shift.h"
-
-void
-fif4(p,x,y)
-SINGLE	x,y;
-struct fif4_returns *p;
-{
-
-	EXTEND	e1,e2;
-
-	extend(&y,&e1,sizeof(SINGLE));
-	extend(&x,&e2,sizeof(SINGLE));
-		/* do a multiply */
-	mul_ext(&e1,&e2);
-	e2 = e1;
-	compact(&e2,&y,sizeof(SINGLE));
-	if (e1.exp < 0) {
-		p->ipart = 0;
-		p->fpart = y;
-		return;
-	}
-	if (e1.exp > 30 - SGL_M1LEFT) {
-		p->ipart = y;
-		p->fpart = 0;
-		return;
-	}
-	b64_sft(&e1.mantissa, 63 - e1.exp);
-	b64_sft(&e1.mantissa, e1.exp - 63);	/* "loose" low order bits */
-	compact(&e1,&(p->ipart),sizeof(SINGLE));
-	extend(&(p->ipart), &e2, sizeof(SINGLE));
-	extend(&y, &e1, sizeof(SINGLE));
-	sub_ext(&e1, &e2);
-	compact(&e1, &(p->fpart), sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/fif4.s
===================================================================
--- trunk/minix/lib/ack/float/fif4.s	(revision 9)
+++ 	(revision )
@@ -1,113 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .fif4
-.sect .text
-.fif4:
-push ebp
-mov ebp,esp
-sub	esp,24
-push esi
-mov esi,8(ebp)
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-push 4
-lea eax,-24(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .mul_ext
-pop ecx
-pop ecx
-lea eax,-12(ebp)
-push eax
-lea eax,-24(ebp)
-push eax
-mov ecx,3
-call .blm
-push 4
-lea eax,16(ebp)
-push eax
-lea eax,-24(ebp)
-push eax
-call .compact
-add esp,12
-movsx eax,-10(ebp)
-test eax,eax
-jns I1_4
-mov (esi),0
-mov edx,16(ebp)
-mov 4(esi),edx
-jmp I1_1
-I1_4:
-movsx eax,-10(ebp)
-cmp eax,22
-jle I1_7
-mov edx,16(ebp)
-mov (esi),edx
-mov 4(esi),0
-jmp I1_1
-I1_7:
-movsx eax,-10(ebp)
-sub eax,63
-neg eax
-push eax
-lea eax,-8(ebp)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-movsx eax,-10(ebp)
-sub eax,63
-push eax
-lea eax,-8(ebp)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-push 4
-push esi
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-push 4
-lea eax,-24(ebp)
-push eax
-push esi
-call .extend
-add esp,12
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .sub_ext
-pop ecx
-pop ecx
-push 4
-lea eax,4(esi)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/fif8.fc
===================================================================
--- trunk/minix/lib/ack/float/fif8.fc	(revision 9)
+++ 	(revision )
@@ -1,48 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/fif8.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	MULTIPLY AND DISMEMBER PARTS (FIF 8)
-*/
-
-#include "FP_types.h"
-#include "FP_shift.h"
-
-void
-fif8(p,x,y)
-DOUBLE	x,y;
-struct fif8_returns *p;
-{
-
-	EXTEND	e1,e2;
-
-	extend(&y.d[0],&e1,sizeof(DOUBLE));
-	extend(&x.d[0],&e2,sizeof(DOUBLE));
-		/* do a multiply */
-	mul_ext(&e1,&e2);
-	e2 = e1;
-	compact(&e2, &y.d[0], sizeof(DOUBLE));
-	if (e1.exp < 0) {
-		p->ipart.d[0] = 0;
-		p->ipart.d[1] = 0;
-		p->fpart = y;
-		return;
-	}
-	if (e1.exp > 62 - DBL_M1LEFT) {
-		p->ipart = y;
-		p->fpart.d[0] = 0;
-		p->fpart.d[1] = 0;
-		return;
-	}
-	b64_sft(&e1.mantissa, 63 - e1.exp);
-	b64_sft(&e1.mantissa, e1.exp - 63);	/* "loose" low order bits */
-	compact(&e1, &(p->ipart.d[0]), sizeof(DOUBLE));
-	extend(&(p->ipart.d[0]), &e2, sizeof(DOUBLE));
-	extend(&y.d[0], &e1, sizeof(DOUBLE));
-	sub_ext(&e1, &e2);
-	compact(&e1, &(p->fpart.d[0]), sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/fif8.s
===================================================================
--- trunk/minix/lib/ack/float/fif8.s	(revision 9)
+++ 	(revision )
@@ -1,122 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .fif8
-.sect .text
-.fif8:
-push ebp
-mov ebp,esp
-sub	esp,24
-push esi
-mov esi,8(ebp)
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,20(ebp)
-push eax
-call .extend
-add esp,12
-push 8
-lea eax,-24(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .mul_ext
-pop ecx
-pop ecx
-lea eax,-12(ebp)
-push eax
-lea eax,-24(ebp)
-push eax
-mov ecx,3
-call .blm
-push 8
-lea eax,20(ebp)
-push eax
-lea eax,-24(ebp)
-push eax
-call .compact
-add esp,12
-movsx eax,-10(ebp)
-test eax,eax
-jns I1_4
-mov (esi),0
-mov 4(esi),0
-lea eax,20(ebp)
-push eax
-lea eax,8(esi)
-push eax
-mov ecx,2
-call .blm
-jmp I1_1
-I1_4:
-movsx eax,-10(ebp)
-cmp eax,51
-jle I1_7
-lea eax,20(ebp)
-push eax
-push esi
-mov ecx,2
-call .blm
-mov 8(esi),0
-mov 12(esi),0
-jmp I1_1
-I1_7:
-movsx eax,-10(ebp)
-sub eax,63
-neg eax
-push eax
-lea eax,-8(ebp)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-movsx eax,-10(ebp)
-sub eax,63
-push eax
-lea eax,-8(ebp)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-push 8
-push esi
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-push 8
-lea eax,-24(ebp)
-push eax
-push esi
-call .extend
-add esp,12
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,20(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .sub_ext
-pop ecx
-pop ecx
-push 8
-lea eax,8(esi)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/fptrp.s
===================================================================
--- trunk/minix/lib/ack/float/fptrp.s	(revision 9)
+++ 	(revision )
@@ -1,19 +1,0 @@
-#
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.define __fptrp
-.sect .text
-__fptrp:
-#if __i386
-	push	ebp
-	mov	ebp, esp
-	mov	eax, 8(bp)
-	call	.Xtrp
-	leave
-	ret
-#else /* i86 */
-	push	bp
-	mov	bp, sp
-	mov	ax, 4(bp)
-	call	.Xtrp
-	jmp	.cret
-#endif
Index: trunk/minix/lib/ack/float/get_put.h
===================================================================
--- trunk/minix/lib/ack/float/get_put.h	(revision 9)
+++ 	(revision )
@@ -1,41 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/get_put.h,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-#include <byte_order.h>
-
-#if CHAR_UNSIGNED
-#define Xchar(ch)	(ch)
-#else
-#define Xchar(ch)	((ch) & 0377)
-#endif
-
-#define BYTES_REVERSED (MSB_AT_LOW_ADDRESS != FL_MSB_AT_LOW_ADDRESS)
-#define WORDS_REVERSED (MSW_AT_LOW_ADDRESS != FL_MSW_AT_LOW_ADDRESS)
-#define LONGS_REVERSED (FL_MSL_AT_LOW_ADDRESS)
-
-#if BYTES_REVERSED
-#define uget2(c)	(Xchar((c)[1]) | ((unsigned) Xchar((c)[0]) << 8))
-#define Xput2(i, c)	(((c)[1] = (i)), ((c)[0] = (i) >> 8))
-#define put2(i, c)	{ register int j = (i); Xput2(j, c); }
-#else
-#define uget2(c)	(* ((unsigned short *) (c)))
-#define Xput2(i, c)	(* ((short *) (c)) = (i))
-#define put2(i, c)	Xput2(i, c)
-#endif
-
-#define get2(c)		((short) uget2(c))
-
-#if WORDS_REVERSED || BYTES_REVERSED
-#define get4(c)		(uget2((c)+2) | ((long) uget2(c) << 16))
-#define put4(l, c)	{ register long x=(l); \
-			  Xput2((int)x,(c)+2); \
-			  Xput2((int)(x>>16),(c)); \
-			}
-#else
-#define get4(c)		(* ((long *) (c)))
-#define put4(l, c)	(* ((long *) (c)) = (l))
-#endif
Index: trunk/minix/lib/ack/float/mlf4.fc
===================================================================
--- trunk/minix/lib/ack/float/mlf4.fc	(revision 9)
+++ 	(revision )
@@ -1,25 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/mlf4.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
- * Multiply Single Precesion Float (MLF 4)
- */
-
-#include	"FP_types.h"
-
-void
-mlf4(s2,s1)
-SINGLE	s1,s2;
-{
-	EXTEND	e1,e2;
-
-	extend(&s1,&e1,sizeof(SINGLE));
-	extend(&s2,&e2,sizeof(SINGLE));
-		/* do a multiply */
-	mul_ext(&e1,&e2);
-	compact(&e1,&s1,sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/mlf4.s
===================================================================
--- trunk/minix/lib/ack/float/mlf4.s	(revision 9)
+++ 	(revision )
@@ -1,37 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .mlf4
-.sect .text
-.mlf4:
-push ebp
-mov ebp,esp
-sub	esp,24
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-push 4
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .mul_ext
-pop ecx
-pop ecx
-push 4
-lea eax,12(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-leave
-ret
Index: trunk/minix/lib/ack/float/mlf8.fc
===================================================================
--- trunk/minix/lib/ack/float/mlf8.fc	(revision 9)
+++ 	(revision )
@@ -1,25 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/mlf8.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
- * Multiply Double Precision Float (MLF 8)
- */
-
-#include	"FP_types.h"
-
-void
-mlf8(s2,s1)
-DOUBLE	s1,s2;
-{
-	EXTEND	e1,e2;
-
-	extend(&s1.d[0],&e1,sizeof(DOUBLE));
-	extend(&s2.d[0],&e2,sizeof(DOUBLE));
-		/* do a multiply */
-	mul_ext(&e1,&e2);
-	compact(&e1,&s1.d[0],sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/mlf8.s
===================================================================
--- trunk/minix/lib/ack/float/mlf8.s	(revision 9)
+++ 	(revision )
@@ -1,37 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .mlf8
-.sect .text
-.mlf8:
-push ebp
-mov ebp,esp
-sub	esp,24
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-push 8
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .mul_ext
-pop ecx
-pop ecx
-push 8
-lea eax,16(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-leave
-ret
Index: trunk/minix/lib/ack/float/mul_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/mul_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,98 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/mul_ext.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	ROUTINE TO MULTIPLY TWO EXTENDED FORMAT NUMBERS
-*/
-
-# include "FP_bias.h"
-# include "FP_trap.h"
-# include "FP_types.h"
-# include "FP_shift.h"
-
-void
-mul_ext(e1,e2)
-EXTEND	*e1,*e2;
-{
-	register int	i,j;		/* loop control	*/
-	unsigned short	mp[4];		/* multiplier */
-	unsigned short	mc[4];		/* multipcand */
-	unsigned short	result[8];	/* result */
-	register unsigned short *pres;
-
-	/* first save the sign (XOR)			*/
-	e1->sign ^= e2->sign;
-
-	/* compute new exponent */
-	e1->exp += e2->exp + 1;
-	/* 128 bit multiply of mantissas			*/
-
-		/* assign unknown long formats		*/
-		/* to known unsigned word formats	*/
-	mp[0] = e1->m1 >> 16;
-	mp[1] = (unsigned short) e1->m1;
-	mp[2] = e1->m2 >> 16;
-	mp[3] = (unsigned short) e1->m2;
-	mc[0] = e2->m1 >> 16;
-	mc[1] = (unsigned short) e2->m1;
-	mc[2] = e2->m2 >> 16;
-	mc[3] = (unsigned short) e2->m2;
-	for (i = 8; i--;) {
-		result[i] = 0;
-	}
-	/*
-	 *	fill registers with their components
-	 */
-	for(i=4, pres = &result[4];i--;pres--) if (mp[i]) {
-		unsigned short k = 0;
-		unsigned long mpi = mp[i];
-		for(j=4;j--;) {
-			unsigned long tmp = (unsigned long)pres[j] + k;
-			if (mc[j]) tmp += mpi * mc[j];
-			pres[j] = tmp;
-			k = tmp >> 16;
-		}
-		pres[-1] = k;
-	}
-        if (! (result[0] & 0x8000)) {
-                e1->exp--;
-                for (i = 0; i <= 3; i++) {
-                        result[i] <<= 1;
-                        if (result[i+1]&0x8000) result[i] |= 1;
-                }
-                result[4] <<= 1;
-        }
-
-	/*
-	 *	combine the registers to a total
-	 */
-	e1->m1 = ((unsigned long)(result[0]) << 16) + result[1];
-	e1->m2 = ((unsigned long)(result[2]) << 16) + result[3];
-	if (result[4] & 0x8000) {
-		if (++e1->m2 == 0)
-			if (++e1->m1 == 0) {
-				e1->m1 = NORMBIT;
-				e1->exp++;
-			}
-	}
-
-					/* check for overflow	*/
-	if (e1->exp >= EXT_MAX)	{
-		trap(EFOVFL);
-			/* if caught 			*/
-			/* return signed infinity	*/
-		e1->exp = EXT_MAX;
-infinity:	e1->m1 = e1->m2 =0L;
-		return;
-	}
-				/* check for underflow	*/
-	if (e1->exp < EXT_MIN)	{
-		trap(EFUNFL);
-		e1->exp = EXT_MIN;
-		goto infinity;
-	}
-}
Index: trunk/minix/lib/ack/float/mul_ext.s
===================================================================
--- trunk/minix/lib/ack/float/mul_ext.s	(revision 9)
+++ 	(revision )
@@ -1,209 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .mul_ext
-.sect .text
-.mul_ext:
-push ebp
-mov ebp,esp
-sub	esp,60
-push esi
-push edi
-mov esi,8(ebp)
-mov edx,12(ebp)
-movsx eax,(edx)
-movsx ebx,(esi)
-xor ebx,eax
-o16 mov (esi),ebx
-mov edx,12(ebp)
-! kill edx
-movsx eax,2(edx)
-inc eax
-movsx ecx,2(esi)
-add ecx,eax
-mov eax,ecx
-movsx eax,eax
-o16 mov 2(esi),eax
-mov edx,4(esi)
-shr edx,16
-and edx,65535
-o16 mov -16(ebp),edx
-mov edx,65535
-and edx,4(esi)
-o16 mov -14(ebp),edx
-mov edx,8(esi)
-shr edx,16
-and edx,65535
-o16 mov -12(ebp),edx
-mov edx,65535
-and edx,8(esi)
-o16 mov -10(ebp),edx
-mov edx,12(ebp)
-mov edx,4(edx)
-shr edx,16
-and edx,65535
-o16 mov -24(ebp),edx
-mov edx,12(ebp)
-mov ecx,65535
-and ecx,4(edx)
-o16 mov -22(ebp),ecx
-mov edx,8(edx)
-shr edx,16
-and edx,65535
-o16 mov -20(ebp),edx
-mov edx,12(ebp)
-mov ecx,65535
-and ecx,8(edx)
-o16 mov -18(ebp),ecx
-mov edi,8
-I1_6:
-mov edx,edi
-dec edx
-push edi
-mov edi,edx
-pop edx
-test edx,edx
-je I1_3
-o16 mov -40(ebp)(edi*2),0
-jmp I1_6
-I1_3:
-mov edi,4
-lea edx,-32(ebp)
-mov -44(ebp),edx
-I1_10:
-mov edx,edi
-dec edx
-push edi
-mov edi,edx
-pop edx
-test edx,edx
-je I1_7
-movzx edx,-16(ebp)(edi*2)
-test edx,edx
-je I1_8
-o16 mov -46(ebp),0
-movzx edx,-16(ebp)(edi*2)
-mov -52(ebp),edx
-mov -8(ebp),4
-I1_17:
-mov edx,-8(ebp)
-mov ecx,edx
-dec ecx
-mov -8(ebp),ecx
-test edx,edx
-je I1_14
-mov edx,-44(ebp)
-movzx ebx,-46(ebp)
-movzx eax,0(edx)(ecx*2)
-add ebx,eax
-mov -56(ebp),ebx
-movzx edx,-24(ebp)(ecx*2)
-test edx,edx
-je I1_19
-movzx edx,-24(ebp)(ecx*2)
-imul edx,-52(ebp)
-add -56(ebp),edx
-I1_19:
-mov edx,65535
-and edx,-56(ebp)
-mov ecx,-8(ebp)
-mov ebx,-44(ebp)
-o16 mov 0(ebx)(ecx*2),edx
-mov edx,-56(ebp)
-shr edx,16
-and edx,65535
-o16 mov -46(ebp),edx
-jmp I1_17
-I1_14:
-mov edx,-44(ebp)
-! kill edx
-o16 mov cx,-46(ebp)
-o16 mov -2(edx),cx
-I1_8:
-add -44(ebp),-2
-jmp I1_10
-I1_7:
-movzx edx,-40(ebp)
-test edx,32768
-jne I1_22
-movsx eax,2(esi)
-dec eax
-movsx eax,eax
-o16 mov 2(esi),eax
-xor edi,edi
-I1_27:
-cmp edi,3
-jg I1_24
-lea edx,-40(ebp)(edi*2)
-mov -60(ebp),edx
-movzx ecx,(edx)
-sal ecx,1
-and ecx,65535
-o16 mov (edx),ecx
-mov edx,edi
-inc edx
-movzx ecx,-40(ebp)(edx*2)
-test ecx,32768
-je I1_25
-lea edx,-40(ebp)(edi*2)
-mov -60(ebp),edx
-movzx ecx,(edx)
-or ecx,1
-and ecx,65535
-o16 mov (edx),ecx
-I1_25:
-inc edi
-jmp I1_27
-I1_24:
-movzx edx,-32(ebp)
-sal edx,1
-and edx,65535
-o16 mov -32(ebp),edx
-I1_22:
-movzx edx,-40(ebp)
-sal edx,16
-movzx ecx,-38(ebp)
-add ecx,edx
-mov 4(esi),ecx
-movzx edx,-36(ebp)
-sal edx,16
-movzx ecx,-34(ebp)
-add ecx,edx
-mov 8(esi),ecx
-movzx edx,-32(ebp)
-test edx,32768
-je I1_32
-add 8(esi),1
-jne I1_32
-add 4(esi),1
-jne I1_32
-mov 4(esi),-2147483648
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_32:
-movsx eax,2(esi)
-cmp eax,16383
-jl I1_41
-push 4
-call __fptrp
-pop ecx
-o16 mov 2(esi),16383
-I1_43:
-xor edx,edx
-mov 8(esi),edx
-mov 4(esi),edx
-jmp I1_1
-I1_41:
-movsx eax,2(esi)
-cmp eax,-16382
-jge I1_1
-push 5
-call __fptrp
-pop ecx
-o16 mov 2(esi),-16382
-jmp I1_43
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/ngf4.fc
===================================================================
--- trunk/minix/lib/ack/float/ngf4.fc	(revision 9)
+++ 	(revision )
@@ -1,27 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/ngf4.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-		NEGATE A FLOATING POINT (NGF 4)
-*/
-/********************************************************/
-
-#include "FP_types.h"
-#include "get_put.h"
-
-#define OFF ((FL_MSW_AT_LOW_ADDRESS ? 0 : 2) + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
-void
-ngf4(f)
-SINGLE	f;
-{
-	unsigned char *p;
-
-	if (f != (SINGLE) 0) {
-		p = (unsigned char *) &f + OFF;
-		*p ^= 0x80;
-	}
-}
Index: trunk/minix/lib/ack/float/ngf4.s
===================================================================
--- trunk/minix/lib/ack/float/ngf4.s	(revision 9)
+++ 	(revision )
@@ -1,17 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .ngf4
-.sect .text
-.ngf4:
-push ebp
-mov ebp,esp
-push esi
-cmp 8(ebp),0
-je I1_1
-lea esi,11(ebp)
-movzxb edx,(esi)
-xor edx,128
-movb (esi),dl
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/ngf8.fc
===================================================================
--- trunk/minix/lib/ack/float/ngf8.fc	(revision 9)
+++ 	(revision )
@@ -1,28 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/ngf8.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-		NEGATE A FLOATING POINT (NGF 8)
-*/
-/********************************************************/
-
-#include "FP_types.h"
-#include "get_put.h"
-
-#define OFF ((FL_MSL_AT_LOW_ADDRESS ? 0 : 4) + (FL_MSW_AT_LOW_ADDRESS ? 0 : 2) + (FL_MSB_AT_LOW_ADDRESS ? 0 : 1))
-
-void
-ngf8(f)
-DOUBLE	f;
-{
-	unsigned char	*p;
-
-	if (f.d[0] != 0 || f.d[1] != 0) {
-		p = (unsigned char *) &f + OFF;
-		*p ^= 0x80;
-	}
-}
Index: trunk/minix/lib/ack/float/ngf8.s
===================================================================
--- trunk/minix/lib/ack/float/ngf8.s	(revision 9)
+++ 	(revision )
@@ -1,20 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .ngf8
-.sect .text
-.ngf8:
-push ebp
-mov ebp,esp
-push esi
-cmp 8(ebp),0
-jne I1_3
-cmp 12(ebp),0
-je I1_1
-I1_3:
-lea esi,15(ebp)
-movzxb edx,(esi)
-xor edx,128
-movb (esi),dl
-I1_1:
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/nrm_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/nrm_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,50 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/nrm_ext.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/********************************************************/
-/*
-	NORMALIZE an EXTENDED FORMAT NUMBER
-*/
-/********************************************************/
-
-#include "FP_shift.h"
-#include "FP_types.h"
-
-void
-nrm_ext(e1)
-EXTEND	*e1;
-{
-		/* we assume that the mantissa != 0	*/
-		/* if it is then just return		*/
-		/* to let it be a problem elsewhere	*/
-		/* THAT IS, The exponent is not set to	*/
-		/* zero. If we don't test here an	*/
-		/* infinite loop is generated when	*/
-		/* mantissa is zero			*/
-
-	if ((e1->m1 | e1->m2) == 0L)
-		return;
-
-		/* if top word is zero mov low word	*/
-		/* to top word, adjust exponent value	*/
-	if (e1->m1 == 0L)	{
-		e1->m1 = e1->m2;
-		e1->m2 = 0L;
-		e1->exp -= 32;
-	}
-	if ((e1->m1 & NORMBIT) == 0) {
-		unsigned long l = ((unsigned long)NORMBIT >> 1);
-		int cnt = -1;
-
-		while (! (l & e1->m1)) {
-			l >>= 1;
-			cnt--;
-		}
-		e1->exp += cnt;
-		b64_sft(&(e1->mantissa), cnt);
-	}
-}
Index: trunk/minix/lib/ack/float/nrm_ext.s
===================================================================
--- trunk/minix/lib/ack/float/nrm_ext.s	(revision 9)
+++ 	(revision )
@@ -1,50 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .nrm_ext
-.sect .text
-.nrm_ext:
-push ebp
-mov ebp,esp
-sub	esp,4
-push esi
-push edi
-mov esi,8(ebp)
-mov edx,8(esi)
-or edx,4(esi)
-je I1_1
-cmp 4(esi),0
-jne I1_7
-mov edx,8(esi)
-mov 4(esi),edx
-mov 8(esi),0
-movsx eax,2(esi)
-sub eax,32
-movsx eax,eax
-o16 mov 2(esi),eax
-I1_7:
-test 4(esi),-2147483648
-jne I1_1
-mov -4(ebp),1073741824
-mov edi,-1
-I1_13:
-mov edx,-4(ebp)
-test 4(esi),edx
-jne I1_12
-shr -4(ebp),1
-dec edi
-jmp I1_13
-I1_12:
-movsx eax,2(esi)
-add eax,edi
-movsx eax,eax
-o16 mov 2(esi),eax
-push edi
-lea eax,4(esi)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/sbf4.fc
===================================================================
--- trunk/minix/lib/ack/float/sbf4.fc	(revision 9)
+++ 	(revision )
@@ -1,27 +1,0 @@
-/*
- (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/sbf4.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	SUBTRACT TWO FLOATS - SINGLE Precision (SBF 4)
-*/
-
-#include	"FP_types.h"
-
-void
-sbf4(s2,s1)
-SINGLE	s1,s2;
-{
-	EXTEND e1,e2;
-
-	if (s2 == (SINGLE) 0) {
-		return;
-	}
-	extend(&s1,&e1,sizeof(SINGLE));
-	extend(&s2,&e2,sizeof(SINGLE));
-	sub_ext(&e1,&e2);
-	compact(&e1,&s1,sizeof(SINGLE));
-}
Index: trunk/minix/lib/ack/float/sbf4.s
===================================================================
--- trunk/minix/lib/ack/float/sbf4.s	(revision 9)
+++ 	(revision )
@@ -1,40 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .sbf4
-.sect .text
-.sbf4:
-push ebp
-mov ebp,esp
-sub	esp,24
-cmp 8(ebp),0
-je I1_1
-push 4
-lea eax,-12(ebp)
-push eax
-lea eax,12(ebp)
-push eax
-call .extend
-add esp,12
-push 4
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .sub_ext
-pop ecx
-pop ecx
-push 4
-lea eax,12(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-leave
-ret
Index: trunk/minix/lib/ack/float/sbf8.fc
===================================================================
--- trunk/minix/lib/ack/float/sbf8.fc	(revision 9)
+++ 	(revision )
@@ -1,27 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/sbf8.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	SUBTRACT TWO FLOATS - DOUBLE Precision (SBF 8)
-*/
-
-#include	"FP_types.h"
-
-void
-sbf8(s2,s1)
-DOUBLE	s1,s2;
-{
-	EXTEND e1, e2;
-
-	if (s2.d[0] == 0 && s2.d[1] == 0) {
-		return;
-	}
-	extend(&s1.d[0],&e1,sizeof(DOUBLE));
-	extend(&s2.d[0],&e2,sizeof(DOUBLE));
-	sub_ext(&e1,&e2);
-	compact(&e1,&s1.d[0],sizeof(DOUBLE));
-}
Index: trunk/minix/lib/ack/float/sbf8.s
===================================================================
--- trunk/minix/lib/ack/float/sbf8.s	(revision 9)
+++ 	(revision )
@@ -1,43 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .sbf8
-.sect .text
-.sbf8:
-push ebp
-mov ebp,esp
-sub	esp,24
-cmp 8(ebp),0
-jne I1_4
-cmp 12(ebp),0
-je I1_1
-I1_4:
-push 8
-lea eax,-12(ebp)
-push eax
-lea eax,16(ebp)
-push eax
-call .extend
-add esp,12
-push 8
-lea eax,-24(ebp)
-push eax
-lea eax,8(ebp)
-push eax
-call .extend
-add esp,12
-lea eax,-24(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .sub_ext
-pop ecx
-pop ecx
-push 8
-lea eax,16(ebp)
-push eax
-lea eax,-12(ebp)
-push eax
-call .compact
-add esp,12
-I1_1:
-leave
-ret
Index: trunk/minix/lib/ack/float/sft_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/sft_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,39 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/sft_ext.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	SHIFT TWO EXTENDED NUMBERS INTO PROPER
-	ALIGNMENT FOR ADDITION (exponents are equal)
-	Numbers should not be zero on entry.
-*/
-
-#include "FP_types.h"
-
-void
-sft_ext(e1,e2)
-EXTEND	*e1,*e2;
-{
-	register	EXTEND	*s;
-	register	int	diff;
-
-	diff = e1->exp - e2->exp;
-
-	if (!diff)
-		return;	/* exponents are equal	*/
-
-	if (diff < 0)	{ /* e2 is larger	*/
-			/* shift e1		*/
-		diff = -diff;
-		s = e1;
-	}
-	else		/* e1 is larger		*/
-			/* shift e2		*/
-		s = e2;
-
-	s->exp += diff;
-	b64_sft(&(s->mantissa), diff);
-}
Index: trunk/minix/lib/ack/float/sft_ext.s
===================================================================
--- trunk/minix/lib/ack/float/sft_ext.s	(revision 9)
+++ 	(revision )
@@ -1,42 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .sft_ext
-.sect .text
-.sft_ext:
-push ebp
-mov ebp,esp
-push esi
-push edi
-mov edx,8(ebp)
-! kill edx
-movsx eax,2(edx)
-mov edx,12(ebp)
-! kill edx
-movsx ebx,2(edx)
-sub ebx,eax
-neg ebx
-mov edi,ebx
-test edi,edi
-je I1_1
-test edi,edi
-jns I1_7
-neg edi
-mov esi,8(ebp)
-jmp I1_8
-I1_7:
-mov esi,12(ebp)
-I1_8:
-movsx eax,2(esi)
-add eax,edi
-movsx eax,eax
-o16 mov 2(esi),eax
-push edi
-lea eax,4(esi)
-push eax
-call .b64_sft
-pop ecx
-pop ecx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/shifter.fc
===================================================================
--- trunk/minix/lib/ack/float/shifter.fc	(revision 9)
+++ 	(revision )
@@ -1,75 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/shifter.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-# include "FP_types.h"
-
-void
-b64_sft(e1,n)
-B64	*e1;
-int	n;
-{
-	if (n > 0) {
-		if (n > 63) {
-			e1->l_32 = 0;
-			e1->h_32 = 0;
-			return;
-		}
-		if (n >= 32) {
-			e1->l_32 = e1->h_32;
-			e1->h_32 = 0;
-			n -= 32;
-		}
-		if (n > 0) {
-			e1->l_32 >>= n;
-			if (e1->h_32 != 0) {
-				e1->l_32 |= (e1->h_32 << (32 - n));
-				e1->h_32 >>= n;
-			}
-		}
-		return;
-	}
-	n = -n;
-	if (n > 0) {
-		if (n > 63) {
-			e1->l_32 = 0;
-			e1->h_32 = 0;
-			return;
-		}
-		if (n >= 32) {
-			e1->h_32 = e1->l_32;
-			e1->l_32 = 0;
-			n -= 32;
-		}
-		if (n > 0) {
-			e1->h_32 <<= n;
-			if (e1->l_32 != 0) {
-				e1->h_32 |= (e1->l_32 >> (32 - n));
-				e1->l_32 <<= n;
-			}
-		}
-	}
-}
-
-void
-b64_lsft(e1)
-B64	*e1;
-{
-	/*	shift left 1 bit */
-	e1->h_32 <<= 1;
-	if (e1->l_32 & 0x80000000L) e1->h_32 |= 1;
-	e1->l_32 <<= 1;
-}
-
-void
-b64_rsft(e1)
-B64	*e1;
-{
-	/*	shift right 1 bit */
-	e1->l_32 >>= 1;
-	if (e1->h_32 & 1) e1->l_32 |= 0x80000000L;
-	e1->h_32 >>= 1;
-}
Index: trunk/minix/lib/ack/float/shifter.s
===================================================================
--- trunk/minix/lib/ack/float/shifter.s	(revision 9)
+++ 	(revision )
@@ -1,123 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .b64_sft
-.sect .text
-.b64_sft:
-push ebp
-mov ebp,esp
-push esi
-push edi
-mov esi,8(ebp)
-mov edi,12(ebp)
-! kill cc
-test edi,edi
-jle I1_4
-cmp edi,63
-jle I1_7
-mov 4(esi),0
-mov (esi),0
-jmp I1_1
-I1_7:
-cmp edi,32
-jl I1_10
-mov edx,(esi)
-mov 4(esi),edx
-mov (esi),0
-sub edi,32
-I1_10:
-! kill cc
-test edi,edi
-jle I1_1
-mov ecx,edi
-mov edx,4(esi)
-shr edx,cl
-mov 4(esi),edx
-cmp (esi),0
-je I1_1
-mov edx,32
-sub edx,edi
-mov ecx,edx
-mov edx,(esi)
-sal edx,cl
-or 4(esi),edx
-mov ecx,edi
-mov edx,(esi)
-shr edx,cl
-mov (esi),edx
-jmp I1_1
-I1_4:
-neg edi
-! kill cc
-test edi,edi
-jle I1_1
-cmp edi,63
-jle I1_22
-mov 4(esi),0
-mov (esi),0
-jmp I1_1
-I1_22:
-cmp edi,32
-jl I1_25
-mov edx,4(esi)
-mov (esi),edx
-mov 4(esi),0
-sub edi,32
-I1_25:
-! kill cc
-test edi,edi
-jle I1_1
-mov ecx,edi
-mov edx,(esi)
-sal edx,cl
-mov (esi),edx
-cmp 4(esi),0
-je I1_1
-mov edx,32
-sub edx,edi
-mov ecx,edx
-mov edx,4(esi)
-shr edx,cl
-or (esi),edx
-mov ecx,edi
-mov edx,4(esi)
-sal edx,cl
-mov 4(esi),edx
-I1_1:
-pop edi
-pop esi
-leave
-ret
-.extern .b64_lsft
-.b64_lsft:
-push ebp
-mov ebp,esp
-push esi
-mov esi,8(ebp)
-sal (esi),1
-test 4(esi),-2147483648
-je I2_4
-or (esi),1
-I2_4:
-mov edx,4(esi)
-sal edx,1
-mov 4(esi),edx
-pop esi
-leave
-ret
-.extern .b64_rsft
-.b64_rsft:
-push ebp
-mov ebp,esp
-push esi
-mov esi,8(ebp)
-mov edx,4(esi)
-shr edx,1
-mov 4(esi),edx
-mov edx,(esi)
-testb dl,1
-je I3_4
-or 4(esi),-2147483648
-I3_4:
-shr (esi),1
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/sub_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/sub_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,53 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/sub_ext.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	SUBTRACT 2 EXTENDED FORMAT NUMBERS
-*/
-
-#include "FP_types.h"
-
-void
-sub_ext(e1,e2)
-EXTEND	*e1,*e2;
-{
-	if ((e2->m1 | e2->m2) == 0L) {
-		return;
-	}
-	if ((e1->m1 | e1->m2) == 0L) {
-		*e1 = *e2;
-		e1->sign = e2->sign ? 0 : 1;
-		return;
-	}
-	sft_ext(e1, e2);
-	if (e1->sign != e2->sign) {
-		/* e1 - e2 = e1 + (-e2) */
-		if (b64_add(&e1->mantissa,&e2->mantissa)) { /* addition carry */
-                	b64_rsft(&e1->mantissa);      /* shift mantissa one bit RIGHT */
-                	e1->m1 |= 0x80000000L;  /* set max bit  */
-                	e1->exp++;              /* increase the exponent */
-        	}
-	}
-        else if (e2->m1 > e1->m1 ||
-                 (e2->m1 == e1->m1 && e2->m2 > e1->m2)) {
-		/*	abs(e2) > abs(e1) */
-		if (e1->m2 > e2->m2) {
-			e2->m1 -= 1;	/* carry in */
-		}
-		e2->m1 -= e1->m1;
-		e2->m2 -= e1->m2;
-		*e1 = *e2;
-		e1->sign = e2->sign ? 0 : 1;
-	}
-	else {
-		if (e2->m2 > e1->m2)
-			e1->m1 -= 1;	/* carry in */
-		e1->m1 -= e2->m1;
-		e1->m2 -= e2->m2;
-	}
-	nrm_ext(e1);
-}
Index: trunk/minix/lib/ack/float/sub_ext.s
===================================================================
--- trunk/minix/lib/ack/float/sub_ext.s	(revision 9)
+++ 	(revision )
@@ -1,119 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .sub_ext
-.sect .text
-.sub_ext:
-push ebp
-mov ebp,esp
-push esi
-push edi
-mov esi,8(ebp)
-mov edi,12(ebp)
-mov edx,8(edi)
-or edx,4(edi)
-je I1_1
-mov edx,8(esi)
-or edx,4(esi)
-jne I1_7
-push edi
-push esi
-mov ecx,3
-call .blm
-movzx edx,(edi)
-test edx,edx
-je I1_10
-xor eax,eax
-jmp I1_11
-I1_10:
-mov eax,1
-I1_11:
-o16 mov (esi),eax
-jmp I1_1
-I1_7:
-push edi
-push esi
-call .sft_ext
-pop ecx
-pop ecx
-movsx eax,(esi)
-movsx ebx,(edi)
-cmp eax,ebx
-je I1_13
-lea eax,4(edi)
-push eax
-lea eax,4(esi)
-push eax
-call .b64_add
-pop ecx
-pop ecx
-test eax,eax
-je I1_14
-lea eax,4(esi)
-push eax
-call .b64_rsft
-pop ecx
-or 4(esi),-2147483648
-movsx eax,2(esi)
-inc eax
-movsx eax,eax
-o16 mov 2(esi),eax
-jmp I1_14
-I1_13:
-mov edx,4(esi)
-cmp 4(edi),edx
-ja I1_18
-cmp 4(edi),edx
-jne I1_19
-mov edx,8(esi)
-cmp 8(edi),edx
-jbe I1_19
-I1_18:
-mov edx,8(edi)
-cmp 8(esi),edx
-jbe I1_24
-mov edx,4(edi)
-sub edx,1
-mov 4(edi),edx
-I1_24:
-mov edx,4(edi)
-sub edx,4(esi)
-mov 4(edi),edx
-mov edx,8(edi)
-sub edx,8(esi)
-mov 8(edi),edx
-push edi
-push esi
-mov ecx,3
-call .blm
-movzx edx,(edi)
-test edx,edx
-je I1_27
-xor eax,eax
-jmp I1_28
-I1_27:
-mov eax,1
-I1_28:
-o16 mov (esi),eax
-jmp I1_14
-I1_19:
-mov edx,8(esi)
-cmp 8(edi),edx
-jbe I1_30
-mov edx,4(esi)
-sub edx,1
-mov 4(esi),edx
-I1_30:
-mov edx,4(esi)
-sub edx,4(edi)
-mov 4(esi),edx
-mov edx,8(esi)
-sub edx,8(edi)
-mov 8(esi),edx
-I1_14:
-push esi
-call .nrm_ext
-pop ecx
-I1_1:
-pop edi
-pop esi
-leave
-ret
Index: trunk/minix/lib/ack/float/zrf4.fc
===================================================================
--- trunk/minix/lib/ack/float/zrf4.fc	(revision 9)
+++ 	(revision )
@@ -1,19 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/zrf4.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	return a zero float (ZRF 4)
-*/
-
-#include "FP_types.h"
-
-void
-zrf4(l)
-SINGLE	*l;
-{
-	*l = 0L;
-}
Index: trunk/minix/lib/ack/float/zrf4.s
===================================================================
--- trunk/minix/lib/ack/float/zrf4.s	(revision 9)
+++ 	(revision )
@@ -1,11 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .zrf4
-.sect .text
-.zrf4:
-push ebp
-mov ebp,esp
-mov eax,8(ebp)
-mov (eax),0
-! kill eax
-leave
-ret
Index: trunk/minix/lib/ack/float/zrf8.fc
===================================================================
--- trunk/minix/lib/ack/float/zrf8.fc	(revision 9)
+++ 	(revision )
@@ -1,21 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/zrf8.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	return a zero double (ZRF 8)
-*/
-
-#include "FP_types.h"
-
-void
-zrf8(z)
-DOUBLE	*z;
-{
-
-	z->d[0] = 0L;
-	z->d[1] = 0L;
-}
Index: trunk/minix/lib/ack/float/zrf8.s
===================================================================
--- trunk/minix/lib/ack/float/zrf8.s	(revision 9)
+++ 	(revision )
@@ -1,13 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .zrf8
-.sect .text
-.zrf8:
-push ebp
-mov ebp,esp
-mov eax,8(ebp)
-mov (eax),0
-! kill eax
-mov edx,8(ebp)
-mov 4(edx),0
-leave
-ret
Index: trunk/minix/lib/ack/float/zrf_ext.fc
===================================================================
--- trunk/minix/lib/ack/float/zrf_ext.fc	(revision 9)
+++ 	(revision )
@@ -1,22 +1,0 @@
-/*
-  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
-  See the copyright notice in the ACK home directory, in the file "Copyright".
-*/
-
-/* $Header: /cvsup/minix/src/lib/ack/float/zrf_ext.fc,v 1.1 2005/10/10 15:27:43 beng Exp $ */
-
-/*
-	ZERO and return EXTEND FORMAT FLOAT
-*/
-
-#include "FP_types.h"
-
-void
-zrf_ext(e)
-EXTEND	*e;
-{
-	e->m1 = 0;
-	e->m2 = 0;
-	e->exp = 0;
-	e->sign = 0;
-}
Index: trunk/minix/lib/ack/float/zrf_ext.s
===================================================================
--- trunk/minix/lib/ack/float/zrf_ext.s	(revision 9)
+++ 	(revision )
@@ -1,15 +1,0 @@
-.sect .text; .sect .rom; .sect .data; .sect .bss
-.extern .zrf_ext
-.sect .text
-.zrf_ext:
-push ebp
-mov ebp,esp
-push esi
-mov esi,8(ebp)
-mov 4(esi),0
-mov 8(esi),0
-o16 mov 2(esi),0
-o16 mov (esi),0
-pop esi
-leave
-ret