Lines Matching defs:ret
195 #define TFUNC(arg,ret,name,tolerance) { t_func, arg, ret, (void*)&name, m_none, tolerance, #name }
196 #define TFUNCARM(arg,ret,name,tolerance) { t_func, arg, ret, (void*)& ARM_PREFIX(name), m_none, tolerance, #name }
197 #define MFUNC(arg,ret,name,tolerance) { t_macro, arg, ret, NULL, m_##name, tolerance, #name }
712 testdetail ret; /* What we return */
717 /* clear ret */
718 memset(&ret, 0, sizeof(ret));
724 ret.comment = 1;
726 return ret;
728 ret.comment = 0;
732 ret = oldtest; /* structure copy */
739 ret.random = randomstate;
741 ret.in_err = 0;
742 ret.in_err_limit = e_number_of_errnos;
754 ret.comment = 1;
755 return ret; /* otherwise ignore this line */
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);
778 n = do_op(q,ret.op1r,"op1r",2,argtype);
783 n = do_op(q,ret.op1i,"op1i",2,argtype);
789 n = do_op(q,ret.op2r,"op2r",2,argtype);
794 n = do_op(q,ret.op2i,"op2i",2,argtype);
801 ret.resultc = rc_infinity;
803 ret.resultc = rc_zero;
805 ret.resultc = rc_nan;
807 ret.resultc = rc_finite;
814 n = (do_op)(q,ret.resultr,"resultr",3,rettype);
817 ret.nresult = n; /* assume real and imaginary have same no. words */
820 n = do_op(q,ret.resulti,"resulti",3,rettype);
825 n = do_op(q,ret.res2,"res2",2,rettype);
831 if (*q == 'i') ret.status |= FE_INVALID;
832 if (*q == 'z') ret.status |= FE_DIVBYZERO;
833 if (*q == 'o') ret.status |= FE_OVERFLOW;
834 if (*q == 'u') ret.status |= FE_UNDERFLOW;
844 case e_domain: ret.maybestatus |= FE_INVALID; break;
845 case e_divbyzero: ret.maybestatus |= FE_DIVBYZERO; break;
846 case e_overflow: ret.maybestatus |= FE_OVERFLOW; break;
847 case e_underflow: ret.maybestatus |= FE_UNDERFLOW; break;
853 ret.maybeerr = e_EDOM; break;
857 ret.maybeerr = e_ERANGE; break;
862 if (*q == 'i') ret.maybestatus |= FE_INVALID;
863 if (*q == 'z') ret.maybestatus |= FE_DIVBYZERO;
864 if (*q == 'o') ret.maybestatus |= FE_OVERFLOW;
865 if (*q == 'u') ret.maybestatus |= FE_UNDERFLOW;
875 case e_domain: ret.status |= FE_INVALID; break;
876 case e_divbyzero: ret.status |= FE_DIVBYZERO; break;
877 case e_overflow: ret.status |= FE_OVERFLOW; break;
878 case e_underflow: ret.status |= FE_UNDERFLOW; break;
884 ret.err = e_EDOM; break;
888 ret.err = e_ERANGE; break;
894 ret.maybeerr = e_EDOM; break;
898 ret.maybeerr = e_ERANGE; break;
903 ret.err = find(q, errnos, sizeof(errnos));
904 if (ret.err < 0)
908 ret.in_err = find(q, errnos, sizeof(errnos));
909 if (ret.err < 0)
911 ret.in_err_limit = ret.in_err + 1;
924 ret.valid = 1;
925 return ret;
929 ret.valid = 0;
930 return ret;