25 #include "pips_config.h"
97 for(lli = lidx, llr = lr; !
ENDP(lli);
POP(lli),
POP(llr)) {
unformatted make_unformatted(string a1, intptr_t a2, intptr_t a3, list a4)
sentence make_sentence(enum sentence_utype tag, void *val)
text text_loop_cmf(entity module, const char *label, int margin, loop obj, int n, list lr, list lidx)
=====================================================================
cons * words_cmf_loop_range(range obj)
Prettyprinter for CM FORTRAN loops.
bool instruction_assign_p(instruction i)
Test if an instruction is an assignment.
#define ENDP(l)
Test if a list is empty.
#define POP(l)
Modify a list pointer to point on the next element of the list.
#define NIL
The empty list (nil in Lisp)
#define CONS(_t_, _i_, _l_)
List element cell constructor (insert an element at the beginning of a list)
list gen_nconc(list cp1, list cp2)
physically concatenates CP1 and CP2 but do not duplicates the elements
#define CAR(pcons)
Get the value of the first element of a list.
#define CDR(pcons)
Get the list less its first element.
list Words_Subexpression(expression obj, int precedence, bool leftmost)
list Words_Call(call obj, int precedence, bool leftmost, bool is_a_subroutine)
list Words_Expression(expression obj)
of string
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...
#define instruction_loop_p(x)
#define instruction_loop(x)
#define range_increment(x)
#define statement_instruction(x)
#define instruction_call(x)
#define expression_syntax(x)
The structure used to build lists in NewGen.
#define CHAIN_SWORD(l, s)
#define SENTENCE(x)
newgen_unformatted_domain_defined
@ is_sentence_unformatted