25 #include "pips_config.h"
29 char vcid_syntax_eval[] =
"%A% ($Date: 1998/04/14 21:28:15 $, ) version $Revision: 16236 $, got on %D%, %T% [%P%].\n Copyright (c) École des Mines de Paris Proprietary.";
245 debug(9,
"EvalBinaryOp",
"pas encore d'evaluation\n");
constant make_constant(enum constant_utype tag, void *val)
value make_value_unknown(void)
value make_value(enum value_utype tag, void *val)
value MakeValueLitteral()
void gen_free(gen_chunk *obj)
version without shared_pointers.
#define NIL
The empty list (nil in Lisp)
#define CAR(pcons)
Get the value of the first element of a list.
#define CDR(pcons)
Get the list less its first element.
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
void debug(const int the_expected_debug_level, const char *calling_function_name, const char *a_message_format,...)
ARARGS0.
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
const char * entity_local_name(entity e)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
int IsUnaryOperator(entity e)
value EvalBinaryOp(int t, list la)
t defines the operator and la is a list to two sub-expressions.
value EvalConstant(constant c)
Constant c is returned as field of value v.
value EvalCall(call c)
only calls to constant, symbolic or intrinsic functions might be evaluated.
value EvalExpression(expression e)
Evaluate statically an expression.
value EvalIntrinsic(entity e, list la)
This function tries to evaluate a call to an intrinsic function.
value EvalSyntax(syntax s)
value EvalUnaryOp(int t, list la)
int IsBinaryOperator(entity e)
FI: These string constants are defined in ri-util.h and the tokens in ri-util/operator....
int ipow(int vg, int vd)
FI: such a function should exist in Linear/arithmetique.
#define value_constant(x)
#define symbolic_constant(x)
@ is_syntax_sizeofexpression
#define value_constant_p(x)
#define value_symbolic(x)
#define EXPRESSION(x)
EXPRESSION.
#define constant_int_p(x)
#define call_arguments(x)
#define expression_syntax(x)
#define entity_initial(x)
The structure used to build lists in NewGen.
bool ParserError(const char *f, const char *m)