OpenXM_contrib2/asir2018/builtin/parif.c - diff

Return to parif.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

version 1.2, 2018/09/28 08:20:27

version 1.3, 2019/05/07 02:09:50

Line 1

/* $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 "parse.h"

#include "ox.h"

Line 121 pointer evalparif(FUNC f,NODE arg)

mpfr_func mpfr_function;

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)(arg,&ret);

return (pointer) ret;