Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <stdio.h>
#include <signal.h>
#include <math.h>
#include <setjmp.h>
#include <complex.h>
#include "arith.internal.h"
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 $" |
Definition at line 578 of file ctgen.c.
Referenced by AR_NOINTRIN_ERROR().
Definition at line 577 of file ctgen.c.
Referenced by AR_NOINTRIN_ERROR().
void ar_internal_error | ( | int | msgnum, |
char * | file, | ||
int | line | ||
) |
Definition at line 589 of file ctgen.c.
References Internal, and PRINTMSG().
AR_NOINTRIN_ERROR | ( | char * | intrin_name | ) |
void ARQMULT | ( | float * | , |
float * | , | ||
float * | |||
) |
void dfadd | ( | long double * | z, |
long double * | x, | ||
long double * | y | ||
) |
void dfdiv | ( | long double * | z, |
long double * | x, | ||
long double * | y | ||
) |
void dfmul | ( | long double * | z, |
long double * | x, | ||
long double * | y | ||
) |
void dfsub | ( | long double * | z, |
long double * | x, | ||
long double * | y | ||
) |
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().
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().
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().
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().
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().
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().
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().
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().
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().
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.
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.
void trapmathlibabort | ( | void | ) |
Definition at line 61 of file ctgen.c.
References AR_STAT_UNDEFINED, fp_error, fperr_jmpbuf, and jmp_on_err.
unsigned long dtvals[] [static] |
{ 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] |
{ 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().
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().