OpenXM_contrib2/asir2000/parse/eval.c - diff

Return to eval.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.75, 2016/08/24 08:21:03

version 1.77, 2017/08/31 02:36:21

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.74 2015/08/14 13:51:56 fujimoto Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.76 2017/02/07 08:30:31 noro Exp $

#include <ctype.h>

#include "ca.h"

Line 79 pointer eval(FNODE f)

R u;

DP dp;

unsigned int pv;

int c,ret;

int c,ret,pos;

FNODE f1;

UP2 up2;

UP up;

Line 168 pointer eval(FNODE f)

case I_EV:

evalnodebody((NODE)FA0(f),&tn); nodetod(tn,&dp); val = (pointer)dp;

break;

case I_EVM:

evalnodebody((NODE)FA0(f),&tn); pos = eval((FNODE)FA1(f)); nodetodpm(tn,pos,&dp); val = (pointer)dp;

break;

case I_FUNC:

val = evalf((FUNC)FA0(f),(FNODE)FA1(f),0); break;

case I_FUNC_OPT:

Line 1632 MODULE mkmodule(char *name)

Line 1635 MODULE mkmodule(char *name)

mod->name = (char *)MALLOC_ATOMIC(len+1);

strcpy(mod->name,name);

mod->pvs = mpvs = (VS)MALLOC(sizeof(struct oVS));

reallocarray((char **)&mpvs->va,(int *)&mpvs->asize,

asir_reallocarray((char **)&mpvs->va,(int *)&mpvs->asize,

(int *)&mpvs->n,(int)sizeof(struct oPV));

mod->usrf_list = 0;

MKNODE(m,mod,MODULE_LIST);