230 lines
6.5 KiB
C
230 lines
6.5 KiB
C
|
/***
|
||
|
|
*fltintrn.h - contains declarations of internal floating point types,
|
||
|
|
* routines and variables
|
||
|
|
*
|
||
|
|
* Copyright (c) 1985-2001, Microsoft Corporation. All rights reserved.
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
* Declares floating point types, routines and variables used
|
||
|
|
* internally by the C run-time.
|
||
|
|
*
|
||
|
|
* [Internal]
|
||
|
|
*
|
||
|
|
*Revision History:
|
||
|
|
* 10-20-88 JCR Changed 'DOUBLE' to 'double' for 386
|
||
|
|
* 08-15-89 GJF Fixed copyright, indents
|
||
|
|
* 10-30-89 GJF Fixed copyright (again)
|
||
|
|
* 03-02-90 GJF Added #ifndef _INC_STRUCT stuff. Also, cleaned up
|
||
|
|
* the formatting a bit.
|
||
|
|
* 03-05-90 GJF Fixed up the arg types in protoypes. Also, added
|
||
|
|
* #include <cruntime.h>
|
||
|
|
* 03-22-90 GJF Made _fltin(), _fltin2(), _fltout() and _fltout2()
|
||
|
|
* _CALLTYPE2 (for now) and added a prototype for
|
||
|
|
* _fptostr().
|
||
|
|
* 08-01-90 SBM Moved _cftoe() and _cftof() here from internal.h
|
||
|
|
* and _cfltcvt_tab from input.c and output.c,
|
||
|
|
* added typedefs for _cfltcvt_tab entries,
|
||
|
|
* renamed module from <struct.h> to <fltintrn.h> and
|
||
|
|
* adjusted #ifndef stuff to #ifndef _INC_FLTINTRN
|
||
|
|
* 08-29-90 SBM Changed type of _cfltcvt_tab[] to agree with
|
||
|
|
* definition in cmiscdat.c
|
||
|
|
* 04-26-91 SRW Removed level 3 warnings
|
||
|
|
* 08-26-91 JCR Changed MIPS to _MIPS_, ANSI naming
|
||
|
|
* 08-06-92 GJF Function calling type and variable type macros. Revised
|
||
|
|
* use of target processor macros.
|
||
|
|
* 11-09-92 GJF Fixed preprocessing conditionals for MIPS.
|
||
|
|
* 01-09-93 SRW Remove usage of MIPS and ALPHA to conform to ANSI
|
||
|
|
* Use _MIPS_ and _ALPHA_ instead.
|
||
|
|
* 01-21-93 GJF Removed support for C6-386's _cdecl.
|
||
|
|
* 04-06-93 SKS Replace _CRTAPI1/2 with __cdecl, _CRTVAR1 with nothing
|
||
|
|
* 09-01-93 GJF Merged Cuda and NT SDK versions.
|
||
|
|
* 10-13-93 GJF Dropped _MIPS_. Replaced _ALPHA_ with _M_ALPHA.
|
||
|
|
* 10-29-93 GJF Disabled the ever-annoying 4069 warning.
|
||
|
|
* 10-02-94 BWT Add PPC support.
|
||
|
|
* 12-15-94 XY merged with mac header
|
||
|
|
* 02-14-95 CFW Clean up Mac merge.
|
||
|
|
* 03-29-95 CFW Add error message to internal headers.
|
||
|
|
* 12-14-95 JWM Add "#pragma once".
|
||
|
|
* 02-05-97 GJF Deleted obsolete support for _CRTAPI* and _NTSDK.
|
||
|
|
* Replaced (defined(_M_MPPC) || defined(_M_M68K)) with
|
||
|
|
* defined(_MAC) where appropriate. Replaced _CALLTYPE2
|
||
|
|
* with __cdecl. Also, detab-ed.
|
||
|
|
* 05-17-99 PML Remove all Macintosh support.
|
||
|
|
* 09-05-00 GB Changed the defination of fltout functions. Use DOUBLE
|
||
|
|
* instead of double
|
||
|
|
*
|
||
|
|
****/
|
||
|
|
|
||
|
|
#if _MSC_VER > 1000 /*IFSTRIP=IGN*/
|
||
|
|
#pragma once
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef _INC_FLTINTRN
|
||
|
|
#define _INC_FLTINTRN
|
||
|
|
|
||
|
|
#ifndef _CRTBLD
|
||
|
|
/*
|
||
|
|
* This is an internal C runtime header file. It is used when building
|
||
|
|
* the C runtimes only. It is not to be used as a public header file.
|
||
|
|
*/
|
||
|
|
#error ERROR: Use of C runtime library internal header file.
|
||
|
|
#endif /* _CRTBLD */
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
extern "C" {
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <cruntime.h>
|
||
|
|
|
||
|
|
|
||
|
|
/* Define _CRTIMP */
|
||
|
|
|
||
|
|
#ifndef _CRTIMP
|
||
|
|
#ifdef CRTDLL
|
||
|
|
#define _CRTIMP __declspec(dllexport)
|
||
|
|
#else /* ndef CRTDLL */
|
||
|
|
#ifdef _DLL
|
||
|
|
#define _CRTIMP __declspec(dllimport)
|
||
|
|
#else /* ndef _DLL */
|
||
|
|
#define _CRTIMP
|
||
|
|
#endif /* _DLL */
|
||
|
|
#endif /* CRTDLL */
|
||
|
|
#endif /* _CRTIMP */
|
||
|
|
|
||
|
|
|
||
|
|
/* Define __cdecl for non-Microsoft compilers */
|
||
|
|
|
||
|
|
#if ( !defined(_MSC_VER) && !defined(__cdecl) )
|
||
|
|
#define __cdecl
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/*
|
||
|
|
* For MS C for the x86 family, disable the annoying "long double is the
|
||
|
|
* same precision as double" warning
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifdef _M_IX86
|
||
|
|
#pragma warning(disable:4069)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/*
|
||
|
|
* structs used to fool the compiler into not generating floating point
|
||
|
|
* instructions when copying and pushing [long] double values
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef DOUBLE
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
double x;
|
||
|
|
} DOUBLE;
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef LONGDOUBLE
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
#if defined(_M_MRX000) || defined(_M_ALPHA) || defined(_M_PPC)
|
||
|
|
/*
|
||
|
|
* No long double type for MIPS, ALPHA, PPC.
|
||
|
|
*/
|
||
|
|
double x;
|
||
|
|
#else
|
||
|
|
/*
|
||
|
|
* Assume there is a long double type
|
||
|
|
*/
|
||
|
|
long double x;
|
||
|
|
#endif
|
||
|
|
} LONGDOUBLE;
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/*
|
||
|
|
* typedef for _fltout
|
||
|
|
*/
|
||
|
|
|
||
|
|
typedef struct _strflt
|
||
|
|
{
|
||
|
|
int sign; /* zero if positive otherwise negative */
|
||
|
|
int decpt; /* exponent of floating point number */
|
||
|
|
int flag; /* zero if okay otherwise IEEE overflow */
|
||
|
|
char *mantissa; /* pointer to mantissa in string form */
|
||
|
|
}
|
||
|
|
*STRFLT;
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* typedef for _fltin
|
||
|
|
*/
|
||
|
|
|
||
|
|
typedef struct _flt
|
||
|
|
{
|
||
|
|
int flags;
|
||
|
|
int nbytes; /* number of characters read */
|
||
|
|
long lval;
|
||
|
|
double dval; /* the returned floating point number */
|
||
|
|
}
|
||
|
|
*FLT;
|
||
|
|
|
||
|
|
|
||
|
|
/* floating point conversion routines, keep in sync with mrt32\include\convert.h */
|
||
|
|
|
||
|
|
char *_cftoe(double *, char *, int, int);
|
||
|
|
char *_cftof(double *, char *, int);
|
||
|
|
void __cdecl _fptostr(char *, int, STRFLT);
|
||
|
|
|
||
|
|
#ifdef _MT
|
||
|
|
|
||
|
|
STRFLT __cdecl _fltout2( DOUBLE, STRFLT, char * );
|
||
|
|
FLT __cdecl _fltin2( FLT , const char *, int, int, int );
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
STRFLT __cdecl _fltout( DOUBLE );
|
||
|
|
FLT __cdecl _fltin( const char *, int, int, int );
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* table of pointers to floating point helper routines
|
||
|
|
*
|
||
|
|
* We can't specify the prototypes for the entries of the table accurately,
|
||
|
|
* since different functions in the table have different arglists.
|
||
|
|
* So we declare the functions to take and return void (which is the
|
||
|
|
* correct prototype for _fptrap(), which is what the entries are all
|
||
|
|
* initialized to if no floating point is loaded) and cast appropriately
|
||
|
|
* on every usage.
|
||
|
|
*/
|
||
|
|
|
||
|
|
typedef void (* PFV)(void);
|
||
|
|
extern PFV _cfltcvt_tab[6];
|
||
|
|
|
||
|
|
typedef void (* PF0)(DOUBLE*, char*, int, int, int);
|
||
|
|
#define _cfltcvt(a,b,c,d,e) (*((PF0)_cfltcvt_tab[0]))(a,b,c,d,e)
|
||
|
|
|
||
|
|
typedef void (* PF1)(char*);
|
||
|
|
#define _cropzeros(a) (*((PF1)_cfltcvt_tab[1]))(a)
|
||
|
|
|
||
|
|
typedef void (* PF2)(int, char*, char*);
|
||
|
|
#define _fassign(a,b,c) (*((PF2)_cfltcvt_tab[2]))(a,b,c)
|
||
|
|
|
||
|
|
typedef void (* PF3)(char*);
|
||
|
|
#define _forcdecpt(a) (*((PF3)_cfltcvt_tab[3]))(a)
|
||
|
|
|
||
|
|
typedef int (* PF4)(DOUBLE*);
|
||
|
|
#define _positive(a) (*((PF4)_cfltcvt_tab[4]))(a)
|
||
|
|
|
||
|
|
typedef void (* PF5)(LONGDOUBLE*, char*, int, int, int);
|
||
|
|
#define _cldcvt(a,b,c,d,e) (*((PF5)_cfltcvt_tab[5]))(a,b,c,d,e)
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef _M_IX86
|
||
|
|
#pragma warning(default:4069)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#endif /* _INC_FLTINTRN */
|