Lines Matching refs:ctx
14 void wrapper_init(wrapperctx *ctx)
17 ctx->nops = ctx->nresults = 0;
19 ctx->mpfr_ops[i] = NULL;
20 ctx->mpc_ops[i] = NULL;
21 ctx->ieee_ops[i] = NULL;
23 ctx->mpfr_result = NULL;
24 ctx->mpc_result = NULL;
25 ctx->ieee_result = NULL;
26 ctx->need_regen = 0;
29 void wrapper_op_real(wrapperctx *ctx, const mpfr_t r,
32 assert(ctx->nops < 2);
33 ctx->mpfr_ops[ctx->nops] = r;
34 ctx->ieee_ops[ctx->nops] = ieee;
35 ctx->size_ops[ctx->nops] = size;
36 ctx->nops++;
39 void wrapper_op_complex(wrapperctx *ctx, const mpc_t c,
42 assert(ctx->nops < 2);
43 ctx->mpc_ops[ctx->nops] = c;
44 ctx->ieee_ops[ctx->nops] = ieee;
45 ctx->size_ops[ctx->nops] = size;
46 ctx->nops++;
49 void wrapper_result_real(wrapperctx *ctx, mpfr_t r,
52 assert(ctx->nresults < 1);
53 ctx->mpfr_result = r;
54 ctx->ieee_result = ieee;
55 ctx->size_result = size;
56 ctx->nresults++;
59 void wrapper_result_complex(wrapperctx *ctx, mpc_t c,
62 assert(ctx->nresults < 1);
63 ctx->mpc_result = c;
64 ctx->ieee_result = ieee;
65 ctx->size_result = size;
66 ctx->nresults++;
69 int wrapper_run(wrapperctx *ctx, wrapperfunc wrappers[MAXWRAPPERS])
73 wrappers[i](ctx);
74 universal_wrapper(ctx);
75 return ctx->need_regen;
78 mpfr_srcptr wrapper_get_mpfr(wrapperctx *ctx, int op)
81 assert(ctx->mpfr_result);
82 return ctx->mpfr_result;
84 assert(ctx->mpfr_ops[op]);
85 return ctx->mpfr_ops[op];
89 const uint32 *wrapper_get_ieee(wrapperctx *ctx, int op)
92 assert(ctx->mpfr_result);
93 return ctx->ieee_result;
95 assert(ctx->mpfr_ops[op]);
96 return ctx->ieee_ops[op];
100 int wrapper_get_nops(wrapperctx *ctx)
102 return ctx->nops;
105 int wrapper_get_size(wrapperctx *ctx, int op)
108 assert(ctx->mpfr_result || ctx->mpc_result);
109 return ctx->size_result;
111 assert(ctx->mpfr_ops[op] || ctx->mpc_ops[op]);
112 return ctx->size_ops[op];
116 int wrapper_is_complex(wrapperctx *ctx, int op)
119 assert(ctx->mpfr_result || ctx->mpc_result);
120 return ctx->mpc_result != NULL;
122 assert(ctx->mpfr_ops[op] || ctx->mpc_ops[op]);
123 return ctx->mpc_ops[op] != NULL;
127 mpc_srcptr wrapper_get_mpc(wrapperctx *ctx, int op)
130 assert(ctx->mpc_result);
131 return ctx->mpc_result;
133 assert(ctx->mpc_ops[op]);
134 return ctx->mpc_ops[op];
138 mpfr_srcptr wrapper_get_mpfr_r(wrapperctx *ctx, int op)
141 assert(ctx->mpc_result);
142 return mpc_realref(ctx->mpc_result);
144 assert(ctx->mpc_ops[op]);
145 return mpc_realref(ctx->mpc_ops[op]);
149 mpfr_srcptr wrapper_get_mpfr_i(wrapperctx *ctx, int op)
152 assert(ctx->mpc_result);
153 return mpc_imagref(ctx->mpc_result);
155 assert(ctx->mpc_ops[op]);
156 return mpc_imagref(ctx->mpc_ops[op]);
160 const uint32 *wrapper_get_ieee_r(wrapperctx *ctx, int op)
163 assert(ctx->mpc_result);
164 return ctx->ieee_result;
166 assert(ctx->mpc_ops[op]);
167 return ctx->ieee_ops[op];
171 const uint32 *wrapper_get_ieee_i(wrapperctx *ctx, int op)
174 assert(ctx->mpc_result);
175 return ctx->ieee_result + 4;
177 assert(ctx->mpc_ops[op]);
178 return ctx->ieee_ops[op] + 2;
182 void wrapper_set_sign(wrapperctx *ctx, uint32 sign)
184 assert(ctx->mpfr_result);
185 ctx->ieee_result[0] |= (sign & 0x80000000U);
188 void wrapper_set_sign_r(wrapperctx *ctx, uint32 sign)
190 assert(ctx->mpc_result);
191 ctx->ieee_result[0] |= (sign & 0x80000000U);
194 void wrapper_set_sign_i(wrapperctx *ctx, uint32 sign)
196 assert(ctx->mpc_result);
197 ctx->ieee_result[4] |= (sign & 0x80000000U);
200 void wrapper_set_nan(wrapperctx *ctx)
202 assert(ctx->mpfr_result);
203 mpfr_set_nan(ctx->mpfr_result);
204 ctx->need_regen = 1;
207 void wrapper_set_nan_r(wrapperctx *ctx)
209 assert(ctx->mpc_result);
210 mpfr_set_nan(mpc_realref(ctx->mpc_result)); /* FIXME: better way? */
211 ctx->need_regen = 1;
214 void wrapper_set_nan_i(wrapperctx *ctx)
216 assert(ctx->mpc_result);
217 mpfr_set_nan(mpc_imagref(ctx->mpc_result)); /* FIXME: better way? */
218 ctx->need_regen = 1;
221 void wrapper_set_int(wrapperctx *ctx, int val)
223 assert(ctx->mpfr_result);
224 mpfr_set_si(ctx->mpfr_result, val, GMP_RNDN);
225 ctx->need_regen = 1;
228 void wrapper_set_int_r(wrapperctx *ctx, int val)
230 assert(ctx->mpc_result);
231 mpfr_set_si(mpc_realref(ctx->mpc_result), val, GMP_RNDN);
232 ctx->need_regen = 1;
235 void wrapper_set_int_i(wrapperctx *ctx, int val)
237 assert(ctx->mpc_result);
238 mpfr_set_si(mpc_realref(ctx->mpc_result), val, GMP_RNDN);
239 ctx->need_regen = 1;
242 void wrapper_set_mpfr(wrapperctx *ctx, const mpfr_t val)
244 assert(ctx->mpfr_result);
245 mpfr_set(ctx->mpfr_result, val, GMP_RNDN);
246 ctx->need_regen = 1;
249 void wrapper_set_mpfr_r(wrapperctx *ctx, const mpfr_t val)
251 assert(ctx->mpc_result);
252 mpfr_set(mpc_realref(ctx->mpc_result), val, GMP_RNDN);
253 ctx->need_regen = 1;
256 void wrapper_set_mpfr_i(wrapperctx *ctx, const mpfr_t val)
258 assert(ctx->mpc_result);
259 mpfr_set(mpc_realref(ctx->mpc_result), val, GMP_RNDN);
260 ctx->need_regen = 1;