Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
c_q_to_a.c File Reference
#include "defs.h"
#include "quad.h"
Include dependency graph for c_q_to_a.c:

Go to the source code of this file.

Classes

union  _dval
union  _ldblval

Defines

#define SIGNBIT(X)   (((_dval *)&(X))->fparts.sign)
#define EXPONENT(X)   (((_dval *)&(X))->fparts.exp)
#define min(x, y)   ((x)<(y)? (x): (y))
#define max(x, y)   ((x)>(y)? (x): (y))
#define c_q_to_a   __c_q_to_a
#define HI   (value.fwords.hi) /* top 64b of 128b fraction */
#define LO   (value.fwords.lo) /* bottom 64b of 128b fraction */

Functions

void c_qtenscale (_ldblval *, INT32, INT32 *)
static INT32 c_qtoa (char *buffer, INT32 ndigit, QUAD x, INT32 fflag)
INT c_q_to_a (char *str, QUAD x, INT *p_err)

Define Documentation

#define c_q_to_a   __c_q_to_a

Definition at line 111 of file c_q_to_a.c.

#define EXPONENT (   X)    (((_dval *)&(X))->fparts.exp)

Definition at line 97 of file c_q_to_a.c.

Referenced by c_qtoa().

#define HI   (value.fwords.hi) /* top 64b of 128b fraction */
#define LO   (value.fwords.lo) /* bottom 64b of 128b fraction */
#define max (   x,
 
)    ((x)>(y)? (x): (y))

Definition at line 104 of file c_q_to_a.c.

#define SIGNBIT (   X)    (((_dval *)&(X))->fparts.sign)

Definition at line 96 of file c_q_to_a.c.

Referenced by c_qtoa().


Function Documentation

INT c_q_to_a ( char *  str,
QUAD  x,
INT p_err 
)

Definition at line 125 of file c_q_to_a.c.

References c_qtoa().

Here is the call graph for this function:

void c_qtenscale ( _ldblval ,
INT32  ,
INT32  
)
static INT32 c_qtoa ( char *  buffer,
INT32  ndigit,
QUAD  x,
INT32  fflag 
) [static]

Definition at line 245 of file c_q_to_a.c.

References c_qtenscale(), _dval::d, EXPONENT, QUAD::hi, _ldblval::hi, HI, QUAD::lo, _ldblval::lo, LO, min, _ldblval::qparts, s, and SIGNBIT.

Referenced by c_q_to_a().

Here is the call graph for this function:

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines