OpenXM_contrib2/asir2000/parse/eval.c - diff

Return to eval.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/eval.c between version 1.64 and 1.66

version 1.64, 2008/11/18 20:52:47

version 1.66, 2010/04/23 04:44:52

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.63 2008/09/01 06:20:33 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.65 2009/03/04 09:15:36 ohara Exp $

#include <ctype.h>

#include "ca.h"

Line 943 pointer evalf(FUNC f,FNODE a,FNODE opt)

}

if ( !stack_base ) {

#if defined(GC7)

struct GC_stack_base sb;

stack_base = (void *)GC_get_main_stack_base();

GC_get_stack_base(&sb);

stack_base = (void *)sb.mem_base;

#else

stack_base = (void *)GC_get_stack_base();

#endif

Line 989 pointer evalf(FUNC f,FNODE a,FNODE opt)

Line 987 pointer evalf(FUNC f,FNODE a,FNODE opt)

for ( tn = f->f.usrf->args, sn = BDY(args);

sn; tn = NEXT(tn), sn = NEXT(sn) )

ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));

f_return = f_break = f_continue = 0;

if ( f->f.usrf->module ) {

prev_mpvs = MPVS;

MPVS = f->f.usrf->module->pvs;

Line 1197 pointer bevalf(FUNC f,NODE a)

Line 1196 pointer bevalf(FUNC f,NODE a)

for ( tn = f->f.usrf->args, sn = a;

sn; tn = NEXT(tn), sn = NEXT(sn) )

ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));

f_return = f_break = f_continue = 0;

if ( f->f.usrf->module ) {

prev_mpvs = MPVS;

MPVS = f->f.usrf->module->pvs;

Line 1275 pointer bevalf_with_opts(FUNC f,NODE a,NODE opts)

for ( tn = f->f.usrf->args, sn = a;

sn; tn = NEXT(tn), sn = NEXT(sn) )

ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));

f_return = f_break = f_continue = 0;

if ( f->f.usrf->module ) {

prev_mpvs = MPVS;

MPVS = f->f.usrf->module->pvs;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>