ctgen.c File Reference

#include <stdio.h>
#include <signal.h>
#include <math.h>
#include <setjmp.h>
#include <complex.h>
#include "arith.internal.h"
Include dependency graph for ctgen.c:

Go to the source code of this file.

Defines

#define _fcdtocp(f)   ((char *)(((long)(f))&0xfc000000ffffffff))
#define _fcdlen(f)   ((unsigned)((((long)(f))>>35)&0x7fffff))

Functions

void fperr (int sig)
void trapmathlibabort (void)
void fadd (float *z, float *x, float *y)
void fsub (float *z, float *x, float *y)
void fmul (float *z, float *x, float *y)
void fdiv (float *z, float *x, float *y)
void dfadd (long double *z, long double *x, long double *y)
void dfsub (long double *z, long double *x, long double *y)
void dfmul (long double *z, long double *x, long double *y)
void dfdiv (long double *z, long double *x, long double *y)
void ARFMULT (float *, float *, float *)
void ARRMULT (float *, float *, float *)
void ARIMULT (float *, float *, float *)
void ARQMULT (float *, float *, float *)
void ARHRECIP (float *, float *)
void ARSQRT (float *, float *)
void ARDSQRT (long double *, long double *)
void ARLOG (float *, float *)
void ARDLOG (long double *, long double *)
void AREXP (float *, float *)
void ARDEXP (long double, long double *)
void ARPOWII (int *, int *, int *)
void ARPOWRI (float *, float *, long *)
void ARPOWRR (float *, float *, float *)
void ARPOWDI (long double *, long double *, long *)
void ARPOWDR (long double *, long double *, float *)
void ARPOWDD (long double *, long double *, long double *)
void ARCABS (float *, double complex *)
 dotest64_1 (char *fn, void(*op)())
 dotest64_c (char *fn, void(*op)())
 dotest64_2 (char *fn, void(*op)())
 dotest64_i (char *fn, void(*op)())
 dotest64_i2 (char *fn, void(*op)())
 dotest128_1 (char *fn, void(*op)())
 dotest128_2 (char *fn, void(*op)())
 dotest128_r (char *fn, void(*op)())
 dotest128_i (char *fn, void(*op)())
 main ()
 AR_NOINTRIN_ERROR (char *intrin_name)
void ar_internal_error (int msgnum, char *file, int line)

Variables

static volatile int fp_error = AR_STAT_OK
static int jmp_on_err = 0
static jmp_buf fperr_jmpbuf
static unsigned long tvals []
static unsigned long dtvals []
static unsigned long ivals []
static char USMID [] = "\n%Z%%M% %I% %G% %U%\n"
static char rcsid [] = "$Id: ctgen.c,v 1.1.1.1 2002-05-22 20:06:18 dsystem Exp $"

Define Documentation

#define _fcdlen ( f   )     ((unsigned)((((long)(f))>>35)&0x7fffff))

Definition at line 578 of file ctgen.c.

Referenced by __OPN(), __transfer(), _ADJUSTL_(), _ADJUSTR_(), _ASSOCIATED(), _ASSOCIATED_4(), _ASSOCIATED_8(), _CHAR_(), _CLS(), _cntig_chk(), _CSHIFT(), _EOSHIFT(), _findname(), _FRF(), _FRN(), _FWF(), _FWN(), _getnlval(), _INDEX(), _INDEX_2(), _INDEX_4(), _INDEX_8(), _INQ(), _INQIL(), _is_nonadv(), _LEN_(), _LEN_4_(), _LEN_8_(), _LEN_TRIM_(), _LEN_TRIM_4_(), _LEN_TRIM_8_(), _map_to_dv(), _MERGE(), _nl_stride_dv(), _nlrdent(), _nlstrent(), _PACK(), _rb(), _REPEAT(), _RESHAPE(), _rnl90to77(), _SPREAD(), _stride_dv(), _TRIM(), _UNPACK(), _unpack_arry(), _wb(), _wnl90to77(), _xfer_iolist(), AR_INTRIN1(), AR_INTRIN2(), AR_NOINTRIN_ERROR(), findmatch(), n_getv(), NAME(), RNL(), setup_format(), and WNL().

#define _fcdtocp ( f   )     ((char *)(((long)(f))&0xfc000000ffffffff))

Definition at line 577 of file ctgen.c.

