1988-04-07 11:40:46 +00:00
|
|
|
/*
|
|
|
|
|
(c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* $Header$ */
|
|
|
|
|
|
1988-04-07 10:57:49 +00:00
|
|
|
/*
|
|
|
|
|
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
|
|
|
|
|
|
1989-07-25 14:21:09 +00:00
|
|
|
#define DBL_RPACK (32-DBL_M1LEFT)
|
1988-04-07 10:57:49 +00:00
|
|
|
#define DBL_LPACK DBL_M1LEFT
|
|
|
|
|
|
|
|
|
|
/* used in compact.c */
|
|
|
|
|
|
|
|
|
|
#define DBL_ZERO 0xfffffd00L
|
|
|
|
|
|
|
|
|
|
#define DBL_EXACT 0x7ff
|
|
|
|
|
|
|
|
|
|
#define DBL_RUNPACK DBL_M1LEFT
|
1989-07-25 14:21:09 +00:00
|
|
|
#define DBL_LUNPACK (32-DBL_RUNPACK)
|
1988-04-07 10:57:49 +00:00
|
|
|
|
|
|
|
|
#define DBL_ROUNDUP 0x400
|
|
|
|
|
#define DBL_CARRYOUT 0x00200000L
|
|
|
|
|
#define DBL_MASK 0x000fffffL
|
