osprey/arith/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/Subroutines

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 2005/10/21 19:00:00 marcel Exp $"

Define Documentation

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

Definition at line 578 of file ctgen.c.

Referenced by $BNDCHK(), __OPN(), _ALLOCATE(), _CLS(), _cntig_chk(), _DEALLOC(), _DEALLOCATE(), _fcd_blank(), _fcd_cmp_eq(), _fcd_cmp_gt(), _fcd_cmp_lt(), _fcd_copy(), _findname(), _FRF(), _FRN(), _FWF(), _FWN(), _getnlval(), _INQ(), _INQIL(), _is_nonadv(), _map_to_dv(), _nl_stride_dv(), _nlrdent(), _nlstrent(), _PAUSE(), _PXFACCESS(), _PXFCHDIR(), _PXFCHMOD(), _PXFCHOWN(), _PXFCHROOT(), _PXFCREAT(), _PXFCTERMID(), _PXFEXECV(), _PXFEXECVE(), _PXFEXECVP(), _PXFGETARG(), _PXFGETCWD(), _PXFGETENV(), _PXFGETGRNAM(), _PXFGETLOGIN(), _PXFGETPWNAM(), _PXFLINK(), _PXFMKFIFO(), _PXFOPEN(), _PXFREAD(), _PXFRENAME(), _PXFRMDIR(), _PXFSETENV(), _PXFSTAT(), _PXFSYSTEM(), _PXFUNLINK(), _PXFUTIME(), _rb(), _REALLOC(), _rnl90to77(), _stride_dv(), _unpack_arry(), _wb(), _wnl90to77(), _xfer_iolist(), AR_INTRIN1(), AR_INTRIN2(), AR_NOINTRIN_ERROR(), findmatch(), n_getv(), RNL(), setup_format(), and WNL().

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

Definition at line 577 of file ctgen.c.

Referenced by $BNDCHK(), $DFI(), $EFI(), __OPN(), _CLS(), _cntig_chk(), _DEALLOC(), _DEALLOCATE(), _fcd_blank(), _fcd_cmp_eq(), _fcd_cmp_gt(), _fcd_cmp_lt(), _fcd_copy(), _findname(), _FRF(), _FRN(), _FWF(), _FWN(), _getfchar(), _getnlval(), _INQ(), _is_nonadv(), _map_to_dv(), _nl_stride_dv(), _nlrdent(), _nlstrent(), _PAUSE(), _PXFACCESS(), _PXFCHDIR(), _PXFCHMOD(), _PXFCHOWN(), _PXFCHROOT(), _PXFCREAT(), _PXFCTERMID(), _PXFEXECV(), _PXFEXECVE(), _PXFEXECVP(), _PXFGETARG(), _PXFGETCWD(), _PXFGETENV(), _PXFGETGRNAM(), _PXFGETLOGIN(), _PXFGETPWNAM(), _PXFLINK(), _PXFMKFIFO(), _PXFOPEN(), _PXFOPENDIR(), _PXFREAD(), _PXFRENAME(), _PXFRMDIR(), _PXFSETENV(), _PXFSTAT(), _PXFSYSTEM(), _PXFUNLINK(), _PXFUTIME(), _PXFWRITE(), _rb(), _REALLOC(), _rnl90to77(), _stride_dv(), _unpack_arry(), _wb(), _wnl90to77(), _xfer_iolist(), AR_INTRIN1(), AR_INTRIN2(), AR_NOINTRIN_ERROR(), findmatch(), n_getv(), 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().

AR_NOINTRIN_ERROR ( char *  intrin_name  ) 

Definition at line 579 of file ctgen.c.

References _fcdlen, _fcdtocp, ar_internal_error(), i, and isalnum().

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, op, setjmp(), tvals, x, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, op, setjmp(), tvals, x, is::y, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, ivals, op, setjmp(), tvals, x, is::y, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, op, setjmp(), tvals, x, is::y, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, op, setjmp(), tvals, x, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, op, setjmp(), tvals, x, is::y, and is::z.

Referenced by main().

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

Definition at line 251 of file ctgen.c.

References AR_STAT_OK, AR_STAT_ZERO, cv(), exit(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, op, setjmp(), tvals, x, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, ivals, op, setjmp(), tvals, x, is::y, and is::z.

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(), fclose(), fopen, fp, fp_error, fperr_jmpbuf, fprintf(), i, ivals, op, setjmp(), x, is::y, and is::z.

Referenced by main().

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, jmp_on_err, longjmp(), and signal().

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

Definition at line 167 of file ctgen.c.

main ( void   ) 

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(), jmp_on_err, and signal().

void trapmathlibabort ( void   ) 

Definition at line 61 of file ctgen.c.

References AR_STAT_UNDEFINED, fp_error, fperr_jmpbuf, jmp_on_err, and longjmp().

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.

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 2005/10/21 19:00:00 marcel 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 Wed Apr 8 14:24:19 2009 for Open64 by  doxygen 1.5.6