532 lines
13 KiB
C
532 lines
13 KiB
C
/***
|
|
*cv.h - definitions for floating point conversion
|
|
*
|
|
* Copyright (c) 1991-1991, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* define types, macros, and constants used in floating point
|
|
* conversion routines
|
|
*
|
|
*Revision History:
|
|
* 7-17-91 GDP initial version
|
|
* 9-21-91 GDP restructured 'ifdef' directives
|
|
* 10-29-91 GDP MIPS port: new defs for ALIGN and DOUBLE
|
|
* 3-03-92 GDP removed os2 16-bit stuff
|
|
* 4-30-92 GDP support intrncvt.c --cleanup and reorganize
|
|
* 5-13-92 XY fixed B_END macros
|
|
* 6-16-92 GDP merged changes from \\orville and \\vangogh trees
|
|
* 9-05-92 GDP included fltintrn.h, new calling convention macros
|
|
* 07-16-93 SRW ALPHA Merge
|
|
* 10-02-94 BWT PPC merge
|
|
*
|
|
*******************************************************************************/
|
|
#ifndef _INC_CV
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
#include <cruntime.h>
|
|
|
|
/*
|
|
* Conditional macro definition for function calling type and variable type
|
|
* qualifiers.
|
|
*/
|
|
#if ( (_MSC_VER >= 800) && (_M_IX86 >= 300) )
|
|
|
|
/*
|
|
* Definitions for MS C8-32 (386/486) compiler
|
|
*/
|
|
#define _CRTAPI1 __cdecl
|
|
#define _CRTAPI2 __cdecl
|
|
|
|
#elif ( _MSC_VER == 600 )
|
|
|
|
/*
|
|
* Definitions for old MS C6-386 compiler
|
|
*/
|
|
#define _CRTAPI1 _cdecl
|
|
#define _CRTAPI2 _cdecl
|
|
#define _CRTVAR1 _cdecl
|
|
#define _M_IX86 300
|
|
|
|
#else
|
|
|
|
/*
|
|
* Other compilers (e.g., MIPS)
|
|
*/
|
|
#define _CRTAPI1
|
|
#define _CRTAPI2
|
|
#define _CRTVAR1
|
|
|
|
#endif
|
|
|
|
/*
|
|
* For MIPS and Alpha, define DOUBLE as 'double'
|
|
* so that the definition in fltintrn.h is not used.
|
|
* This is done because floating point arguments are passed in the
|
|
* fp register.
|
|
*/
|
|
|
|
#if defined(_M_MRX000) || defined(_M_ALPHA) || defined(_M_PPC)
|
|
#define DOUBLE double
|
|
#endif
|
|
#include <fltintrn.h>
|
|
|
|
|
|
|
|
|
|
/* define little endian or big endian memory */
|
|
|
|
#ifdef i386
|
|
#define L_END
|
|
#endif
|
|
|
|
#if defined(_M_MRX000) || defined(_M_ALPHA) || defined(_M_PPC)
|
|
#define L_END
|
|
#endif
|
|
|
|
typedef unsigned char u_char; /* should have 1 byte */
|
|
typedef char s_char; /* should have 1 byte */
|
|
typedef unsigned short u_short; /* should have 2 bytes */
|
|
typedef signed short s_short; /* should have 2 bytes */
|
|
typedef unsigned int u_long; /* sholuld have 4 bytes */
|
|
typedef int s_long; /* sholuld have 4 bytes */
|
|
|
|
/* calling conventions */
|
|
#define _CALLTYPE5
|
|
|
|
|
|
/*
|
|
* defining _LDSUPPORT enables using long double computations
|
|
* for string conversion. We do not do this even for i386,
|
|
* since we want to avoid using floating point code that
|
|
* may generate IEEE exceptions.
|
|
*
|
|
* Currently our string conversion routines do not conform
|
|
* to the special requirements of the IEEE standard for
|
|
* floating point conversions
|
|
*/
|
|
|
|
|
|
#ifndef _LDSUPPORT
|
|
|
|
#pragma pack(4)
|
|
typedef struct {
|
|
u_char ld[10];
|
|
} _LDOUBLE;
|
|
#pragma pack()
|
|
|
|
#define PTR_LD(x) ((u_char *)(&(x)->ld))
|
|
|
|
#else
|
|
|
|
typedef long double _LDOUBLE;
|
|
|
|
#define PTR_LD(x) ((u_char *)(x))
|
|
|
|
#endif
|
|
|
|
|
|
#pragma pack(4)
|
|
typedef struct {
|
|
u_char ld12[12];
|
|
} _LDBL12;
|
|
#pragma pack()
|
|
|
|
typedef struct {
|
|
float f;
|
|
} FLOAT;
|
|
|
|
|
|
|
|
/*
|
|
* return values for internal conversion routines
|
|
* (12-byte to long double, double, or float)
|
|
*/
|
|
|
|
typedef enum {
|
|
INTRNCVT_OK,
|
|
INTRNCVT_OVERFLOW,
|
|
INTRNCVT_UNDERFLOW
|
|
} INTRNCVT_STATUS;
|
|
|
|
|
|
/*
|
|
* return values for strgtold12 routine
|
|
*/
|
|
|
|
#define SLD_UNDERFLOW 1
|
|
#define SLD_OVERFLOW 2
|
|
#define SLD_NODIGITS 4
|
|
|
|
#define MAX_MAN_DIGITS 21
|
|
|
|
|
|
/* specifies '%f' format */
|
|
|
|
#define SO_FFORMAT 1
|
|
|
|
typedef struct _FloatOutStruct {
|
|
short exp;
|
|
char sign;
|
|
char ManLen;
|
|
char man[MAX_MAN_DIGITS+1];
|
|
} FOS;
|
|
|
|
|
|
|
|
#define PTR_12(x) ((u_char *)(&(x)->ld12))
|
|
|
|
#define MAX_USHORT ((u_short)0xffff)
|
|
#define MSB_USHORT ((u_short)0x8000)
|
|
#define MAX_ULONG ((u_long)0xffffffff)
|
|
#define MSB_ULONG ((u_long)0x80000000)
|
|
|
|
#define TMAX10 5200 /* maximum temporary decimal exponent */
|
|
#define TMIN10 -5200 /* minimum temporary decimal exponent */
|
|
#define LD_MAX_EXP_LEN 4 /* maximum number of decimal exponent digits */
|
|
#define LD_MAX_MAN_LEN 24 /* maximum length of mantissa (decimal)*/
|
|
#define LD_MAX_MAN_LEN1 25 /* MAX_MAN_LEN+1 */
|
|
|
|
#define LD_BIAS 0x3fff /* exponent bias for long double */
|
|
#define LD_BIASM1 0x3ffe /* LD_BIAS - 1 */
|
|
#define LD_MAXEXP 0x7fff /* maximum biased exponent */
|
|
|
|
#define D_BIAS 0x3ff /* exponent bias for double */
|
|
#define D_BIASM1 0x3fe /* D_BIAS - 1 */
|
|
#define D_MAXEXP 0x7ff /* maximum biased exponent */
|
|
|
|
|
|
#ifdef M68K
|
|
typedef struct _fltl /* used by _fltinl */
|
|
{
|
|
int flags;
|
|
int nbytes; /* number of characters read */
|
|
long lval;
|
|
_LDOUBLE ldval; /* the returned floating point number */
|
|
}
|
|
*FLTL;
|
|
#endif
|
|
|
|
|
|
#ifdef M68K
|
|
char *_clftole(long double *, char *, int, int);
|
|
char *_clftolf(long double *, char *, int);
|
|
char * _CALLTYPE2 _clftolg(long double *, char *, int, int);
|
|
void _CALLTYPE2 _cldcvt( long double *, char *, int, int, int);
|
|
#endif
|
|
|
|
|
|
#ifndef MTHREAD
|
|
#ifdef M68K
|
|
FLTL _CALLTYPE2 _fltinl( const char *, int, int, int);
|
|
STRFLT _CALLTYPE2 _lfltout(long double);
|
|
|
|
#define _IS_MAN_IND(signbit, manhi, manlo) \
|
|
((signbit) && (manhi)==0xc0000000 && (manlo)==0)
|
|
|
|
#define _IS_MAN_QNAN(signbit, manhi, manlo) \
|
|
( (manhi)&NAN_BIT )
|
|
|
|
#define _IS_MAN_SNAN(signbit, manhi, manlo) \
|
|
(!( _IS_MAN_INF(signbit, manhi, manlo) || \
|
|
_IS_MAN_QNAN(signbit, manhi, manlo) ))
|
|
|
|
#endif
|
|
#endif
|
|
|
|
|
|
/*
|
|
* end of definitions from crt32\h\fltintrn.h
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* Recognizing special patterns in the mantissa field */
|
|
#define _EXP_SP 0x7fff
|
|
#define NAN_BIT (1<<30)
|
|
|
|
#define _IS_MAN_INF(signbit, manhi, manlo) \
|
|
( (manhi)==MSB_ULONG && (manlo)==0x0 )
|
|
|
|
|
|
// i386 and Alpha use same NaN format
|
|
|
|
#if defined(_M_IX86) || defined(_M_ALPHA)
|
|
|
|
#define _IS_MAN_IND(signbit, manhi, manlo) \
|
|
((signbit) && (manhi)==0xc0000000 && (manlo)==0)
|
|
|
|
#define _IS_MAN_QNAN(signbit, manhi, manlo) \
|
|
( (manhi)&NAN_BIT )
|
|
|
|
#define _IS_MAN_SNAN(signbit, manhi, manlo) \
|
|
(!( _IS_MAN_INF(signbit, manhi, manlo) || \
|
|
_IS_MAN_QNAN(signbit, manhi, manlo) ))
|
|
|
|
|
|
#elif defined(_M_MRX000) || defined(_M_PPC)
|
|
|
|
#define _IS_MAN_IND(signbit, manhi, manlo) \
|
|
(!(signbit) && (manhi)==0xbfffffff && (manlo)==0xfffff800)
|
|
|
|
#define _IS_MAN_SNAN(signbit, manhi, manlo) \
|
|
( (manhi)&NAN_BIT )
|
|
|
|
#define _IS_MAN_QNAN(signbit, manhi, manlo) \
|
|
(!( _IS_MAN_INF(signbit, manhi, manlo) || \
|
|
_IS_MAN_SNAN(signbit, manhi, manlo) ))
|
|
#endif
|
|
|
|
|
|
|
|
#if defined (L_END) && !( defined(_M_MRX000) || defined(_M_ALPHA) || defined(_M_PPC) )
|
|
/* "little endian" memory */
|
|
/* Note: MIPS and Alpha have alignment requirements and have different macros */
|
|
/*
|
|
* Manipulation of a 12-byte long double number (an ordinary
|
|
* 10-byte long double plus two extra bytes of mantissa).
|
|
*/
|
|
/*
|
|
* byte layout:
|
|
*
|
|
* +-----+--------+--------+-------+
|
|
* |XT(2)|MANLO(4)|MANHI(4)|EXP(2) |
|
|
* +-----+--------+--------+-------+
|
|
* |<-UL_LO->|<-UL_MED->|<-UL_HI ->|
|
|
* (4) (4) (4)
|
|
*/
|
|
|
|
/* a pointer to the exponent/sign portion */
|
|
#define U_EXP_12(p) ((u_short *)(PTR_12(p)+10))
|
|
|
|
/* a pointer to the 4 hi-order bytes of the mantissa */
|
|
#define UL_MANHI_12(p) ((u_long *)(PTR_12(p)+6))
|
|
|
|
/* a pointer to the 4 lo-order bytes of the ordinary (8-byte) mantissa */
|
|
#define UL_MANLO_12(p) ((u_long *)(PTR_12(p)+2))
|
|
|
|
/* a pointer to the 2 extra bytes of the mantissa */
|
|
#define U_XT_12(p) ((u_short *)PTR_12(p))
|
|
|
|
/* a pointer to the 4 lo-order bytes of the extended (10-byte) mantissa */
|
|
#define UL_LO_12(p) ((u_long *)PTR_12(p))
|
|
|
|
/* a pointer to the 4 mid-order bytes of the extended (10-byte) mantissa */
|
|
#define UL_MED_12(p) ((u_long *)(PTR_12(p)+4))
|
|
|
|
/* a pointer to the 4 hi-order bytes of the extended long double */
|
|
#define UL_HI_12(p) ((u_long *)(PTR_12(p)+8))
|
|
|
|
/* a pointer to the byte of order i (LSB=0, MSB=9)*/
|
|
#define UCHAR_12(p,i) ((u_char *)PTR_12(p)+(i))
|
|
|
|
/* a pointer to a u_short with offset i */
|
|
#define USHORT_12(p,i) ((u_short *)((u_char *)PTR_12(p)+(i)))
|
|
|
|
/* a pointer to a u_long with offset i */
|
|
#define ULONG_12(p,i) ((u_long *)((u_char *)PTR_12(p)+(i)))
|
|
|
|
/* a pointer to the 10 MSBytes of a 12-byte long double */
|
|
#define TEN_BYTE_PART(p) ((u_char *)PTR_12(p)+2)
|
|
|
|
/*
|
|
* Manipulation of a 10-byte long double number
|
|
*/
|
|
#define U_EXP_LD(p) ((u_short *)(PTR_LD(p)+8))
|
|
#define UL_MANHI_LD(p) ((u_long *)(PTR_LD(p)+4))
|
|
#define UL_MANLO_LD(p) ((u_long *)PTR_LD(p))
|
|
|
|
/*
|
|
* Manipulation of a 64bit IEEE double
|
|
*/
|
|
#define U_SHORT4_D(p) ((u_short *)(p) + 3)
|
|
#define UL_HI_D(p) ((u_long *)(p) + 1)
|
|
#define UL_LO_D(p) ((u_long *)(p))
|
|
|
|
#endif
|
|
|
|
/* big endian */
|
|
#if defined (B_END)
|
|
|
|
/*
|
|
* byte layout:
|
|
*
|
|
* +------+-------+---------+------+
|
|
* |EXP(2)|MANHI(4)|MANLO(4)|XT(2) |
|
|
* +------+-------+---------+------+
|
|
* |<-UL_HI->|<-UL_MED->|<-UL_LO ->|
|
|
* (4) (4) (4)
|
|
*/
|
|
|
|
|
|
#define U_EXP_12(p) ((u_short *)PTR_12(p))
|
|
#define UL_MANHI_12(p) ((u_long *)(PTR_12(p)+2))
|
|
#define UL_MANLO_12(p) ((u_long *)(PTR_12(p)+6))
|
|
#define U_XT_12(p) ((u_short *)(PTR_12(p)+10))
|
|
|
|
#define UL_LO_12(p) ((u_long *)(PTR_12(p)+8))
|
|
#define UL_MED_12(p) ((u_long *)(PTR_12(p)+4))
|
|
#define UL_HI_12(p) ((u_long *)PTR_12(p))
|
|
|
|
#define UCHAR_12(p,i) ((u_char *)PTR_12(p)+(11-(i)))
|
|
#define USHORT_12(p,i) ((u_short *)((u_char *)PTR_12(p)+10-(i)))
|
|
#define ULONG_12(p,i) ((u_long *)((u_char *)PTR_12(p)+8-(i)))
|
|
#define TEN_BYTE_PART(p) (u_char *)PTR_12(p)
|
|
|
|
#define U_EXP_LD(p) ((u_short *)PTR_LD(p))
|
|
#define UL_MANHI_LD(p) ((u_long *)(PTR_LD(p)+2))
|
|
#define UL_MANLO_LD(p) ((u_long *)(PTR_LD(p)+6))
|
|
|
|
/*
|
|
* Manipulation of a 64bit IEEE double
|
|
*/
|
|
#define U_SHORT4_D(p) ((u_short *)(p))
|
|
#define UL_HI_D(p) ((u_long *)(p))
|
|
#define UL_LO_D(p) ((u_long *)(p) + 1)
|
|
|
|
#endif
|
|
|
|
#if defined(_M_MRX000) || defined(_M_ALPHA) || defined(_M_PPC)
|
|
|
|
#define ALIGN(x) ( (unsigned long __unaligned *) (x))
|
|
|
|
#define U_EXP_12(p) ((u_short *)(PTR_12(p)+10))
|
|
|
|
#define UL_MANHI_12(p) ((u_long __unaligned *) (PTR_12(p)+6) )
|
|
#define UL_MANLO_12(p) ((u_long __unaligned *) (PTR_12(p)+2) )
|
|
|
|
|
|
#define U_XT_12(p) ((u_short *)PTR_12(p))
|
|
#define UL_LO_12(p) ((u_long *)PTR_12(p))
|
|
#define UL_MED_12(p) ((u_long *)(PTR_12(p)+4))
|
|
#define UL_HI_12(p) ((u_long *)(PTR_12(p)+8))
|
|
|
|
/* the following 3 macros do not take care of proper alignment */
|
|
#define UCHAR_12(p,i) ((u_char *)PTR_12(p)+(i))
|
|
#define USHORT_12(p,i) ((u_short *)((u_char *)PTR_12(p)+(i)))
|
|
#define ULONG_12(p,i) ((u_long *) ((u_char *)PTR_12(p)+(i) ))
|
|
|
|
#define TEN_BYTE_PART(p) ((u_char *)PTR_12(p)+2)
|
|
|
|
/*
|
|
* Manipulation of a 10-byte long double number
|
|
*/
|
|
#define U_EXP_LD(p) ((u_short *)(PTR_LD(p)+8))
|
|
|
|
#define UL_MANHI_LD(p) ((u_long *) (PTR_LD(p)+4) )
|
|
#define UL_MANLO_LD(p) ((u_long *) PTR_LD(p) )
|
|
|
|
/*
|
|
* Manipulation of a 64bit IEEE double
|
|
*/
|
|
#define U_SHORT4_D(p) ((u_short *)(p) + 3)
|
|
#define UL_HI_D(p) ((u_long *)(p) + 1)
|
|
#define UL_LO_D(p) ((u_long *)(p))
|
|
|
|
#endif
|
|
|
|
|
|
#define PUT_INF_12(p,sign) \
|
|
*UL_HI_12(p) = (sign)?0xffff8000:0x7fff8000; \
|
|
*UL_MED_12(p) = 0; \
|
|
*UL_LO_12(p) = 0;
|
|
|
|
#define PUT_ZERO_12(p) *UL_HI_12(p) = 0; \
|
|
*UL_MED_12(p) = 0; \
|
|
*UL_LO_12(p) = 0;
|
|
|
|
#define ISZERO_12(p) ((*UL_HI_12(p)&0x7fffffff) == 0 && \
|
|
*UL_MED_12(p) == 0 && \
|
|
*UL_LO_12(p) == 0 )
|
|
|
|
#define PUT_INF_LD(p,sign) \
|
|
*U_EXP_LD(p) = (sign)?0xffff:0x7fff; \
|
|
*UL_MANHI_LD(p) = 0x8000; \
|
|
*UL_MANLO_LD(p) = 0;
|
|
|
|
#define PUT_ZERO_LD(p) *U_EXP_LD(p) = 0; \
|
|
*UL_MANHI_LD(p) = 0; \
|
|
*UL_MANLO_LD(p) = 0;
|
|
|
|
#define ISZERO_LD(p) ((*U_EXP_LD(p)&0x7fff) == 0 && \
|
|
*UL_MANHI_LD(p) == 0 && \
|
|
*UL_MANLO_LD(p) == 0 )
|
|
|
|
|
|
/*********************************************************
|
|
*
|
|
* Function Prototypes
|
|
*
|
|
*********************************************************/
|
|
|
|
/* from mantold.c */
|
|
void _CALLTYPE5 __mtold12(char *manptr, unsigned manlen,_LDBL12 *ld12);
|
|
int _CALLTYPE5 __addl(u_long x, u_long y, u_long *sum);
|
|
void _CALLTYPE5 __shl_12(_LDBL12 *ld12);
|
|
void _CALLTYPE5 __shr_12(_LDBL12 *ld12);
|
|
void _CALLTYPE5 __add_12(_LDBL12 *x, _LDBL12 *y);
|
|
|
|
/* from tenpow.c */
|
|
void _CALLTYPE5 __multtenpow12(_LDBL12 *pld12,int pow, unsigned mult12);
|
|
void _CALLTYPE5 __ld12mul(_LDBL12 *px, _LDBL12 *py);
|
|
|
|
/* from strgtold.c */
|
|
unsigned int __strgtold12(_LDBL12 *pld12,
|
|
const char * *p_end_ptr,
|
|
const char * str,
|
|
int mult12,
|
|
int scale,
|
|
int decpt,
|
|
int implicit_E);
|
|
|
|
unsigned _CALLTYPE5 __STRINGTOLD(_LDOUBLE *pld,
|
|
const char * *p_end_ptr,
|
|
const char *str,
|
|
int mult12);
|
|
|
|
|
|
/* from x10fout.c */
|
|
/* this is defined as void in convert.h
|
|
* After porting the asm files to c, we need a return value for
|
|
* i10_output, that used to reside in reg. ax
|
|
*/
|
|
int _CALLTYPE5 $I10_OUTPUT(_LDOUBLE ld, int ndigits,
|
|
unsigned output_flags, FOS *fos);
|
|
|
|
|
|
/* for cvt.c and fltused.c */
|
|
/* The following functions are #defined as macros in fltintrn.h */
|
|
#undef _cfltcvt
|
|
#undef _cropzeros
|
|
#undef _fassign
|
|
#undef _forcdecpt
|
|
#undef _positive
|
|
|
|
void _CALLTYPE2 _cfltcvt(double *arg, char *buffer,
|
|
int format, int precision,
|
|
int caps);
|
|
void _CALLTYPE2 _cropzeros(char *buf);
|
|
void _CALLTYPE2 _fassign(int flag, char *argument, char *number);
|
|
void _CALLTYPE2 _forcdecpt(char *buf);
|
|
int _CALLTYPE2 _positive(double *arg);
|
|
|
|
/* from intrncvt.c */
|
|
void _atodbl(DOUBLE *d, char *str);
|
|
void _atoldbl(_LDOUBLE *ld, char *str);
|
|
void _atoflt(FLOAT *f, char *str);
|
|
INTRNCVT_STATUS _ld12tod(_LDBL12 *ifp, DOUBLE *d);
|
|
INTRNCVT_STATUS _ld12tof(_LDBL12 *ifp, FLOAT *f);
|
|
INTRNCVT_STATUS _ld12told(_LDBL12 *ifp, _LDOUBLE *ld);
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#define _INC_CV
|
|
#endif /* _INC_CV */
|