1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
/*
* intern.h
*
* Copyright (c) 1999-2019, Arm Limited.
* SPDX-License-Identifier: MIT OR Apache-2.0 WITH LLVM-exception
*/
#ifndef mathtest_intern_h
#define mathtest_intern_h
#include <mpfr.h>
#include <mpc.h>
#include "types.h"
#include "wrappers.h"
/* Generic function pointer. */
typedef void (*funcptr)(void);
/* Pointers to test function types. */
typedef int (*testfunc1)(mpfr_t, mpfr_t, mpfr_rnd_t);
typedef int (*testfunc2)(mpfr_t, mpfr_t, mpfr_t, mpfr_rnd_t);
typedef int (*testrred)(mpfr_t, mpfr_t, int *);
typedef char * (*testsemi1)(uint32 *, uint32 *);
typedef char * (*testsemi2)(uint32 *, uint32 *, uint32 *);
typedef char * (*testsemi2f)(uint32 *, uint32 *, uint32 *);
typedef char * (*testldexp)(uint32 *, uint32 *, uint32 *);
typedef char * (*testfrexp)(uint32 *, uint32 *, uint32 *);
typedef char * (*testmodf)(uint32 *, uint32 *, uint32 *);
typedef char * (*testclassify)(uint32 *, uint32 *);
typedef char * (*testclassifyf)(uint32 *, uint32 *);
typedef int (*testfunc1c)(mpc_t, mpc_t, mpc_rnd_t);
typedef int (*testfunc2c)(mpc_t, mpc_t, mpc_t, mpc_rnd_t);
typedef int (*testfunc1cr)(mpfr_t, mpc_t, mpfr_rnd_t);
/* Pointer to a function that generates random test cases. */
typedef void (*casegen)(uint32 *, uint32, uint32);
/*
* List of testable functions, their types, and their testable range.
*/
enum {
args1, /* afloat-based, one argument */
args1f, /* same as args1 but in single prec */
args2, /* afloat-based, two arguments */
args2f, /* same as args2 but in single prec */
rred, /* afloat-based, one arg, aux return */
rredf, /* same as rred but in single prec */
semi1, /* seminumerical, one argument */
semi1f, /* seminumerical, 1 arg, float */
semi2, /* seminumerical, two arguments */
semi2f, /* seminumerical, 2 args, floats */
t_ldexp, /* dbl * int -> dbl */
t_ldexpf, /* sgl * int -> sgl */
t_frexp, /* dbl -> dbl * int */
t_frexpf, /* sgl -> sgl * int */
t_modf, /* dbl -> dbl * dbl */
t_modff, /* sgl -> sgl * sgl */
classify, /* classify double: dbl -> int */
classifyf, /* classify float: flt -> int */
compare, /* compare doubles, returns int */
comparef, /* compare floats, returns int */
args1c, /* acomplex-base, one argument */
args2c,
args1fc,
args2fc,
args1cr, /* dbl-complex -> complex */
args1fcr /* sgl-complex -> complex */
};
typedef struct __testable Testable;
struct __testable {
char *name;
funcptr func;
int type;
wrapperfunc wrappers[MAXWRAPPERS];
casegen cases; /* complex functions use the same casegen for both real and complex args */
uint32 caseparam1, caseparam2;
};
extern Testable functions[];
extern const int nfunctions;
extern void init_pi(void);
int nargs_(Testable* f);
#endif
|