Referenced by $DFI(), $EFI(), __OPN(), __transfer(), _ADJUSTL_(), _ADJUSTR_(), _CHAR_(), _CLS(), _cntig_chk(), _CSHIFT(), _EOSHIFT(), _findname(), _FRF(), _FRN(), _FWF(), _FWN(), _getfchar(), _getnlval(), _ICHAR_(), _ICHAR_4_(), _ICHAR_8_(), _INDEX(), _INDEX_2(), _INDEX_4(), _INDEX_8(), _INQ(), _is_nonadv(), _LEN_TRIM_(), _LEN_TRIM_4_(), _LEN_TRIM_8_(), _LOC_(), _map_to_dv(), _MERGE(), _nl_stride_dv(), _nlrdent(), _nlstrent(), _PACK(), _rb(), _REPEAT(), _RESHAPE(), _rnl90to77(), _SPREAD(), _stride_dv(), _TRIM(), _UNPACK(), _unpack_arry(), _wb(), _wnl90to77(), _xfer_iolist(), AR_INTRIN1(), AR_INTRIN2(), AR_NOINTRIN_ERROR(), findmatch(), n_getv(), NAME(), RNL(), setup_format(), and WNL().

Function Documentation

void ar_internal_error ( int  msgnum,
char *  file,
int  line 
)

Definition at line 589 of file ctgen.c.

References Internal, and PRINTMSG().

Here is the call graph for this function:

AR_NOINTRIN_ERROR ( char *  intrin_name  ) 

Definition at line 579 of file ctgen.c.

References _fcdlen, _fcdtocp, ar_internal_error(), and name.

Here is the call graph for this function:

void ARCABS ( float *  ,
double complex *   
)

Referenced by main().

void ARDEXP ( long  double,
long double *   
)

Referenced by main().

void ARDLOG ( long double *  ,
long double *   
)

Referenced by main().

void ARDSQRT ( long double *  ,
long double *   
)

Referenced by main().

void AREXP ( float *  ,
float *   
)

Referenced by main().

void ARFMULT ( float *  ,
float *  ,
float *   
)

Referenced by main().

void ARHRECIP ( float *  ,
float *   
)

Referenced by main().

void ARIMULT ( float *  ,
float *  ,
float *   
)

Referenced by main().

void ARLOG ( float *  ,
float *   
)

Referenced by main().

void ARPOWDD ( long double *  ,
long double *  ,
long double *   
)

Referenced by main().

void ARPOWDI ( long double *  ,
long double *  ,
long *   
)

Referenced by main().

void ARPOWDR ( long double *  ,
long double *  ,
float *   
)

Referenced by main().

void ARPOWII ( int *  ,
int *  ,
int *   
)

Referenced by main().

void ARPOWRI ( float *  ,
float *  ,
long *   
)

Referenced by main().

void ARPOWRR ( float *  ,
float *  ,
float *   
)

Referenced by main().

void ARQMULT ( float *  ,
float *  ,
float *   
)
void ARRMULT ( float *  ,
float *  ,
float *   
)

Referenced by main().

void ARSQRT ( float *  ,
float *   
)

Referenced by main().

void dfadd ( long double *  z,
long double *  x,
long double *  y 
)

Definition at line 182 of file ctgen.c.

void dfdiv ( long double *  z,
long double *  x,
long double *  y 
)

Definition at line 197 of file ctgen.c.

void dfmul ( long double *  z,
long double *  x,
long double *  y 
)

Definition at line 192 of file ctgen.c.

void dfsub ( long double *  z,
long double *  x,
long double *  y 
)

Definition at line 187 of file ctgen.c.

dotest128_1 ( char *  fn,
void(*)()  op 
)

Definition at line 384 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, dtvals, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and tvals.

Referenced by main().

Here is the call graph for this function:

dotest128_2 ( char *  fn,
void(*)()  op 
)

Definition at line 418 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, dtvals, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and tvals.

Referenced by main().

Here is the call graph for this function:

dotest128_i ( char *  fn,
void(*)()  op 
)

Definition at line 500 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, dtvals, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), ivals, and tvals.

Referenced by main().

Here is the call graph for this function:

dotest128_r ( char *  fn,
void(*)()  op 
)

Definition at line 458 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, dtvals, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and tvals.

Referenced by main().

Here is the call graph for this function:

dotest64_1 ( char *  fn,
void(*)()  op 
)

Definition at line 222 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and tvals.

Referenced by main().

Here is the call graph for this function:

dotest64_2 ( char *  fn,
void(*)()  op 
)

Definition at line 287 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and tvals.

Referenced by main().

Here is the call graph for this function:

dotest64_c ( char *  fn,
void(*)()  op 
)

Definition at line 251 of file ctgen.c.

References AR_STAT_OK, AR_STAT_ZERO, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and tvals.

Referenced by main().

Here is the call graph for this function:

dotest64_i ( char *  fn,
void(*)()  op 
)

Definition at line 321 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), ivals, and tvals.

Referenced by main().

Here is the call graph for this function:

dotest64_i2 ( char *  fn,
void(*)()  op 
)

Definition at line 354 of file ctgen.c.

References AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_ZERO, exit(), fp, fp_error, fperr_jmpbuf, fprintf(), and ivals.

Referenced by main().

Here is the call graph for this function:

void fadd ( float *  z,
float *  x,
float *  y 
)

Definition at line 162 of file ctgen.c.

void fdiv ( float *  z,
float *  x,
float *  y 
)

Definition at line 177 of file ctgen.c.

void fmul ( float *  z,
float *  x,
float *  y 
)

Definition at line 172 of file ctgen.c.

void fperr ( int  sig  ) 

Definition at line 53 of file ctgen.c.

References AR_STAT_OVERFLOW, fp_error, fperr(), fperr_jmpbuf, and jmp_on_err.

Here is the call graph for this function:

void fsub ( float *  z,
float *  x,
float *  y 
)

Definition at line 167 of file ctgen.c.

main (  ) 

Definition at line 540 of file ctgen.c.

References ARCABS(), ARDEXP(), ARDLOG(), ARDSQRT(), AREXP(), ARHRECIP(), ARIMULT(), ARLOG(), ARPOWDD(), ARPOWDI(), ARPOWDR(), ARPOWII(), ARPOWRI(), ARPOWRR(), ARSQRT(), dfadd(), dfdiv(), dfmul(), dfsub(), dotest128_1(), dotest128_2(), dotest128_i(), dotest128_r(), dotest64_1(), dotest64_2(), dotest64_c(), dotest64_i(), dotest64_i2(), exit(), fadd(), fdiv(), fmul(), fperr(), fsub(), and jmp_on_err.

Here is the call graph for this function:

void trapmathlibabort ( void   ) 

Definition at line 61 of file ctgen.c.

References AR_STAT_UNDEFINED, fp_error, fperr_jmpbuf, and jmp_on_err.

Variable Documentation

unsigned long dtvals[] [static]
Initial value:
 {

        00000000000000000000000,
        00000004000000000000000,
        00000000000000000000001,
        00000007777777777777777,
        00000007777777777777776,
        00000000000001234123400,

        0       
}

Definition at line 129 of file ctgen.c.

Referenced by dotest128_1(), dotest128_2(), dotest128_i(), and dotest128_r().

volatile int fp_error = AR_STAT_OK [static]

Definition at line 49 of file ctgen.c.

Referenced by dotest128_1(), dotest128_2(), dotest128_i(), dotest128_r(), dotest64_1(), dotest64_2(), dotest64_c(), dotest64_i(), dotest64_i2(), fperr(), and trapmathlibabort().

jmp_buf fperr_jmpbuf [static]

Definition at line 51 of file ctgen.c.

Referenced by dotest128_1(), dotest128_2(), dotest128_i(), dotest128_r(), dotest64_1(), dotest64_2(), dotest64_c(), dotest64_i(), dotest64_i2(), fperr(), and trapmathlibabort().

unsigned long ivals[] [static]
Initial value:
 {

        00000000000000000000000,
        00000000000000000000001,
        00000000000000000000002,
        00000000000000000000041,
        00000000000000000000077,
        00000000000000000000100,
        00777777777777777777777,
        01777777777777777777777,
        01777777777777777777776,
        01000000000000000000000,

        0       
}

Definition at line 143 of file ctgen.c.

Referenced by dotest128_i(), dotest64_i(), and dotest64_i2().

int jmp_on_err = 0 [static]

Definition at line 50 of file ctgen.c.

Referenced by fperr(), main(), and trapmathlibabort().

char rcsid[] = "$Id: ctgen.c,v 1.1.1.1 2002-05-22 20:06:18 dsystem Exp $" [static]

Definition at line 597 of file ctgen.c.

unsigned long tvals[] [static]

Definition at line 71 of file ctgen.c.

Referenced by dotest128_1(), dotest128_2(), dotest128_i(), dotest128_r(), dotest64_1(), dotest64_2(), dotest64_c(), and dotest64_i().

char USMID[] = "\n%Z%%M% %I% %G% %U%\n" [static]

Definition at line 596 of file ctgen.c.

Generated on Tue Nov 17 05:55:40 2009 for Open64 (mfef90, whirl2f, and IR tools) by  doxygen 1.6.1