Lines Matching defs:func
88 } func;
107 } macro_name; /* only used if a macro/something that can't be done using func */
328 * keywords are: func size op1 op2 result res2 errno op1r op1i op2r op2i resultr resulti
334 test_func *func;
362 "errno", "errno_in", "error", "func", "maybeerror", "maybestatus", "op1", "op1i", "op1r", "op2", "op2i", "op2r",
757 if (verbose) printf("func=%s ", q);
758 //ret.func = find(q, funcs, sizeof(funcs));
759 ret.func = find_testfunc(q);
760 if (ret.func == NULL)
765 if(is_single_argtype(ret.func->argtype))
767 else if(is_double_argtype(ret.func->argtype))
769 if(is_single_rettype(ret.func->rettype))
771 else if(is_double_rettype(ret.func->rettype))
773 //ret.size = sizes[ret.func];
774 if (verbose) printf("(name=%s) (size=%d)\n", ret.func->name, ret.func->argtype);
1032 if (is_double_argtype(t.func->argtype) && is_dhard(t.op1r))
1034 if (t.func->argtype==at_d2 && is_dhard(t.op2r))
1036 if (is_single_argtype(t.func->argtype) && is_shard(t.op1r))
1038 if (t.func->argtype==at_s2 && is_shard(t.op2r))
1040 if (is_double_rettype(t.func->rettype) && is_dhard(t.resultr))
1042 if (t.func->rettype==rt_d2 && is_dhard(t.res2))
1044 if (is_single_argtype(t.func->rettype) && is_shard(t.resultr))
1046 if (t.func->rettype==rt_s2 && is_shard(t.res2))
1062 if(t.func->type == t_func) {
1063 switch(t.func->argtype) {
1064 case at_d: d_res.f = t.func->func.d_d_ptr(d_arg1.f); break;
1065 case at_s: s_res.f = t.func->func.s_s_ptr(s_arg1.f); break;
1066 case at_d2: d_res.f = t.func->func.d2_d_ptr(d_arg1.f, d_arg2.f); break;
1067 case at_s2: s_res.f = t.func->func.s2_s_ptr(s_arg1.f, s_arg2.f); break;
1068 case at_di: d_res.f = t.func->func.di_d_ptr(d_arg1.f, d_arg2.i[dmsd]); break;
1069 case at_si: s_res.f = t.func->func.si_s_ptr(s_arg1.f, s_arg2.i); break;
1070 case at_dip: d_res.f = t.func->func.dip_d_ptr(d_arg1.f, (int*)&intres); break;
1071 case at_sip: s_res.f = t.func->func.sip_s_ptr(s_arg1.f, (int*)&intres); break;
1072 case at_ddp: d_res.f = t.func->func.ddp_d_ptr(d_arg1.f, &d_res2.f); break;
1073 case at_ssp: s_res.f = t.func->func.ssp_s_ptr(s_arg1.f, &s_res2.f); break;
1075 printf("unhandled function: %s\n",t.func->name);
1079 /* printf("macro: name=%s, num=%i, s1.i=0x%08x s1.f=%f\n",t.func->name, t.func->macro_name, s_arg1.i, (double)s_arg1.f); */
1080 switch(t.func->macro_name) {
1108 printf("unhandled macro: %s\n",t.func->name);
1128 if (!(is_complex_argtype(t.func->argtype) || is_complex_rettype(t.func->rettype))) {
1149 switch(t.func->rettype) {
1226 print_error(t.func->rettype,resultr,"wrongresultr",&failp);
1227 print_error(t.func->rettype,resulti,"wrongresulti",&failp);
1244 ulptolerance = t.func->tolerance;
1277 if (t.func->rettype == rt_d)
1279 else if (t.func->rettype == rt_s)
1336 ulpsr = calc_error(resultr, tresultr, rshift, t.func->rettype);
1337 if(is_complex_rettype(t.func->rettype)) {
1338 ulpsi = calc_error(resulti, tresulti, ishift, t.func->rettype);
1348 print_error(t.func->rettype,rr,"wrongresultr",&failp);
1349 print_error(t.func->rettype,ri,"wrongresulti",&failp);
1350 print_ulps(t.func->rettype,rr ? ulpsr : 0, ri ? ulpsi : 0,&failp);
1354 if(is_complex_rettype(t.func->rettype))
1365 switch(t.func->rettype) {
1401 if(is_complex_rettype(t.func->rettype)) {
1417 print_error(t.func->rettype,rr,"wrongresultr",&failp);
1418 print_error(t.func->rettype,ri,"wrongresulti",&failp);
1423 print_error(t.func->rettype,resultr,"wrongresult",&failp);
1430 if (t.func->func.ptr == &frexp || t.func->func.ptr == &frexpf ||
1431 t.func->macro_name == m_rred || t.func->macro_name == m_rredf) {
1444 } else if (t.func->func.ptr == &modf || t.func->func.ptr == &modff) {
1447 if (is_double_rettype(t.func->rettype)) {
1470 if (is_double_rettype(t.func->rettype))