/***
*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 */
