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 */
|
|
|
|
#ifndef IEEEFORMAT
|
|
|
|
|
|
|
|
#define DBL_EXPSHIFT SGL_EXPSHIFT
|
|
|
|
#define DBL_M1LEFT SGL_M1LEFT
|
|
|
|
|
|
|
|
#define DBL_LPACK DBL_RUNPACK
|
|
|
|
#define DBL_RPACK DBL_LUNPACK
|
|
|
|
|
|
|
|
#define DBL_ZERO SGL_ZERO
|
|
|
|
#define DBL_EXACT SGL_EXACT
|
|
|
|
|
|
|
|
#define DBL_RUNPACK DBL_M1LEFT
|
|
|
|
#define DBL_LUNPACK 32-DBL_M1LEFT
|
|
|
|
|
|
|
|
#define DBL_ROUNDUP SGL_ROUNDUP
|
|
|
|
#define DBL_CARRYOUT SGL_CARRYOUT
|
|
|
|
#define DBL_MASK SGL_MASK
|
|
|
|
|
|
|
|
#else
|
|
|
|
/* 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
|
|
|
|
|
|
|
|
#endif IEEEFORMAT
|