version 1.2, 2018/09/28 08:20:27 |
version 1.3, 2019/05/07 02:09:50 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2018/builtin/parif.c,v 1.1 2018/09/19 05:45:06 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/builtin/parif.c,v 1.2 2018/09/28 08:20:27 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#include "ox.h" |
#include "ox.h" |
Line 121 pointer evalparif(FUNC f,NODE arg) |
|
Line 121 pointer evalparif(FUNC f,NODE arg) |
|
mpfr_func mpfr_function; |
mpfr_func mpfr_function; |
V v; |
V v; |
|
|
if ( arg && ARG0(arg) && NID((Num)ARG0(arg)) != N_C |
if ( arg && (!ARG0(arg) || (NUM(ARG0(arg)) && NID((Num)ARG0(arg)) != N_C)) |
&& (mpfr_function = mpfr_search(f->name)) ) { |
&& (mpfr_function = mpfr_search(f->name)) ) { |
(*mpfr_function)(arg,&ret); |
(*mpfr_function)(arg,&ret); |
return (pointer) ret; |
return (pointer) ret; |